Sub da()
Dim arr, y, x
Set arr = CreateObject("scripting.dictionary")
Dim arr1
arr1 = Range("a1").CurrentRegion
ReDim arr(1 To UBound(arr1, 2)) As New Dictionary '根据列数确定数组内字典的个数
For x = 2 To UBound(arr1)
For y = 1 To UBound(arr)
arr(y)(arr1(x, y)) = "" '第一列装入第一个字典内,第二列装入第二个字典内。。。
Next y
Next x
Stop
End Sub
这个是一个后期绑定,但是为什么总是会出现“对象变量或with块变量未设置的错误”