下标超出范围，VBA

Question

您好我收到错误作为下标超出范围，但我无法确定为什么。我是VBA新手，请帮助我。提前感谢。

Answer 1

变化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