Snasui Excel Forum

Code: Select all

Sub runNumber()
Dim rng As Range
Set rng = ActiveCell
Dim i As Integer

For i = 1 To 12
    rng.Offset(i * 1, 0).Value = i
Next i
 
End Sub

Code: Select all

Sub MyNumber()
    Const nCols As Integer = 20
    Const nRows As Integer = 10
    
    Dim iRow As Integer
    For iRow = 1 To nCols
        Dim i As Integer
        i = (iRow - 1) \ nRows + 1
        Dim j As Integer
        j = iRow - nRows * (i - 1)
        Cells(i, j).Value = iRow
    Next iRow
    
End Sub