請教大大:
個人在練習矩陣用法
Sub Transpose2()
Dim AR()
ReDim Preserve AR(k)
AR(k) = Sheets("test1").Range(Cells(1, 1), Cells(10, 1)).Value
AR(0) = Sheets("test1").Range(Cells(1, 1), Cells(10, 1)).Value
k = k + 1
ReDim Preserve AR(k)
AR(1) = Sheets("test1").Range(Cells(1, 2), Cells(10, 2)).Value
k = k + 1
ReDim Preserve AR(k)
AR(2) = Sheets("test1").Range(Cells(1, 3), Cells(10, 3)).Value
k = k + 1
ReDim Preserve AR(k)
With Sheets("test1")
AR = Application.Transpose(Application.Transpose(AR)) 此句error why?
.Cells(1, 10).Resize(UBound(AR(0))) = AR(0)
.Cells(1, 11).Resize(UBound(AR(1))) = AR(1)
.Cells(1, 12).Resize(UBound(AR(2))) = AR(2)
.Cells(1, 13).Resize(UBound(AR(3))) = AR(3)
End With
End Sub
請教大大
又如何取出AR(1)裡的第5個值
又如何取出AR(2)裡的第6個值等等?? |
發表於 2015-6-12 12:18
| 
