[VBA ] 請益EXCEL VBA用陣列存取資料與運用

作者: innerpeace (俯首甘為孺子牛)   2017-08-24 18:12:24
各位高手 大家好:
感謝上次熱心的前輩不吝解答
讓我可以在自學VBA的過程中
慢慢累積編寫能力
自己從網路資料不停地Try & Error決解了不少問題
但是目前遇到陣列依然苦手中 >"<
想用陣列處理以下的資料:
STEP 1 從Sheet1 B1:D102範圍抓資料
Sheet1
A B C D E F
1 x b1 c1 d1 x x
2 x b2 c2 d3 x x
3 x b3 c3 d4 x x
:
:
100 x b100 c100 d100 x x
101 x b101 c101 d101 x x
102 x b102 c102 d102 x x
STEP 2 放入Sheet2第一行的102X5=510個格子中(多留空的格子以後儲存其他運算結果)
Sheet2
A B C D E F G H I J K L M N O..... SL SM SN SO SP
1 b1 c1 d1 x x b2 c2 d2 x x b3 c3 d3 x x..... b102 c102 d102 x x
STEP 3
抓d2 d3 d4的資料取平均p1 放入D1這格(第4格)
抓d3 d4 d5的資料取平均p2 放入I1這格(第9格)
:
:
抓d100 d101 d102的資料取平均 p99放入RZ1這格(第494格)
結果示意:
Sheet2
A B C D E F G H I J K L M N O..... SL SM SN SO SP
1 b1 c1 d1 p1 x b2 c2 d2 p2 x b3 c3 d3 p3 x..... b102 c102 d102 x x
卡住的點:
1.目前我只會Step 1把資料放入陣列,但還不會處理Step 2,把資料插入間隔然後拆成橫
列?
2.STEP 3的步驟,如何依照想要的位置,取出陣列中的資料,計算後再放回陣列?
請問有高手能提供語法範例嗎?或是能給我一點提示
感激不盡!
作者: MOONRAKER (㊣牛鶴鰻毛人)   2017-08-24 18:47:00
cells(row, col)一招凸歸excel
作者: innerpeace (俯首甘為孺子牛)   2017-08-24 20:23:00
可是cells(row, col)資料多就超慢的,才想用陣列重寫
作者: MOONRAKER (㊣牛鶴鰻毛人)   2017-08-26 01:16:00
已經複製到陣列那就(r,c)一格一格搬成你要的樣子
作者: innerpeace (俯首甘為孺子牛)   2017-09-07 00:35:00
我再試試,謝謝提供建議!

Links booklink

Contact Us: admin [ a t ] ucptt.com