Hi,

I have an array

Array(750,200)

I want to paste the contents into the worksheet, i tried

Sheets("Sheet1").Range("C1:GU750").Value =
Application.WorksheetFunction.Transpose(Array)

but this didnt work, I guess because of transpose?

Is there a way to output a 2x2 array automatically?

Thanks for your help!!!

There is a limit of how many elements you can transpose in xl2k and below. If I
recall correctly, it's 5461 elements.

And your array is at least 750*200=150,000 elements.

But I'm not sure why you want to transpose the array anyway. If you're using
xl2003 or below, you only get 256 columns. So 700 columns won't fit.

This worked ok for me in xl2003:

Option Explicit
Sub testme02()

Dim myArr(1 To 750, 1 To 200) As Variant
Dim iCtr As Long
Dim jCtr As Long

For iCtr = LBound(myArr, 1) To UBound(myArr, 1)
For jCtr = LBound(myArr, 2) To UBound(myArr, 2)
myArr(iCtr, jCtr) = "x-" & iCtr & "-" & jCtr
Next jCtr
Next iCtr

Sheets("Sheet1").Range("C1") _
.Resize(UBound(myArr, 1) - LBound(myArr, 1) + 1, _
UBound(myArr, 2) - LBound(myArr, 2) + 1).Value _
= myArr

End Sub



Jeff wrote:

Hi,

I have an array

Array(750,200)

I want to paste the contents into the worksheet, i tried

Sheets("Sheet1").Range("C1:GU750").Value =
Application.WorksheetFunction.Transpose(Array)

but this didnt work, I guess because of transpose?

Is there a way to output a 2x2 array automatically?

Thanks for your help!!!

--

Dave Peterson