[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