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