大师你好！用什么代码判断数组arr()是否存在？谢谢！

alzeng · 发表于 2010-4-28 09:26

非多列的二维数组，转置后就是一维数组了。

fsydw · 发表于 2010-4-28 09:32

原帖由 alzeng 于 2010-4-28 09:26 发表
非多列的二维数组，转置后就是一维数组了。

大师你好！
我的arr3是一个动态数组，有一行数组（一维）的情况少，二行以上（二维）的情况多。怎么办呢？谢谢！

alzeng · 发表于 2010-4-28 09:38

arr3一定要二维数组的话,在arr2取值的时候就应该取多取一行，比方：arr2=Range("A1",[C65536].end(3)(2))，这样不管有效数据大不大于一行，转置后的arr3数组就是二维的。

fsydw · 发表于 2010-4-28 09:50

原帖由 alzeng 于 2010-4-28 09:38 发表
arr3一定要二维数组的话,在arr2取值的时候就应该取多取一行，比方：arr2=Range("A1",[C65536].end(3)(2))，这样不管有效数据大不大于一行，转置后的arr3数组就是二维的。

谢谢大师赐教！
我的arr2也是动态生成的，用什么代码直接向arr3添加一行数据（例如“-，-，-”）。谢谢！

alzeng · 发表于 2010-4-28 09:55

请查阅Redim Preseve 的用法。
其实如果你有完整的实例文件，这很容易解决，我也不知道你为什么要先生成arr2再转置成arr3，可以一次完成。

[ 本帖最后由 alzeng 于 2010-4-28 10:34 编辑 ]

fsydw · 发表于 2010-4-28 10:27

原帖由 alzeng 于 2010-4-28 09:55 发表
请查阅Redim Preseve 的用法。
其实如果你有完整的救命文件，这很容易解决，我也不知道你为什么要先生成arr2再转置成arr3，可以一次完成。

大师你好！arr3确实没必要！谢谢！
1、我先： ReDim Preserve arr2(1 To 3, 1 To ii)。但是，有时从arr1找到满足条件的记录只有一条，所以新生成的arr2还是一维。
2、用什么代码在生成arr2后，再向arr2中添加一条记录，这样会变成二维吧？

alzeng · 发表于 2010-4-28 10:36

取值完成后，再加上一句：
ReDim Preserve arr2(1 To 3, 1 To ii + 1)
这样就能保证生成的数组是二维。

fsydw · 发表于 2010-4-28 10:59

原帖由 alzeng 于 2010-4-28 10:36 发表
取值完成后，再加上一句：
ReDim Preserve arr2(1 To 3, 1 To ii + 1)
这样就能保证生成的数组是二维。

您的代码老好使了！神通广大啊！谢谢大师！！！

Zamyi · 发表于 2010-5-13 11:54

这么简单弄这么些多页！晕
MsgBox IsArray(arr)
MsgBox IsEmpty(arr)

fsydw · 发表于 2010-5-13 13:43

原帖由 Zamyi 于 2010-5-13 11:54 发表
这么简单弄这么些多页！晕
MsgBox IsArray(arr)
MsgBox IsEmpty(arr)

大师你好！
1、以前见过你回过的贴：“二维数组，删除其它一条记录比较麻烦，建议生成一个新的数组。”
2、cflood 大师也说，没有直接删除二维数组的代码。
3、现在有了2007版、2010版，这个问题仍没有更好的办法吗？
谢谢！

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

[求助] 大师你好！用什么代码判断数组arr()是否存在？谢谢！