Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Loop_Test()
- Dim i As Integer
- Dim j As Integer
- Dim CountAll As Integer
- Dim CountXL As Integer
- ActiveSheet.Range("A1").Activate
- CountAll = ActiveSheet.Range("A35")
- For i = 1 To CountAll
- CountXL = Range(i, 2) + 2
- MsgBox CountXL
- For j = 3 To CountXL
- Cells(i, j) = "Row " & i & " Col " & j
- Next j
- Next i
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement