一维数组和二维数组,动态数组的定义及创建

一维数组和二维数组

 

一维数组

一维数组默认是一行数据,例如arr,我们先定义arr,Dim arr,具体的arr值就是arr(1)=1,arr(2)=2…….arr(10)=10,arr 直接可以写成,Range(“B1:K10”)=arr,或者Range(“B1”).Resize(1 , 10)=arr,这样就把arr这个一维数组的值,输出在B1到B10这10个单元格中了,出来的就是一行10列数据。如果要把这个数组变成一列输出,如Range(“B1:B10”)=arr,这样是错误的,因为arr默认输出是一行,所以这时候要用Transpose函数,应该这么写Range(“B1:B10”)=Application.WorksheetFunction.Transpose(arr)。

二维数组

单元格默认是二维数组。例如我们定义一个数组 Dim brr,brr=range(“A1,A10”),那么brr就是个二维数组,实际上brr的形式是这样的,brr(1 to 10 , 1 to 1)。代表的是1列10行。第一维就是列,第二维就是行。这时可以用Range(“B1:B10”)=brr,因为brr是一个二维数据,输出的时候行就是行,列就是列。Range(“B1:K10”)=arr,这时候就是错误的了,因为arr代表的是B1到B10单元格区域是1列10行,这时候要用转值函数,Range(“B1:K10”)=Application.WorksheetFunction.Transpose(brr)。

动态数组

动态数组的定义及创建。在VBA中,数组可分为固定数组和动态数组,也称为静态数组和动态数组。我们之前所定义的数组,都是静态数组。静态数组的特点是具有大小的数组。当我们事先知道数组的大小,我们可以直接声明为静态数组。固定数组定义方法:DIM 数组名(<下届>TO<上届>)。

但如果事前不知道数组大小时,怎么办呢?在事前不知道数组的大小时,可以声明数组为动态数组,在需要指定数组大小时,再使用ReDim语句分配数组的实际元素的个数。

1、动态数组是可以改变大小的数组,通过在数组名称后附带空括号来声明,如:

Dim arrSheetName() as String

2、在定义动态数组之后,必须使用ReDim来设置动态数组的上界和下界,为数组重新分配存储空间。

3、我们可以使用ReDim语句反复地改变数组的元素个数。

下面我们将通过一个实例来讲解动态数组的利用:

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

代码:

Sub MyNZsz_2()

Dim arr() As String

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

j = 1 ‘数组索引号

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

ReDim arr(1 To xcount) ‘重新定义数组大小,元素共有xcount个

For i = 1 To erow

If Left(Cells(i, 3).Value, 1) = “王” Then

arr(j) = Cells(i, 3).Value ‘给数组元素赋值

j = j + 1 ‘索引号加1

End If

Next i

[d1:d65536].Clear ‘清除原有数据

[d1].Resize(xcount, 1) = Application.WorksheetFunction.Transpose(arr) ‘将数组输入单元格区域

End Sub

代码截图:

一维数组和二维数组,动态数组的定义及创建

代码的解读:

1 Dim arr() As String 定义了一个动态数组。

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

ReDim arr(1 To xcount) ‘重新定义数组大小,元素共有xcount个

通过求出姓王的学生的个数从而知道数组的上下界

3 Application.WorksheetFunction.Transpose(arr) 讲数组arr 的内容转置填充,对于一维数组来说,中间是以逗号分隔的,如果想纵向填充,要进行转置,这可以结合之前工作表数组的表述来理解,逗号是分列,分号是分行。

运行结果:

一维数组和二维数组,动态数组的定义及创建
分享到:

评论抢沙发

评论前必须登录!