當 vlookup 返回 #N/A 時刪除行

Question

我正在使用下面的代碼，但不確定如何刪除行。

Sub DebitNote()

Do

'=VLOOKUP('Cost Gained'!$H2,SupplierSheetWithAddress!$A$1:$M$101,7,0)
ActiveCell.Offset(0, 4).FormulaR1C1 = "=VLOOKUP('Cost Gained'!RC8,SupplierSheetWithAddress!R1C1:R101C13,7,0)"


This starts in ("Cost Gained") from Column L,M,N,O,P,R
#N/A    #N/A    #N/A    #N/A    #N/A    #N/A    #N/A
365 FOSSE WAY   SYSTON  UK  LE7 1NL         
SIR HENRY PARKES Rd CANLEY  COVENTRY    UK      CV5 6BN     
69-75 BOSTON MANOR ROAD BRENTFORD   UK  TW8 9JJ         
365 FOSSE WAY   SYSTON  UK  LE7 1NL         
PRAGSTR. 26-46  STUTTGART   GERMANY 70376           
69-75 BOSTON MANOR ROAD BRENTFORD   UK  TW8 9JJ         
#N/A    #N/A    #N/A    #N/A    #N/A    #N/A    #N/A
33 WEST STREET  ALFORD-LINCOLNSHIRE UK  LN13 3DQ    

我有一個循環來將數據復制到另一張紙上的特定單元格中，所以我不希望它選擇 #N/A 並將其發送出去，因為它不會有任何好處。 任何幫助是極大的贊賞！

Answer 1

繼續我的評論 - 只需過濾掉錯誤並復制可見單元格。

下面的示例顯示了基礎知識：

Sub Test()

    With ThisWorkbook.Worksheets("Sheet1")
        'Set up some data with a few #N/A errors
        .Range("A1:D1") = Array("A", "B", "C", "D")
        .Range("A2:D20") = Rnd
        .Range("A6,A9,A12,A17").FormulaR1C1 = "=NA()"

        'Filter out the #N/A errors and copy the visible cells to a new sheet.
        With .Range("A1:D20")
            .AutoFilter Field:=1, Criteria1:="<>#N/A"
            .SpecialCells(xlCellTypeVisible).Copy _
                Destination:=ThisWorkbook.Worksheets("Sheet2").Range("A1")
        End With
    End With

End Sub