Visual Basic：运行时错误“9”：“下标超出范围”

我正在尝试创build一个脚本，可以删除数字列表中的重复项。 唯一的问题，是我不断得到下Subscript out of range (Error 9) 。

 Sub remDupes() Dim units() As Variant For i = 2 To 37 Dim var As String If ((Not Not units) = 0) Then For x = 0 To 36 var = Cells(i, 22).Value If (units(x) = var) Then Range("V" & i, "AA" & i).Value = "" Else units(x) = var End If Next End If Next End Sub 

错误发生在：

 If (units(x) = var) Then 

我不知道为什么

Answer 1

您需要在触发错误的行之前添加下面的行。

 ReDim Preserve units(0 To x) 

新代码将如下所示。

 Sub remDupes() Dim units() As Variant For i = 2 To 37 Dim var As String If ((Not Not units) = 0) Then For x = 0 To 36 var = Cells(i, 22).Value ReDim Preserve units(0 To x) If (units(x) = var) Then Range("V" & i, "AA" & i).Value = "" Else units(x) = var End If Next End If Next End Sub