运行时13类型错配

Question

我有一个大约3000的名单，我正在使用下面的单词查找，以选择“国际贸易术语关税C”，并删除一大部分空白数据。(经A栏)

当运行下面的代码时，它将停留在大约第350行，并发出一条错误消息“运行时13，键入不匹配”。它在下面突出显示的行上停止。为什么？

Sub wordfind()

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

For I = LastRow To 1 Step -1
   If Range("A" & I).Value = "Incoterm   Tariff C" Then ' error occurs here
      Range("A" & I).Select
      Selection.EntireRow.delete
      ActiveCell.Offset(-13).Select
     ActiveCell.Resize(12).Select
      Selection.EntireRow.delete
   End If
 Next I

End Sub

• 这次做得更多了。对于卡在A296上，包含短语"Hawb“不知道为什么，它应该跳过这一行寻找下一个”国际贸易术语关税C“线检查它之前和之后的索引线，这是很好的。

Answer 1

取代：

If Range("A" & I).Value = "Incoterm   Tariff C" Then

通过以下方式：

If Range("A" & I).Text = "Incoterm   Tariff C" Then