Adding Sequence numbers based on Cell value in ColumnB through VBA

[satish78]

Hi Friends,

I am trying to add sequence/following numbers in ColumnA based on cell value in ColumnB.
I been doing it manually, but its taking countless hours to go through thousands of rows.
Thought that I can get some little help here.

Attached the spreadsheet to understand more. ( Hightail Spaces )

Sheet1 Data
13 14
27 1
8 5

Sheet2 output data
13 14
13 14
14 14
15 14
16 14
17 14
18 14
19 14
20 14
21 14
22 14
23 14
24 14
25 14
26 14
27 1
8 5
9 5
10 5
11 5
12 5

 

[Akuini]

Try this:
Sheet1 must be the active sheet when you run the macro.

Sub a1159008a()

Dim i As Long, j As Long, k As Long
Dim n As Long
Dim va, vb

va = Range("A1:B" & Cells(Rows.Count, "A").End(xlUp).Row)

ReDim vb(1 To 1000000, 1 To 2)

For i = 1 To UBound(va, 1)
         n = 0
            For j = 1 To va(i, 2)
                k = k + 1
                vb(k, 1) = va(i, 1) + n
                vb(k, 2) = va(i, 2)
                n = n + 1
            Next
Next

Sheets("Sheet2").Range("A1").Resize(k, 2) = vb

End Sub

 

[satish78]

Thanks @Akuini. It did worked.

 

[Akuini]

You're welcome, glad to help & thanks for the feedback.