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