Excel Vba Code

[Aman Semwal]

Hi,

Need vba code for output like this
1
12
123
1234
12345
etc

Please do needful

 

[Hareesh_KLD]

Sub InsrtNumbers()

    Dim i As Integer
    Dim cell As Range
   
    For i = 1 To 10
   
        Range(("A" & i), Range("A10")).Select
       
        For Each cell In Selection
       
            cell.Value = cell.Value & i
           
        Next cell
       
    Next i
   
End Sub

 

[Aman Semwal]

giving answer

 

[Aman Semwal]

but need output as
1
12
123
1234
12345
123456
1234567
12345678

 

[Marc L]

Hi !

First format your column as text …
No really need a code as you can achieve this with an easy formula …
And within a VBA code, the formula avoids a loop, needs only one codeline !

The better explanation, the better answer …
​

 

[Hareesh_KLD]

For me its giving answer

1
12
123
1234
12345
123456
1234567
12345678
123456789
12345678910

you can try the code in sheet2 or sheet 3 in the attached workbook
before running the code Clear Range from A1 to A10