Using a for statement instead of a for Each

bearcub · May 30th 2003

I am trying to remember how to do this.

I want to create a column of numbers, 10 rows deep, ranging from 1 to 10.

I have the below formula using a for each statement. How would I modify this just using a straight For loop:

Sub RangeofNumbers()
x = 1
For Each cell In Range("A:A10")
cell.Value = x
x = x + 1
Next
End Sub

I haven't used VBA in a while so it is somewhat fuzzy at the moment.

Thanks

Anonymous · May 30th 2003

for i=1 to 10
cells(i,1).value=i
next i

bearcub · May 30th 2003

Thanks Derk,

Now, if I wanted to have 5 columns starting from 1 and ending with 50 (column 5), how would the code be modified?

Richie(UK) · May 30th 2003

Hi bc,

Something like this:

Code

Sub RangeofNumbers()
Dim r As Long, c As Integer


With Worksheets("Sheet1")
    For c = 1 To 5
        For r = 1 To 10
            .Cells(r, c).Value = ((c - 1) * 10) + r
        Next
    Next
End With


End Sub

Display More

HTH

Using a for statement instead of a for Each

Participate now!

Share