本文目录
- VBA里应该怎么定义一个动态的二维数组
- vba动态数组是如何建立和使用的
- 一个关于VBA定义动态数组的或者字典的问题
- excel vba中如何定义数组，并赋值
- vba中ReDim Preserve brr(1 To 4, 0 To i)的含义是什么
- 如何在vba中声明数组
- 如何定义在VBA中定义一个动态数组
VBA里应该怎么定义一个动态的二维数组
VBA中动态定义一个二维数组，案例代码如下：
//定义动态数组tt
Sub tt()
Dim a() As Integer
ReDim a(1 To 2, 1 To 1) As Integer
a(1, 1) = 10
i = 10
ReDim Preserve a(1 To 2, 1 To i) As Integer
MsgBox a(1, 1)
End Sub
vba动态数组是如何建立和使用的
Dim dongtai ‘声明建立动态数组
ReDim dongtai(4) ‘这样就可以初始化一个长度是5的动态数组（动态数组从0开始）。
‘接着就可以赋值了：
dongtai(0) =“N“
dongtai(1) =“i“
dongtai(2) =“H“
dongtai(3) =“a“
dongtai(4) =“o“
一个关于VBA定义动态数组的或者字典的问题
用数组方便些吧
dim arr()
temp=1
For k = j + 1 To [e65536].End(3).Row
If InStr(Cells(k, “e“), .Cells(i, “d“)) And Cells(k, “k“) = .Cells(i, “f“) Then
If Cells(k, “k“).Comment Is Nothing Then
ReDim Preserve arr(1 to temp)
arr(temp)=k
temp=temp+1
End If
End if
Next
excel vba中如何定义数组，并赋值
大家好，我们今日继续讲解VBA代码解决方案的第110讲内容：VBA数组讲解：什么是数组，如何定义数组，如何创建数组
一、什么是数组 就是数组共享一个名字，有着多个元素按顺序排列的变量。在数组中，元素通过索引加以区分。这里我把数组的元素看做变量来对待，大家要注意，这个观点在应用过程中是非常有意义的。
二、如何定义数组 声名数组同声明其他变量的方式一样，唯一不同的是数组有大小，即有多少个元素，或者说变量，还有就是要说明数组的维数。
如下面的代码:
Sub Mynzsmart()
Dim i As Integer, j As Integer
Dim arr(1 To 10, 1 To 2) As Integer ’定义一个10*2的二维数组（10行，2列）
j = 1 ’数组1 to 10的索引号
For i = 1 To 20 Step 2
arr(j, 1) = i ’赋值
arr(j, 2) = i + 1 ’赋值
j = j + 1 ’索引号增加
Next
[a1:b65536].Clear ’清除原有数据
[a1].Resize(10, 2) = arr ’将数组赋值给A1单元格向下10行，向右2列的区域
End Sub
代码截图：
运行后：
三、动态数组
在上面的讲解中我们知道，声明一个数组，必须指定数组的大小，即它是几维数组，有多少个元素。但有些时候，我们在定义数组的时候，并不能确定数组的大小，这时，我们在首次定义数组的时候括号内为空（当然先指定一个大小也是可以的，但纯属是多余），在程序过程中用Redim语句去重新指定数组的大小，这就是动态数组。
比如一个工作表的C列存储了学生姓名，现在我们需要把把有姓“王”的学生存储在数组arr中，预先我们并不知道C列姓王的学生有三十个还是五十个，所以，我们在定义时代码可以这样：
代码:
Sub MyNZsmarttwo()
Dim i%, xrow%, j%, xcount%
Dim arr() As String
erow = [c65536].End(3).Row ’最后一个非空单元格行号
j = 1 ’数组索引号
xcount = Application.WorksheetFunction.CountIf([c1:c65536], “王*“) ’统计有多少姓王的学生
ReDim arr(1 To xcount) ’重新定义数组大小，元素共有xcount个
vba中ReDim Preserve brr(1 To 4, 0 To i)的含义是什么
这个是一个定义动态数组
即动态定义数组brr有一到4行，0到i列
因为动态数组只能列动态，用preserve，是在原数组的基础上增加，不会改变原数组的数据。
一般来说你的这句代码前会有一个判断
如
if xxx=xxx then
i=i+1
redim preserve brr(1 to 4,0 to i)
然后这里会写入数据到数组中如
brr(1,i)=XXX
brr(2,i)=XXX
brr(3,i)=XXX
brr(4,i)=XXX
end if
如何在vba中声明数组
1、vba中使用Dim关键字声明数组，Dim关键字的后面是数组名称，名称之后要有括号，然后括号之后可以指明数组的长度，也可用to关键字指明范围，最后则是用as 关键字指明类型，具体的格式见下图：
2、下面用一个实例来说明用法，首先在表格中有6000个数值，筛选出大于90的数值将其复制至B栏或C栏，分别用两种方法来写代码，一种方法不含数组，另二种方法含有数组，比较两种方法的速度：
2、在Excel工作表中，点击菜单栏开发工具，在其工具栏内，点击visual basic：
3、此时会进入VBA编辑界面，点击菜单栏插入，在其下拉菜单中选择模块：
4、此时软件会弹出模块编辑窗口，这里就可以输入vba的代码：
5、在代码编辑窗口输入带数组和不带数组的两种代码，这里可以看到用Dim关键字声明了一个6000个元素的数组：
6、在工作表界面的开发工具菜单下，点击插入按钮插入表单控件，分别与两组代码关联：
7、点击筛选数据1按钮，即不含数组，程序运行的时间了13.4219秒：
8、点击筛选数据2按钮，即含数组的一组，程序运行的时间为0.0313秒，可以看到这种方法快多了吧：
如何定义在VBA中定义一个动态数组
没有动态数组，就算利用 dim Arr（）as string这样声明，一旦赋值后，数组大小也就固定了。如果要改变数组大小，要用redim 命令：
redim arr（10）
preserve redim arr（）
加preserve 可以不清空数组，保持原有数据。
动态数组是指在声明时没有确定数组大小的数组，即忽略圆括号中的下标；当要用它时，可随时用ReDim语句重新指出数组的大小。使用动态数组的优点是可以根据用户需要，有效利用存储空间。
