Transpose simple question

  • Thread starter Thread starter avi
  • Start date Start date
A

avi

Hello,

I have a one dimensional array (one column, many rows). I try to
transpose it so to get one row, many columns but don't succeed

A simple example
Dim myarray As Variant
Dim myarrayT As Variant
myarray = xlApp.ActiveSheet.Range("A1:A10")
myarrayT = xlApp.Transpose(myarray)
MsgBox UBound(myarrayT, 1) returns the number of rows of the
original array (instead of 1)
MsgBox UBound(myarrayT, 2) does'nt work (out of range)

Do I miss something?
Remark: I am working in VB6

Thanks a lot
Avi
 
You original arrray has 10 rows and 1 column
your transpose array as 1 row and 10 columns

the rows is the first item in Ubound and the columns the 2nd item

MsgBox UBound(myarrayT, 1) returns 10 which it correct

MsgBox UBound(myarrayT, 0) will return 1
 
Back
Top