Excel-宏与VBA-数组

数组

1. 新方法
   LBound(myArray)，一维数组最小角标，
   UBound(myArray)，一维数组最大角标
   Option Base 1，修改默认最小角标为1，不修改默认为0
   LBound(myArray, 1)，二维数组行的最小角标
   LBound(myArray, 2)，二维数组列的最小角标
   UBound(myArray, 1)，二维数组行的最大角标
   UBound(myArray, 2)，二维数组列的最大角标
   ReDim myArray(1 To 3)，重置动态数组的最大和最小角标，调整后之前赋值被抹除
   ReDim Preserve myArray(1 To 3)，重置动态数组的最大和最小角标，调整后保存之前赋值

一维数组

1. 基本使用案例

Option Explicit

Sub ArrayTest()
  ' 声明数组
  Dim myArray(1 To 3) As Integer
  ' Dim myArray(3) As Integer
  
  ' 为数组赋值
  myArray(1) = 0
  myArray(2) = 10
  myArray(3) = 20

  ' 访问数组值 输出 10
  MagBox myArray(2)

  ' 遍历数组
  For index = 1 To 3
    MsgBox myArray(index)
    Next index

  For index = LBound(myArray) To UBound(myArray)
    MsgBox myArray(index)
    Next index
End Sub

二维数组

1. 基本使用案例

Option Explicit

Sub ArrayTest()
  ' 声明数组
  Dim myArray(1 To 2,1 To 2) As Integer
  ' Dim myArray(3) As Integer
  
  ' 为数组赋值
  myArray(1 , 1) = 0
  myArray(1 , 2) = 0
  myArray(2 , 1) = 10
  myArray(2 , 2) = 10

  ' 访问数组值 输出 10
  MagBox myArray(2, 1)

  ' 遍历数组
  For index_x = 1 To 2
    For index_y = 1 To 2
      MsgBox myArray(index_x, index_y)
       Next index_y
    Next index_x

  For index_x = LBound(myArray, 1) To UBound(myArray, 1)
    For index_y = LBound(myArray, 2) To UBound(myArray, 2)
      MsgBox myArray(index_x, index_y)
       Next index_y
    Next index_x
End Sub

动态数组

1. 基本使用案例

Option Explicit
Sub myDynArray()
  ' 声明动态数组
  Dim myArray() As Integer
  ' 重置数组角标，不保留之前数据
  ReDim myArray(1 To 3)
  ' 重置数组角标，保留之前数据
  ReDim Preserve myArray(1 To 4)
End Sub