Advertisement
Guest User

Untitled

a guest
Jul 2nd, 2015
208
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.31 KB | None | 0 0
  1. Sub Loop_Test()
  2.  
  3. Dim i As Integer
  4. Dim j As Integer
  5. Dim CountAll As Integer
  6. Dim CountXL As Integer
  7.  
  8. ActiveSheet.Range("A1").Activate
  9.  
  10. CountAll = ActiveSheet.Range("A35")
  11.  
  12. For i = 1 To CountAll
  13. CountXL = Range(i, 2) + 2
  14. MsgBox CountXL
  15. For j = 3 To CountXL
  16. Cells(i, j) = "Row " & i & " Col " & j
  17. Next j
  18. Next i
  19.  
  20. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement