为什么我收到此类代码的'类型不匹配错误'？

Question

我想指定一个单元格范围来显示＃N/A如果字符结果没有显示，另一个单元格范围显示＃DIV/0！如果数字结果没有显示。下面是导致我收到“类型不匹配”错误的代码。我应该如何编辑？

Sub novalue() 

    Dim x As Integer 

    For x = 2 To 100 

    If Cells(x, 7).Value = 0 Then 
    Cells(x, 7).Value = "#N/A" 

    ElseIf Cells(x, 8).Value = 0 Then 
    Cells(x, 8).Value = "#N/A" 

    End If 

Next x 
End Sub 

Answer 1

试试这个代码，请：

Sub novalue() 
For Each cell In Range("A1:C100") 
    If cell.Value = "" Then 
     cell.Value = "#N/A" 
    End If 
Next cell 
For Each cell In Range("D1:BV100") 
    If cell.Value = "" Then 
     cell.Value = "#DIV/0!" 
    End If 
Next cell 
End Sub