1. 需求
申请动态数组
2. 实现代码
Function dynamicArr()
Dim arr() As String
ReDim arr(2) '申请数组大小为2(0,1,2)
arr(0) = "0"
arr(1) = "1"
arr(2) = "2"
For Each strTmp In arr
Debug.Print strTmp
Next
Debug.Print "/////"
ReDim Preserve arr(4) '重新申请数组大小,并保存数据
arr(<