我與此參考有類型不匹配錯誤

Question

這是我遇到問題的代碼。 當B列對應行中的值為Deuterium時，我只是試圖將值“ 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