兰色幻想Excel VBA数组入门教程集合 1. 前言：不要把VBA数组想的太神秘，它其实就是一组数字而已。 2. 数组的维数： Sub 数组示例() Dim x As Long, y As Long Dim arr(1 To 10, 1 To 3) '创建一个可以容下10行3列的数组空间 For x = 1 To 4 For y = 1 To 3 arr(x, y) = Cells(x, y) '通过循环把单元格区域a1:c4的数据装进数组中 Next y Next x MsgBox arr(4, 3) '根据提供的行数和列数显示数组 arr(1, 2) = "我改一下试试" '你可以随时修改数组内指定位置的数据 MsgBox arr(1, 2) End Sub 总结：二维是由行和列表示的数组，如ARR(3,2)表示数组中第3排第2列的元素。而一维数组只是由一个元素决定，如ARR（4）表示数组中第4个元素 3. 把单元格数据搬入内存： 一、声明： Dim arr as Variant '声明一个变量，不能声明其他数据类型 Dim arr(1 to 10, 1 to 2 ) , 这种声明也是错误的，固定大小的VBA数组是不能一次性装入单元格数据 或：dim arr() 这种声明方式是声明一个动态数组，也可以装入单元格区域，构成一个VBA数组。 二、装入 arr =range("a9:c100") '装入很简单，变量 = 单元格区域 三、读出 装入数组后的单元格数值，可以按 数组名称(行数，列数) 直接读取该位置的值，如下面的代码。 Msgbox arr(3,2) '就可以取出搬过去的而构成的数组第3行第2列的内容 四、示例 Sub s3() Dim arr() '声明一个动态数组（动态指不固定大小） Dim arr1 '声明一个Variant类型的变量 arr = Range("a1:c7") '把单元格区域A1：C7的值装入数组arr arr1 = Range("a1:c7") '把单元格区域A1：C7的值装入数组arr1 MsgBox arr(1, 1) '读取arr数组中第1行第1列的数值 MsgBox arr1(2, 3) '读取arr1数组的第2行第3列的数值 End Sub 4. 把单元格数据搬入内存： Sub test() Dim arr '声明一个变量用来盛放单元格数据 Dim x As Integer arr = Range("a2:d5") '把单元格数据搬入到 arr里，它有 4列4行 For x = 1 To 4 '通过循环在 arr数组中循环 arr(x, 4) = arr(x, 3) * arr(x, 2) '数组的第4列(金额)=第3列*第2例 Next x Range("a2:d5") = arr '把数组放回到单元格中 End Sub Sub test1() Dim arr(1 To 5) '声明一维数组 For x = 1 To 5 arr(x) = x * 2 '通过循环给每个位置赋值 Ne...
