Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Use loop to select cells

Sub forDemo()     Dim i As Integer     For i = 1 To 24         ActiveCell.FormulaR1C1 = i & ":00"         ActiveCell.Offset(RowOffset:=1, ColumnOffset:=0).Select     Next i End Sub