vba - if 语句 Visual Basic 所需的对象错误

Question

我想在 VBA 中设置一个代码来识别范围内不是数字的任何单元格（例如#NUM！）并将其替换为语句。对于所有包含数字的单元格，我想保留这个数字的值我的代码是

Sub convert_cell()
    Dim c As range
    For Each c In ActiveCell.CurrentRegion.Cells
       If c Is Number Then
           c.Value = c.Value
       Else: c = "no ROI"
       End If
    Next c
End Sub

但是我收到消息：运行时错误“424”。所需对象。

Answer 1

试试下面的代码：

Sub convert_cell()
    Dim c As Range
    For Each c In ActiveCell.CurrentRegion
       If IsNumeric(c) Then
           c.Value = c.Value
       Else: c = "no ROI"
       End If
    Next c
End Sub