Populating Two Dimensional Array

[willz99ta via OfficeKB.com]

Howdy,

I'm trying to find the right syntax to fill a two dimensional with the first
two columns in my excel spreadsheet. The two columns could have as few as 1
or as many as 60,000 records in them.

Thanks,
Will

 

[Guest]

You could loop but the quickest method is to use a variant variable:

Dim myArray As Variant
Set myArray = Selection

Then, for example (if you've used columns A and B), myArray(1,1) will be
A1's value, myArray(1,2) B1's, myArray(2,1) A2's, etc.

 

[willz99ta via OfficeKB.com]

I can't use the selection function since this is part of a larger program.
What is the easiest way to loop it?

Thanks again,
Will

You could loop but the quickest method is to use a variant variable:

Dim myArray As Variant
Set myArray = Selection

Then, for example (if you've used columns A and B), myArray(1,1) will be
A1's value, myArray(1,2) B1's, myArray(2,1) A2's, etc.

Howdy,

[quoted text clipped - 4 lines]

Thanks,
Will

 

[Guest]

Dim v as Variant
lastrow = cells(rows.count,1).End(xlup).Row
v = Range("A1:B" & lastRow).Value

' look at the results:
msgbox lbound(v,1) & ", " & ubound(v,1) & _
vbNewLine & lbound(v,2) & ", " & ubound(v,2)

 

[Bill Martin]

Try doing what was suggested, but first use VBA to do the selection
automagically:

dim LastRow as Long
LastRow = range("A1").end(xldown).row
range("A1:B" & LastRow).select

Bill
------------------------

I can't use the selection function since this is part of a larger program.
What is the easiest way to loop it?

Thanks again,
Will

You could loop but the quickest method is to use a variant variable:

Dim myArray As Variant
Set myArray = Selection

Then, for example (if you've used columns A and B), myArray(1,1) will be
A1's value, myArray(1,2) B1's, myArray(2,1) A2's, etc.

Howdy,

[quoted text clipped - 4 lines]

Thanks,
Will

 

[Guest]

Selecting in rarely required and when not, not recommended. It isn't
required in this case.

dim v as Variant
dim LastRow as Long
LastRow = range("A1").end(xldown).row
v = range("A1:B" & LastRow).Value


--
Regards,
Tom Ogilvy

Try doing what was suggested, but first use VBA to do the selection
automagically:

dim LastRow as Long
LastRow = range("A1").end(xldown).row
range("A1:B" & LastRow).select

Bill
------------------------

I can't use the selection function since this is part of a larger program.
What is the easiest way to loop it?

Thanks again,
Will

You could loop but the quickest method is to use a variant variable:

Dim myArray As Variant
Set myArray = Selection

Then, for example (if you've used columns A and B), myArray(1,1) will be
A1's value, myArray(1,2) B1's, myArray(2,1) A2's, etc.

Howdy,

[quoted text clipped - 4 lines]
Thanks,
Will

 

[Bill Martin]

Thanks Tom.

Bill
---------------

Selecting in rarely required and when not, not recommended. It isn't
required in this case.

dim v as Variant
dim LastRow as Long
LastRow = range("A1").end(xldown).row
v = range("A1:B" & LastRow).Value


--
Regards,
Tom Ogilvy

Try doing what was suggested, but first use VBA to do the selection
automagically:

dim LastRow as Long
LastRow = range("A1").end(xldown).row
range("A1:B" & LastRow).select

Bill
------------------------

I can't use the selection function since this is part of a larger
program.
What is the easiest way to loop it?

Thanks again,
Will


Martin wrote:
You could loop but the quickest method is to use a variant variable:

Dim myArray As Variant
Set myArray = Selection

Then, for example (if you've used columns A and B), myArray(1,1) will
be
A1's value, myArray(1,2) B1's, myArray(2,1) A2's, etc.

Howdy,

[quoted text clipped - 4 lines]
Thanks,
Will