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(