VBA 数组定义，赋值，一维数组

1VBA数组的基础定义

1.1什么是数组?

• 就是一组数/字符等用同一个名字(这个名字就是：数组名)，作为一个整体存储在一起

1.2什么是元素

• 这些被保存在同一个数组名下的，多个内容，称为element 元素
• 数组里的元素是可以重复的

1.3元素是怎么在数组内排序的？

• 数组是有序的
• 用什么来标识顺序呢？，就是index 
• index  是一串连续的整数（也可以为负数），index必须 连续，整数，可以为正负
• index默认是从0开始，但是不同的数组 赋值方式会导致index初始为0，或1
• index默认为0的情况：动态数组每一维的index都默认从0开始, dim arr1()  或 arr2=array(1,2,3)
• index默认为1的情况：数组被excel对象赋值时默认从1开始，range() 或 [{1,2,3}]
• index可以被控制，直接写 arr(1 to 3) 或 option base 1

2数组的生成

2.1数组的定义方式

• Dim arr1       ‘定义了一个变量
• Dim arr2()     ‘定义了一个动态数组，定义时重大变化，其中arr2就是数组名
• Dim arr3(3)    ‘定义为静态数组

2.2数组的赋值方式

• 逐个赋值？？ 有区别吗？
• 静态数组的逐个赋值
• 动态数组的逐个赋值

• 整体赋值
• 整体赋值1：用array()函数进行整体赋值，arr1=array(1,2,3)
• 整体赋值2：用[{}] 的表达式形式赋值，arr1=[{“a”,2,3}]
• 整体赋值3：用range，row, column等EXCEL的对象, 如 arr1=range(“a1:a10”)

3 数组的分类

3.1数组按来源分

• VBA原生数组
• EXCEL对象的数组

理论上，从EXCEL对象导入的range一定是二维数组

如果导入是cells等可以试试

可以试试row  cloumn ,selection

3.2 VBA原生数组分类

• 常量数组
• 静态数组
• 动态数组：动态数组的维数，长度都不确定

3.3数组按维度区分

区分的意义不是很大，一般都只用1维数组，2维数组，最多3维数组把。

• 1维
• 2维
• 3维

4 用不同的方式 定义 和赋值 数组

4.0 数组名

• 不管通过定义 dim arr1() 
• 还是通过赋值   arr1= array()  或 arr1=range()
• 一旦arr1() 成为数组，arr1  等价于  arr1() 都表示这个数组

4.1先定义为变量，再赋值为数组

• （如果没有option explict）
• 如果最初定义为变量
• Dim arr1  等价于  dim arr1 as variant  等价于  先无定义
• 那么当变量被赋值为一个数组时
• 变量名arr1就成了数组名，arr1()就表示是数组了
• 当这个变量有又被赋值为其他内容时，就不再代表数组了

Sub ponyma_array101() Dim arr1 '定义了一个变量 arr1 = Array(1, 2, 3, 4, 5) '赋值时，重大变化，arr1就是数组了，arr1也是数组名 '使用array函数，构造一个1维数组，然后赋值给变量。默认是从index的0开始 For i = 0 To UBound(arr1, 1) Debug.Print "arr1的第" & i & "个元素是" & arr1(i), "i是index" Next Debug.Print "" k = 0 For Each i In arr1 Debug.Print "arr1的第" & k & "个元素是" & i, "但是k不是index" k = k + 1 Next Debug.Print "" '变量仍然可以被赋值为其他内容 arr1 = 1 Debug.Print "arr1现在的的为" & arr1 End Sub

4.2  定义为动态数组

• 我理解动态数组，dim arr1()   是维度，长度都没确定的数组
• 要使用数组（也就是读，写的时候），数组必须 先界定维度和大小。
• 如何先定义数组呢？
• 方法1：都先redim
• 方法2：直接给数组赋值（不光界定了维度和大小，还赋值了）
• redim arr2() 的用法 几乎等价于   arr2=array() 赋值（赋值更进了一步）
•  
• 动态数组的赋值
• arr2=array() ，或arr2=range() 等等，各种数组赋值都可以
• arr2=1 是错误的，数组不能再被赋值为1个数值！只能是数组！
•  
• 数组可以随意redim，改变维度，长度都可以
• 就像数组可以被覆盖赋值一样
• 除非 redim preserve 要保留数组之前的值，就得让新redim的内容，包含之前的index范围！

 Sub ponyma_array101() Dim arr2() '定义了一个动态数组，定义时重大变化，其中arr2就是数组名 Dim arr20() Dim arr30() Dim arr40() arr2 = [{0,1,2,3,4,5}] 'arr2() 和arr2这2个不是一个东西? 事实证明是一个东西 '事实上不能同时声明 dim arr2 和 arr2()，会报错重复声明 'Debug.Print arr2(0) 出错证明这种赋值，是从index1开始的，不是默认方式 For i = 1 To UBound(arr2, 1) Debug.Print "arr2的第" & i & "个元素是" & arr2(i), "i是index" Next Debug.Print "" k = 1 For Each i In arr2 Debug.Print "arr2的第" & k & "个元素是" & i, "但是k不是index" k = k + 1 Next Debug.Print "" '由于arr2已经数数组，不能直接把1个值，赋值给数组，数组名的 'arr2 = 1 'Debug.Print arr2 arr2() = Array("a", "b", "c") 'arr2 和arr2() 是等价的 'arr2== Array("a", "b", "c") For i = 0 To UBound(arr2, 1) Debug.Print "arr2的第" & i & "个元素是" & arr2(i), "i是index" Next Debug.Print "" k = 1 For Each i In arr2 Debug.Print "arr2的第" & k & "个元素是" & i, "但是k不是index" k = k + 1 Next Debug.Print "" '不管数组里有没有赋值，只要不preserve，数组随便redim 'redim 功能，其实和全部重新赋值一样 '写在这里会报错，后面这句 arr20(1) = 1 '动态数组没赋值前，是不能操作array的读和写的 ReDim arr20(5) ReDim arr20(1, 7) ReDim arr20(3) arr20(1) = 100 Debug.Print arr20(1) arr20 = Array(6, 66, 666) Debug.Print arr20(1) Debug.Print "" ReDim arr40(5) arr40(1) = 2 ReDim arr40(1, 7) arr40(1, 1) = 22 ReDim arr40(3) arr40(1) = 222 Debug.Print arr40(1) '如果redim preserve，必须让新的redim包含老的index范围 arr30 = Array(10, 20, 30) 'ReDim Preserve arr30(0 To 2) 这样会报错 ReDim Preserve arr30(0 To 20) Debug.Print arr30(0) Debug.Print "" End Sub 

[特别] redim  还可以带参数，比如 redim (k)

• 如果知道数组大小，可以一次redim到位
• 适合不知道数组大小时，还可以多次redim

 Sub ponyma_array101() Dim arr5() Dim arr6() 'redim(k) 说明redim可以带变量 '两种redim都可行 For i = 0 To 10 ReDim arr5(i) '多次redim,适合不知道数组大小时 arr5(i) = i * i Debug.Print arr5(i) Next Debug.Print "换行"; '不换行 Debug.Print " " '打印1个空格 Debug.Print "" '换行 Debug.Print '换行 ReDim arr6(10) '知道数组大小，一次redim到位 For i = 0 To 10 arr6(i) = i * i Debug.Print arr6(i) Next End Sub 

• 动态数组，可以整体赋值，或单独赋值
• 动态数组，单独赋值前，必须先 界定好数组，比如redim 或 arr1=array 等
• 动态数组，可以随意，整体赋值，改变数组内容。但不能被赋值为非数组的变量值等

静态数组

• redim (5) 
• 静态数组不能再被重新redim  比如 redim（3） 会报错

5 数组的遍历

5.0 对数组的遍历存在2个思路

• 思路1：遍历index,然后查找对应的element
• 思路2：或者直接遍历element

遍历index真正保险的写法是

lbound() 和 ubound() 其实都是取的 index的上下范围

For i = lbound(arr2,1) To UBound(arr2, 1)

      Debug.print arr2(i)

next

5.1 一维数组

Sub ponyma_array1() '先学习1维数组，和数组赋值，以及取1维数组index和element Dim arr1 '定义了一个变量 Dim arr2() '定义了一个动态数组，定义时重大变化，其中arr2就是数组名 Dim arr3(3) arr1 = Array(1, 2, 3, 4, 5) '赋值时，重大变化，arr1就是数组了，arr1也是数组名 '使用array函数，构造一个1维数组，然后赋值给变量。默认是从index的0开始 For i = 0 To UBound(arr1, 1) Debug.Print "arr1的第" & i & "个元素是" & arr1(i), "i是index" Next Debug.Print "" k = 0 For Each i In arr1 Debug.Print "arr1的第" & k & "个元素是" & i, "但是k不是index" k = k + 1 Next Debug.Print "" '结论1：可以用变量，被赋值为一个数组 '获得数组元素的方法，可以遍历index，也可以直接遍历element arr2 = [{0,1,2,3,4,5}] 'arr2() 和arr2这2个不是一个东西? 事实证明是一个东西 '事实上不能同时声明 dim arr2 和 arr2()，会报错重复声明 'Debug.Print arr2(0) 出错证明这种赋值，是从index1开始的，不是默认方式 For i = 1 To UBound(arr2, 1) Debug.Print "arr2的第" & i & "个元素是" & arr2(i), "i是index" Next Debug.Print "" k = 1 For Each i In arr2 Debug.Print "arr2的第" & k & "个元素是" & i, "但是k不是index" k = k + 1 Next Debug.Print "" arr3(0) = 99 arr3(1) = 1 arr3(2) = 2 arr3(3) = 3 For i = 0 To UBound(arr3, 1) Debug.Print "arr3的第" & i & "个元素是" & arr3(i), "i是index" Next Debug.Print "" k = 0 For Each i In arr3() Debug.Print "arr3的第" & k & "个元素是" & i, "但是k不是index" k = k + 1 Next Debug.Print "" End Sub

二维数组