vba - Excel VBA - 在特定列中搜索#N/A，将整行复制到新工作表并删除行

Question

这是我已经拥有的。它在工作表 1 的 B 列中搜索 #N/A 并删除该行。

Sub DeleteErrorRows()
    On Error Resume Next    
    Range("B:B").SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
    On Error GoTo 0     
End Sub

我想要的是将该行复制到工作表 2 上然后删除？所以我可以记录被删除的内容。

任何帮助将非常感激。谢谢！

Answer 1

考虑：

Sub DeleteErrorRows()
    Dim r As Range
    Set r = Range("B:B").SpecialCells(xlCellTypeConstants, 16).EntireRow
    r.Copy Sheets("Sheet2").Range("A1")
    r.Delete
End Sub