返回列表下一主題上一主題發帖

請問二維陣列取局部資料方法

mlbolerud

中學生 Rank: 2

帖子: 32
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-4-28
最後登錄: 2021-7-6

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2019-10-22 12:57 | 只看該作者

請問二維陣列取局部資料方法

各位大大
小弟我有個二維陣列取局部資料的問題 , 想請教各位高手
我的二維陣列 myarray 是從 myarray(1,1) ~ myarray(10,10)
我要把陣列部份資料寫入儲存格 , myarray(5,5) ~ myarray(7,7) 寫入Cells(5, 10) ~ Cells(7, 12)

整個array寫入儲存格或是單一位置寫入儲存格方式可以
  .Cells(5, 10).Resize( 10 , 10) = myarray  ......... 整個array 寫入 , 正確
  .Cells(8, 5) = myarray(5, 5) .........  單一位置寫入 , 正確

但是下面這種寫法會出現錯誤
.Cells(5, 10).Resize(3, 3) = Range(myarray(2, 2), myarray(4, 4))  ......... 錯誤

除了寫個迴圈方式外, 有沒有比較簡單的方式?
感謝分享 ~

樓主熱帖

MLB

mlbolerud

中學生 Rank: 2

帖子: 32
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-4-28
最後登錄: 2021-7-6

3^#

發表於 2019-10-22 21:30 | 只看該作者

感謝JasnH大大的指導
我試過了, 沒有問題, 比起我原先用的for迴圈方式簡潔多了
for i = 1 to 3
for j = 1 to 3
cells(4+j , 9+i) = myarray(2+j, 2 + i)
next
next

只是我試過把
[transpose(row(2:4))] 改成 [column(2:4)] , 為何跑出來結果會不一樣呢?
.Cells(5, 10).Resize(3, 3)= Application.Index(myarray, [row(2:4)], [column(2:4)])

MLB

TOP

JasnH