我有这个参考types不匹配错误

这是我有一个问题的代码。 我只是试图在列B中的对应行中的值是氘时将值“0”input到列G中。 debugging器告诉我我的错误在于包含If语句的行。

For i = 3 To 30 If Worksheets("Master PEC").Cells(i, 2) = "Deuterium" Then Worksheets("Master PEC").Cells(i, 7).Value = 0 End If Next 

截图：

Answer 1

你不能把一个错误和一个string等同起来。

您将需要添加一个检查来不testing错误。

 For i = 3 To 30 If Not IsError(Worksheets("Master PEC").Cells(i, 2)) Then If Worksheets("Master PEC").Cells(i, 2) = "Deuterium" Then Worksheets("Master PEC").Cells(i, 7).Value = 0 End IF End If Next