Use For loop to fill a range : ActiveWorksheet « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. ActiveWorksheet

Use For loop to fill a range

 
Sub FillRange3()
    Dim StartVal As Long
    Dim NumToFill As Long
    Dim CellCount As Long
    StartVal = 2
    NumToFill = 5
    For CellCount = 1 To NumToFill
        ActiveCell.offset(CellCount - 1, 0) = StartVal + CellCount - 1
    Next CellCount
End Sub

 

Related examples in the same category