Почему я получаю «ошибку несоответствия типа» для этого кода?

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