Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Looping through a worksheet range using a ForNext loop

Sub NestedFor()     Dim I As Integer     Dim J As Integer          For I = 1 To 10         For J = 4 To 7             Cells(I, Chr(J + 64)).Value = I * J         Next J     Next I End Sub