excel vba中如何定义数组并赋值_vba数组怎么赋值

亲爱的朋友们，您是否对excel vba中如何定义数组并赋值和vba数组怎么赋值感到陌生？别担心，今天我将为大家介绍一些关于excel vba中如何定义数组并赋值和vba数组怎么赋值的知识，希望能够帮助大家更好地了解这个话题。

本文目录一览

大家好，我们今日继续讲解VBA代码解决方案的第110讲内容：VBA数组讲解：什么是数组，如何定义数组，如何创建数组

一、什么是数组就是数组共享一个名字，有着多个元素按顺序排列的变量。在数组中，元素通过索引加以区分。这里我把数组的元素看做变量来对待，大家要注意，这个观点在应用过程中是非常有意义的。

二、如何定义数组声名数组同声明其他变量的方式一样，唯一不同的是数组有大小，即有多少个元素，或者说变量，还有就是要说明数组的维数。

如下面的代码:

SubMynzart()

DimiAsInteger,jAsInteger

Dimarr(1To10,1To2)AsInteger'定义一个10*2的二维数组（10行，2列）

j=1'数组1to10的索引号

Fori=1To20Step2

arr(j,1)=i'赋值

arr(j,2)=i+1'赋值

j=j+1'索引号增加

[a1:b65536].Clear'清除原有数据

[a1].Resize(10,2)=arr'将数组赋值给A1单元格向下10行，向右2列的区域

EndSub

代码截图：

运行后：

三、动态数组

在上面的讲解中我们知道，声明一个数组，必须指定数组的大小，即它是几维数组，有多少个元素。但有些时候，我们在定义数组的时候，并不能确定数组的大小，这时，我们在首次定义数组的时候括号内为空（当然先指定一个大小也是可以的，但纯属是多余），在程序过程中用Redim语句去重新指定数组的大小，这就是动态数组。

比如一个工作表的C列存储了学生姓名，现在我们需要把把有姓“王”的学生存储在数组arr中，预先我们并不知道C列姓王的学生有三十个还是五十个，所以，我们在定义时代码可以这样：

代码:

SubMyNZarttwo()

Dimi%,xrow%,j%,xcount%

Dimarr()AsString

erow=[c65536].End(3).Row'最后一个非空单元格行号

j=1'数组索引号

xcount=Application.WorksheetFunction.CountIf([c1:c65536],"王*")'统计有多少姓王的学生

ReDimarr(1Toxcount)'重新定义数组大小，元素共有xcount个

1、打开一个Excel的文件，在表格中输入简单的表格，比如学生身高表格，如下图所示。

2、接着，在表格中输入一维数组的说明文字，鼠标左键单击【开发工具】菜单标签，在VBA控件下拉菜单中，并选择按钮控件，如下图所示。

3、然后，在表格中绘制出按钮控件，并修改控件名称，比如使用一维数组的名称，如下图所示。

4、接着，选择按钮控件，并鼠标左键单击【查看代码】按钮，如下图所示。

5、然后，在代码窗口中输入VBA语句，比如输入定义一维数组的语句，并给一维数组赋值，如下图所示。

6、接着，在代码窗口中，输入一维数组给单元格赋值的VBA语句，如下图所示。

7、最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，通过VBA程序的一维数组，并输出到身高的单元格中，显示出数据了，如下图所示。完成效果图。

如果您对本文的内容感到满意，请在文章结尾处点击“顶一下”以表示您的肯定。如果您对本文不满意，也请点击“踩一下”，以便我们改进该篇文章。如果您想更深入地了解相关内容，可以查看文章下方的相关链接。