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 2023 北极熊网 版权所有