vba - 我有这个引用的类型不匹配错误

Question

这是我遇到问题的代码。当B列中相应行中的值为氘时，我只是尝试将值“0”输入到G列中。调试器告诉我我的错误在于包含 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

您不能将错误等同于字符串。

您将需要添加一个检查以不测试错误。

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