在VBA中，数组是一组有序的变量的集合，相对于单个变量来说，可以更方便地组织和使用数据。

1 初始化数组

潜水艇使用循环初始化数组()

将a(1 To 10)设为整数

对于i=1到10

a(i)=0

接下来我

末端接头

1.2 使用排列函数初始化数组

潜水艇使用排列函数初始化数组()

昏暗的a As Variant,b作为变体

a = Array(1, 3, 5, 7, 9)

b=数组(“甲”、“乙”、“丙”、“丁”)

末端接头

1.3 使用数组值初始化数组

潜水艇用已有数组初始化数组()

Dim a(5), b()

对于i=0到5

a(i)=i

然后

b = a

末端接头

2 使用动态数组

潜水艇动态数组()

Dim i为整数，j为整数

i=Val(InputBox("请输入数组的上界", "定义动态数组", 5))

ReDim reData(i)

对于j=1至我

reData(j)=InputBox("请输入数组的第" j "个元素的值")

然后

对于j=1至我

调试。打印数据(j)

然后

末端接头

3 清除数组

暗淡的数据(10)为整数，str1为字符串

str1="原数组中的数据：" vbNewLine

对于i=0到10

aData(i)=i

str1=str1 "aData(" i ")=" aData(i)" "

然后

擦除数据删除原数组

str1=str1 vbNewLine "使用抹去命令清除数组阿达塔：" vbNewLine

对于i=0到10

str1=str1 "aData(" i ")=" aData(i)" "

然后

MsgBox str1

末端接头

4 查询数组的下标范围

昏暗的aData(-100 To 100, 5 To 15, -3 To 4)

将str1标注为字符串

str1="数组各维的下界为：" vbNewLine

str1=str1 "第一维："LBound(aData, 1)vbNewLine

str1=str1 "第2维：" LBound(aData，2) vbNewLine

str1=str1 "第3维：" LBound(aData，3) vbNewLine

str1=str1 vbNewLine "数组各维的上界为：" vbNewLine

str1=str1 "第一维：" UBound(aData，1) vbNewLine

str1=str1 "第2维：" UBound(aData，2) vbNewLine

str1=str1 "第3维：" UBound(aData，3) vbNewLine

MsgBox str1

末端接头

5 数组元素排序

潜水艇数据排序()

Dim i为整数，j为整数

暗淡k

Dim s(10)为整数

对于i=1到10

s(I)=1应用InputBox(“输入第"我"个数据：", "输入数组", 1)

然后

对于i=1到9

对于j=1到10

如果西印度群岛那么

t=s(i)

s(i)=s(j)

s(j)=t

如果…就会结束

然后

然后

对于s中的每个k

调试。打印k

然后

末端接头

6 用数组生成彩票号码

潜水艇幸运号码()

暗淡的为整数，我为整数，j为整数

尺寸l()为整数

n=应用InputBox(“请输入需要产生幸运号码的数量：", "幸运号码", 2)

将第七区重新定为整数

对于i=1至n

对于j=1到七

Randomize

l(i, j) = Int(10 * Rnd)

然后

然后

对于i=1至n

对于j=1到七

调试Print l(i，j)；

然后

调试。打印

然后

末端接头

7 用数组填充单元格区域

潜水艇数组填充单元格区域()

Dim i一样长，j一样长

昏暗的列一样长，行一样长

Dim arr() As Long

行=应用程序InputBox(prompt:="输入行数："，Type:=2)

列=应用InputBox(prompt:="输入列数："，Type:=2)

ReDim arr(行，列)

对于i=1的行

对于j=1至山口

arr(i, j) = (i 1) * col + j

然后

然后

Set Rng = Sheets(3).Range(Cells(1, 1), Cells(row, col))

Rng .值=数组

末端接头