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

if语句visual basic的对象必需错误

1 个答案: