作者kgreatheart (神之左手魔之右手)
看板Visual_Basic
标题[VBA ] 用阵列代替 Range
时间Tue Nov 18 23:20:17 2014
请教关於阵列代替 Range如下：
dim arr() as Variant
'(1) 可将储存格的值放入阵列arr内
arr=Range("A1:E400")
'(2) 可将阵列内的值放入储存格内
Range("A1:E400")=arr
如果有多栏且包含不相邻 (列数相同) 的储存格
可如 (1) 方法，放入 arr 内吗？
或如 (2) 方法，放入指定(包含不相栏)的栏内吗？
---------------------------------------
关於 (1) 有想过使用如下，但只能写入 Range("A1:A400") 的值到 arr
Set r1 = Range("A1:A400")
Set r2 = Range("D1:D400")
Set myMultiAreaRange = Union(r1, r2)
arr=myMultiAreaRange.Value
---------------------------------------
请教程式该如何作修改，谢谢。
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 123.195.2.102
※ 文章网址: http://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1416324020.A.F42.html
1F：→ MOONRAKER: for r=r0 to r1 : for c=c0 to c1 11/19 07:06
2F：→ MOONRAKER: cells(r, c) = arr(r*p+m, c*q+n): next 11/19 07:07
3F：→ MOONRAKER: 逐格抄过去。 11/19 07:07
4F：→ kgreatheart: 谢谢回覆。储存格或阵列要一列一列或一栏一栏的贴到 11/20 00:59
5F：→ kgreatheart: 阵列或储存格，没有这样的用法，只能逐格抄过去吗？ 11/20 01:01