自动填充时出现错误 80010108

Question

我正在编写代码，但收到 -2147417848 (80010108) 错误。我知道这是每次它“得到”空单元格时造成的，但我不知道如何修复它，有人可以帮助我吗？代码如下：

Dim i, g As Integer

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    g = 12

    For i = 3 To 5000

        If Worksheets("Registo_EPI´s").Cells(i, 1).Value = Cells(4, 20).Value Then
            Cells(g, 21).Value = Worksheets("Registo_EPI´s").Cells(i, 5).Value
            g = g + 1
        End If

    Next i

End Sub

每当 Cells(i,5) 范围内的单元格为空白时，代码就会崩溃。例如，如果在单元格（3,5）中我有一个数字或日期，如果在单元格（4,5）中我没有任何东西，它就会崩溃。希望你们能帮助我。谢谢

Answer 1

我认为您的 Worksheet_Change 事件处理程序很可能无意中调用自身，这可能是问题的根源。

例如，如果显示的 Worksheet_Change 事件处理程序适用于 Sheet1（因此像 Cells(4, 20).Value 这样的非限定引用也引用Sheet1) 那么当您更改 Cells(g, 21) 的值时，Sheet1 的 Worksheet_Change 事件处理程序为又打来电话等等 在。

您应该使用事件处理程序的 Target 参数来防止这种情况。例如，如果您只对 Cells(4, 20) 的更改感兴趣，那么您可以：

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If (Target.Address(ReferenceStyle:=xlR1C1) = "R4C20") Then
        g = 12

        For i = 3 To 5000

            If Worksheets("Registo_EPI´s").Cells(i, 1).Value = Cells(4, 20).Value Then
                Cells(g, 21).Value = Worksheets("Registo_EPI´s").Cells(i, 5).Value
                g = g + 1
            End If

        Next i
    End If
End Sub