VBA Advice on how you would tackle duplicate number sequence

[VBA learner ITG]

Good morning,

I have searched the forum high and low for a solution and i now need your advice if possible!

Is there a VBA code that anyone knows of or a forum piost that i can review to sequence the number like below in VBA to be applied in coloumn B until the end of the data in row A?

The sequence has to be in the below format and the number sequence which could be 1000

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]1[/TD]
[/TR]
[TR]
[TD]1[/TD]
[/TR]
[TR]
[TD]2[/TD]
[/TR]
[TR]
[TD]2[/TD]
[/TR]
[TR]
[TD]3[/TD]
[/TR]
[TR]
[TD]3[/TD]
[/TR]
[TR]
[TD]4[/TD]
[/TR]
[TR]
[TD]4[/TD]
[/TR]
[TR]
[TD]etc .........[/TD]
[/TR]
</tbody>[/TABLE]

 

[Fluff]

No need for VBA.
In B2 put =B1
In B3 put =B2+1
Select B2 & B3 & drag down

 

[VBA learner ITG]

Hi Fluff,

this is a sequence that I am trying to build/find a solution in VBA to sequence as part of a larger script.

The sequence needs to be autmated due to the volumes of worksheets being processed.

 

[VBA learner ITG]

this code i found sequnces the number like below but not in the format and sequence i need it in

1
2
3
4
5
6
7
8
etc..

but i need it like below

1
1
2
2
3
3
4
4
5
5
6
6
7
7
8
8
etc....

[COLOR=rgba(0, 0, 0, 0.7)][FONT=&quot]Sub fill_in()[/FONT][/COLOR]
[COLOR=rgba(0, 0, 0, 0.7)][FONT=&quot]Dim i As Integer[/FONT][/COLOR]
[COLOR=rgba(0, 0, 0, 0.7)][FONT=&quot]For i = 0 To WorksheetFunction.CountA(Columns("A:A")) - 1[/FONT][/COLOR]
[COLOR=rgba(0, 0, 0, 0.7)][FONT=&quot]Range("b1").Offset(i, 0).Value = i + 1[/FONT][/COLOR]
[COLOR=rgba(0, 0, 0, 0.7)][FONT=&quot]Next i[/FONT][/COLOR]
[COLOR=rgba(0, 0, 0, 0.7)][FONT=&quot]End Sub[/FONT][/COLOR]

 

[Fluff]

If you record yourself doing what I've suggested, with the macro recorder, you can then clean up the recorded code & modify to suit.
If you need help modifying it, then post your code along with an exact description, of what else needs to be done.

 

[My Aswer Is This]

Try this:

Sub Duplicate_Me()
Application.ScreenUpdating = False
Dim i As Long
Dim x As Long
x = 1
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To Lastrow
        Cells(x, 2).Resize(2).Value = i
        x = x + 2
    Next
Application.ScreenUpdating = False
End Sub