excel - VBA 宏如果单元格包含 #N/A 然后在以下列中输入文本

Question

我有一个 excel 文档，其中将数据复制到 B 列。如果 B 列中的任何单元格 =“#N/A”，我希望我的宏在 C 列中输入注释。我的循环宏一直工作到结束时它无法再找到“#N/A”值，然后我收到错误“无效的过程调用或参数”。我在这里的宏中遗漏了什么吗？

Sub Private()

    Dim ws As Worksheet
    Dim cel As Range

Set ws = ThisWorkbook.Sheets("Sheet1")
    For Each cel In ws.Range("B2:B5000")
        If CVErr(cel.Value) = CVErr(xlErrNA) Then
            cel.Offset(0, 1).Value = "Please build missing name"
        End If
    Next cel


End Sub

干杯，

布兰登·M。

标签： excelvbaloops

Answer 1

试试这个：

Sub whateverr()

    Dim ws As Worksheet
    Dim cel As Range

Set ws = ThisWorkbook.Sheets("Sheet1")
    For Each cel In ws.Range("B2:B5000")
        If cel.Text = "#N/A" Then
            cel.Offset(0, 1).Value = "Please build missing name"
        End If
    Next cel
End Sub