VBA Array output to Excel sheet

[gavs73]

Hi

I have an Array which has been populated with data from several Sheets, I want to output this into a sheet as one block of data, currently I'm going line by line, but is there a quicker way ?

Thanks in advance for your help.

Gav



pivnum = 0
cell = 4
Do
Range("A" & cell) = pivotarray(0, pivnum)
Range("B" & cell) = pivotarray(1, pivnum)
Range("C" & cell) = pivotarray(2, pivnum)
Range("D" & cell) = pivotarray(3, pivnum)
Range("E" & cell) = pivotarray(4, pivnum)
Range("F" & cell) = pivotarray(5, pivnum)

pivnum = pivnum + 1
cell = cell + 1
Loop Until pivotarray(0, pivnum) = Empty

 

[GTO]

Hi Gav,

I may be mis-reading, but is pivotarray size the same as the destination range, save that it is transposed?

Mark

 

[gavs73]

Hi

The array size is variable, but the output into the sheet would be the entire array.

Thanks
Gav

 

[GTO]

Okay, a blind stab, but if both dimensions in pivotarray are 0-based, maybe:

    Range("A4").Resize(UBound(pivotarray, 2) + 1, _
                       UBound(pivotarray, 1) + 1).Value _
                            = Application.Transpose(pivotarray)

Does that work?

Mark