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

我目前正在处理Excel文件并添加了一些VBA。 我用下面的VBA在Sheet1上添加了一个button:

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上添加新行不会。 我得到了一个'运行时错误13types不匹配'错误在If d.Value Like "YYYYYY" Then但没有错误If c.Value Like "XXXXXX" Then ,我不知道为什么。 提前致谢

尝试改变

  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