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

 

 

 

 

二维数组