Hi all - I have a 10,000 X 26 range and want to consolidate it into a single column. There are 260,000 elements in the array. The worksheet function Transpose only handles 65,000 elements. I am looking for a workaround solution. Maybe looping thru the array and write it out in 65,000 increments to a sheet.
Appreciate your help.
my code:
Appreciate your help.
my code:
Code:
Sub ConsdRange()
Dim Arr As Variant
Dim nuArr() As Variant
Arr = Range("A1:Z100000")
ctr = 1
For c = 1 To 26
For r = 1 To 10000
ReDim Preserve nuArr(1 To ctr)
nuArr(ctr) = Arr(r, c)
ctr = ctr + 1
Next
Next
Cells(1, "AB").Resize(UBound(nuArr)) = Application.Transpose(nuArr())
End Sub