Referencing Columns in loop

[tominga]

Help....I'm fairly good at vba but I have come across a request from a co-worker for some help and I can't figure it out.

What I need to do is loop across the columns in a given range and read information into an array.

IE I need to read the value in A1, then B1, then C1... then A2, B2, C2....

I can't figure out how to get the loop to increment by "A,B,C" ect across columns. Incrementing the row portion of the address is easy but I hope someone can help figure out how to make vba "count" across columns since they are not numerical.

Thank you,
Tom

[Jacob Hilderbrand]

For i = 1 To 2 'Rows
For j = 1 To 3 'Columns
MsgBox Cells(i,j).Value
Next j
Next i

[Killian]

I'd be inclined to do it a bit like this


Dim myRange As Range
Dim c As Long, r As Long
Dim myVals()
Set myRange = Range("F6:H11")
ReDim myVals(1 To myRange.Rows.Count, 1 To myRange.Columns.Count)
For c = 1 To myRange.Columns.Count
For r = 1 To myRange.Rows.Count
myVals(r, c) = myRange(r, c).Value
Next
Next

It gives you the flexibility to work with any range (or you can set the range to the Selection object).

[Bob Phillips]

Well I'd be inclined to do it like this



Dim myvals
myvals = Range("F6:H11")

[Killian]

better still...

[tominga]

Thank you.