Excel VBA – search＃N / A的特定列，将整行复制到新工作表并删除行

这是我已经。 它在表1中的列B中search＃N / A并删除该行。

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

我想它是将该行复制到工作表2，然后删除？ 所以我可以logging下被删除的内容。

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

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