VBA数组定义的区别

陈宫在家吗

请教大家，dim arr1, arr2(), arr3(1 to 100, 1 to 20)到底何时该用哪种？

经常在编写时分不清该如何使用，等到报错后再一个个试。
比如前两天我编写一段vba程序时，用的dim arr()，后面在for 循环里多次给它赋值 arr = range("A1:N" & x)，然后就报错。改为dim arr就好了。没明白这是怎么回事？


感谢大家的帮助！
现在还有一个问题没弄明白，就是8楼说的“循环将arr2添加到arr1里”，这个是否必须行、列分别循环写入？还是有其他简便方法？

陈宫在家吗

还有个问题就是数组如何合并？比如一个工作簿，想将每一页的A1:F7都提取合并都一个数组里，我之前是复制、粘贴到某一页，然后整体赋值给一个数组的。
请教大家有没有其他好的方法？

LIUZHU

VBA的数组合并很麻烦，需要提前考虑数组的维度大小，不如用JSA，直接扩充就是

smsn

简单点说
arr1 一个变量，可代表数值，文本，对象 variant 等等...

arr2() 数组，使用前还要再redim行列，俗称动态数组

arr3(1 to 100, 1 to 20) 已经定义好的数组，100行，20列

百度一下 vba 数组  有更详细的教程。

smsn

vba数组合并没啥好方法，一般常用循环遍历到新数组。看情况有时候join到文本合并后再split,或是借用javascript合并。

jiangxiaoyun

定义dim arr()，arr = range("A1:N" & x).value；arr是数组，.value不能省略。（实际上不省略是个好习惯）



定义dim arr，arr = range("A1:N" & x).value 或  arr = range("A1:N" & x),arr是变体变量


数组赋值：1.从单元格直接赋值，2.从其他数组赋值 3.省略

定义一个足够大的数组用来装数据就行，dim arr3(1 to 6666,1 to 20),然后用K计数，reszie(k,ubound(arr3,2))
输出到工作表就行。不需要纠结大数组效率问题，即使用足球场那么大的空间来打篮球，也绰绰有余，不会有多少影响。

taller

请参考
https://blog.csdn.net/taller_2000/article/details/105007190
https://blog.csdn.net/taller_2000/article/details/105305018

MOY838840554

陈宫在家吗 发表于 2022-12-9 17:06
还有个问题就是数组如何合并？比如一个工作簿，想将每一页的A1:F7都提取合并都一个数组里，我之前是复制、 ...

汇总的数组：Arr1 定义大小（1 to 7*页数,列数）
当前页数组:Arr2=Range
然后循环将arr2添加到arr1里

陈宫在家吗

感谢楼上各位！谢谢大家！我再试试，学习学习！

陈宫在家吗

jiangxiaoyun 发表于 2022-12-9 18:50
定义dim arr()，arr = range("A1:N" & x).value；arr是数组，.value不能省略。（实际上不省略是个好习惯）
...

“定义一个足够大的数组用来装数据就行，dim arr3(1 to 6666,1 to 20),然后用K计数，reszie(k,ubound(arr3,2))
输出到工作表就行。不需要纠结大数组效率问题，即使用足球场那么大的空间来打篮球，也绰绰有余，不会有多少影响。”

这种方式的话，赋值到数组，是不是用行、列分别循环，逐个写入数组的？我用页、行、列三重循环实现了。

本来是想试试能否：第一页单元格区域整体赋值，然后下一页的单元格区域整体赋值添加进数组……循环到最后一页结束，这样只要一重循环。但没能实现。