Excel 2013 VBA 运行时错误 13 类型不匹配

Question

我目前正在处理 Excel 文件并添加了一些 VBA。我使用以下 VBA 在 Sheet1 上添加了一个按钮:

Sub AddRow()
Dim c, d As Range
Set rng = ActiveSheet.Range("A1:A100")
Set rng2 = Worksheets("Sheet2").Range("A1:A100")
For dblCounter = rng.Cells.Count To 1 Step -1
    Set c = rng(dblCounter)
   If c.Value Like "XXXXXX" Then
        c.EntireRow.Insert
        For dblCounter2 = rng2.Cells.Count To 1 Step -1
        Set d = rng2(dblCounter2)
        If d.Value Like "YYYYYY" Then
        d.EntireRow.Insert
        End If
        Next dblCounter2
    End If
Next dblCounter
End Sub

该代码的目的是在 Sheet1 上包含“XXXXXX”的单元格上方添加一个新行，并在 Sheet2 上包含“YYYYYY”的单元格上方添加一个新行。在 Sheet1 上添加新行是可行的。但是，在 Sheet2 上添加新行则不然。我在 If d.Value Like "YYYYYY"then 处收到“运行时错误 13 类型不匹配”错误，但在 If c.Value Like "XXXXXX"Then 处没有错误，并且我不知道为什么。提前致谢

Answer 1

尝试改变

                If d.Value Like "YYYYYY" Then
                    d.EntireRow.Insert
                End If

到此

If Not IsError(d.Value) Then
   If d.Value Like "YYYYYY" Then d.EntireRow.Insert
End If