Excel 2013 VBA運行時錯誤13類型不匹配

Question

我目前正在處理Excel文件並添加了一些VBA。 我在Sheet1上添加了一個帶有以下VBA的按鈕：

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

代碼的目的是在包含“XXXXXX”的單元格上方的Sheet1上添加一個新行，在包含“YYYYYY”的單元格上方的Sheet2上添加一個新行。 在Sheet1上添加新行有效。 但是，在Sheet2上添加新行不會。 我得到一個'運行時錯誤13類型不匹配'錯誤在If d.Value Like "YYYYYY" Then但沒有錯誤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