Cacher is the code snippet organizer for pro developers

' 声明动态数组
Dim Int_a As Integer   '定义一个Integer类型的变量，名称为 Int_a
'用工作表函数COUNTA求A列中的非空单元格个数，将结果保存在变量a中
Int_a = Application.WorksheetFunction.CountA(Range("A:A"))
Dim arr() As String       '定义一个String类型的动态数组
ReDim arr(1 To Int_a)     '重新定义数组arr的大小

' 1. 通过Array 函数创建数组
Dim arr As Variant                           '定义一个Variant类型的变量，名称为arr
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)   '将1到10的自然数存储到数组arr中

' 2. 通过 Split 函数创建数组
Dim arr As Variant                          '定义一个Variant类型的变量，名称为arr
arr = Split("叶枫,空空,小月,老祝", ",")   '将字符串按逗号拆分，存储到数组arr中

' 3. 通过单元格区域直接创建数组
Dim arr As Variant                 '定义一个Variant类型的变量，名称为arr
arr = Range("A1:C3").Value         '将A1:C3中保存的数据存储到数组arr
' 注意：无论是将单行、单列，还是多行、多列区域中的数据存储到数组中，所得到的的索引号都是从1开始的二维数组，因此引用数组中的某个元素时，需要用到两个数字
MsgBox arr(2,3)