返回列表 上一主題 發帖

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

mlbolerud

帖子
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

JasnH

帖子
6 
主題
2 
精華
0 
積分
50 
點名
273  
作業系統
windows 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2019-9-6 
最後登錄
2024-11-21 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章
2#
發表於 2019-10-22 15:37 | 只看該作者
試試:
.Cells(5, 10).Resize(3, 3)= Application.Index(myarray, [row(2:4)], [transpose(row(2:4))])

TOP

mlbolerud

帖子
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

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題