墙上那一串串红辣椒——数组入门讲座

qcfy2000 · 发表于 2008-6-27 17:08

山老师辛苦了！

收藏了仔细看。

zldccmx · 发表于 2008-6-27 19:39

老朽的疑惑：

Arr=range("A1:A10")　返回的是一个二维数组，明明是一列，却怎么成了二维，有没有办法实现只返回一个一维数组？

另外请问，如何将二维数组直接转换成一个一维数组（循环我知道，有没有直接转换的函数哦？）

[em04][em04]

山菊花 · 发表于 2008-6-28 13:05

大概是继承了工作表的行列属性。虽仅1列，可理解为二维数组的一个特例。

一列的二维数组转置后可得到一个一维的水平数组：

Arr = Range("A1:A10") ’10行1列的二维数组

Arr2 = WorksheetFunction.Transpose(Arr) ’一维数组

Arr = WorksheetFunction.Transpose(Range("A1:A10")) ’一维数组

zldccmx · 发表于 2008-6-28 13:40

QUOTE:

以下是引用山菊花在2008-6-28 13:05:02的发言：

大概是继承了工作表的行列属性。虽仅1列，可理解为二维数组的一个特例。

一列的二维数组转置后可得到一个一维的水平数组：

Arr = Range("A1:A10") ’10行1列的二维数组

Arr2 = WorksheetFunction.Transpose(Arr) ’一维数组

Arr = WorksheetFunction.Transpose(Range("A1:A10")) ’一维数组

谢谢山版，老朽俺现在茅塞顿开！

不瞒您说，一直以来，俺都不太敢使用数组，因为俺不晓得有直接将二维转换成一维的Transpose功能！

羞[em04]羞[em04]

水无形 · 发表于 2008-7-6 14:08

Dim arr()

Sub dingyi()
arr = Sheets("sheet1").[a1:a4]

End Sub

用F8 调试的时候总是提示类型匹配错误。

然后把 DIM ARR()

去除后居然是对的，我在以前演练的时候也总是出现这样的情况。发觉直接赋值似乎不能进行定义，感觉很怪。

wkbu · 发表于 2008-7-9 20:05

我们一直在努力，希望版主出更多好贴。

dengjq2000 · 发表于 2008-7-9 20:09

太棒了版主

ppp123 · 发表于 2008-8-10 14:44

看了山菊花版主的数组讲解，受益匪浅。联想到自己的工作，有个问题还想请教您用VBA数组解决，问题如下：总共三张表

1、部门表（两列数据）选取启用标记为"启用"的部门------输出的A列

2、明细数据（三列数据) 选取考评结果为"合格"的人员------输出相对应的行

3、输出输出结果看输出表的一个例子也就是说合格人员横向排列

我以前的VBA 代码比较慢：筛选部门表启用标记为"启用"的部门 copy 到输出表，然后按输出A列的每行数据去明细数据表里循环，请指教高招！

LAssloGm.rar (4.44 KB, 下载次数: 23)

[此贴子已经被作者于2008-8-10 14:46:03编辑过]

山菊花 · 发表于 2008-8-10 23:57

供参考：

wQJiZ75A.zip (14.56 KB, 下载次数: 108)

ppp123 · 发表于 2008-8-11 00:47

非常感谢超级版主的解答！版主真是人好技术高，稀有呀！

比我的代码快接近10倍，我快被吓坏了！哈哈。

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

回复：（ppp123）