我为什么会收到＆＃39;输入不匹配错误＆＃39;这段代码？

Question

我正在尝试指定一系列单元格显示#N / A（如果未显示字符结果），另一组单元格显示＃DIV / 0！如果未显示数字结果。以下是导致我收到类型不匹配的代码＆＃39;错误。我该如何编辑？

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

请试用此代码：

here