- 帖子
- 258
- 主題
- 77
- 精華
- 0
- 積分
- 385
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2010-8-8
- 最後登錄
- 2021-1-25
|
[發問] Array矩陣,如何取出AR(1)裡的第5個值等等
請教大大:
個人在練習矩陣用法
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
| 
