分享兰色幻想老师的大作VBA数组与字典知识与实例

zwmhdg · 发表于 2011-5-9 22:47

正需要学习，谢谢分享！

luyina · 发表于 2011-5-10 07:07

好东东必顶!感谢分享!

李巴 · 发表于 2011-5-10 07:23

太感谢了，正需要这些东西学下

dsmch · 发表于 2011-5-10 08:34

蓝色幻想老师举的例子中
3  VBA数组的拆分与合并

Sub t2()
   arr2 = Range("A1:B4") '把单元格区域A1：B4的值装入数组arr2
   arr3 = Application.Index(arr2, , 2)  '把数组第2列拆分出来装入arr3，新数组为二维数组
End Sub
如果想按行拆分，除了api函数外是没有其他办法的

同样用index很容易解决
arr2 = Range("A1:B4") '把单元格区域A1：B4的值装入数组arr2
arr4 = Application.Index(arr2, 1, 0) '提取第一行数据放入数组arr4
Range("d1").Resize(1, UBound(arr4)) = arr4 '把数组arr4赋值单元格

SSJJWW · 发表于 2011-5-10 09:39

原帖由 dsmch 于 2011-5-10 08:34 发表
蓝色幻想老师举的例子中
3  VBA数组的拆分与合并

Sub t2()
   arr2 = Range("A1:B4") '把单元格区域A1：B4的值装入数组arr2
   arr3 = Application.Index(arr2, , 2)  '把数组第2列拆分出来装入arr3 ...

向Dsmch大师学习，真理总是在不断的学习和实践中得到的

zhouyq0706 · 发表于 2011-5-10 16:25

非常感谢！！！

saler111 · 发表于 2011-5-10 21:18

收藏了

335081548 · 发表于 2011-5-10 22:08

最近总是在下载。都没有好好学习了。都成下载党了。要静下心来学习学习了.......

Kimez12 · 发表于 2011-5-14 00:44

再学数组，在vba原来的数组知识不用太浪费了。原来以为vba万能呢，函数数组都不需要呢。

岁寒三友 · 发表于 2011-5-17 13:07

谢谢提供、分享！

		自动登录	找回密码
密码			免费注册

[分享] 分享兰色幻想老师的大作VBA数组与字典知识与实例