Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim myrange As Range
- Set myrange = Range("B3:E10")
- Dim row As Integer, col As Integer
- For row = myrange.Rows.Count To 1 Step -1
- For col = myrange.Columns.Count To 1 Step -1
- Debug.Print myrange(row, col).Value
- Next col
- Next row
- Dim vals As Variant
- Dim row As Long, col As Long
- vals = Range("A1:Z100") ' or whatever
- For col = UBound(vals,2) To LBound(vals,2) Step -1
- For row = UBound(vals) To LBound(vals) Step -1
- DoSomethingInterestingWith vals(row, col)
- Next
- Next
Add Comment
Please, Sign In to add comment