作者innerpeace (小宝)
看板Visual_Basic
标题[VBA ] 请益EXCEL VBA用阵列存取资料与运用
时间Thu Aug 24 18:12:24 2017
各位高手 大家好：
感谢上次热心的前辈不吝解答
让我可以在自学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的步骤，如何依照想要的位置，取出阵列中的资料，计算後再放回阵列？
请问有高手能提供语法范例吗？或是能给我一点提示
感激不尽!
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.164.142.41
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1503569547.A.165.html
1F：→ MOONRAKER: cells(row, col)一招凸归excel 08/24 18:47
2F：→ innerpeace: 可是cells(row, col)资料多就超慢的，才想用阵列重写 08/24 20:23
3F：→ MOONRAKER: 已经复制到阵列那就(r,c)一格一格搬成你要的样子 08/26 01:16
4F：→ innerpeace: 我再试试，谢谢提供建议! 09/07 00:35