求和两列 - 类型不匹配错误

Question

我想总结两列，但我不断收到类型不匹配的错误消息。我的错误在哪里？

addressTO

以下可能是我的问题，我检查了空白单元格并找到了非单元格。但我可以看到空白细胞。

Answer 1

您尝试添加的值之一很可能不是数字，因此在尝试添加它们之前，请检查它们是否为数字和非空白。

For i = 2 To LastRow
  If Len(Range("C" & i).Value) > 0 And Len(Range("D" & i).Value) > 0 Then
    If IsNumeric(Range("C" & i).Value) And IsNumeric(Range("D" & i).Value) Then
      Range("E" & i).Value = Range("C" & i).Value + Range("D" & i).Value
    End If
  End If
Next i

此外，您可能最好只使用公式：

Range("E" & i).Formula = "=C" & i & "+D" & i