下標超出範圍，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