1、VBA出现错误9的时候，首先点击调试，查看问题。
3、根据验证得到解决方法：
将t=0更改为t=1，由于arr数组的dimmension从1开始（ ReDim arr(1 To UBound(aryValues)) ）：
t = 1
For i = LBound(aryValues) + 1 To UBound(aryValues)
For Each v In dict.Keys
If v = aryMembers(i) And c = 0 Then
arr(t) = aryValues(i)
c = c + 1
t = t + 1
End If
Next
c = 0
Next
苏公网安备 32132202001088号
| Copyright 北极熊 北格技术 版权所有
