Mein Makro nimmt den Wert "# N/V" nicht auf, um den Inhalt zu löschen

Question

So habe ich einen Bereich von Daten von Spalte A bis J (Zeilen können variieren). Was ich brauche, um mein Makro zu machen, ist, wo der Zellenwert in Zeile a entweder IGNORE oder # N/A ist und den Inhalt der gesamten Zeile zu löschen. Danach habe ich VBA löschen alle leeren Zeilen. Das Problem, das ich erfahre, ist, dass VBA den "# N/A" -Wert nicht aufheben und den Inhalt löschen möchte - wenn ich das weglasse, macht es genau das, was ich nur mit IGNORE will.

Bitte kann mir jemand helfen - ich denke, es könnte etwas mit N/A zu tun, nicht als Text aufgenommen wird ?.

Vielen Dank.

Dim end_range As Double 
Dim n As Double 

'Set the range in which to search for Ignore 

Sheets("Submit").Select 
Range("A1").End(xlDown).Select 
end_range = ActiveCell.Row 

'Store the values of in a range 
ReDim storeval(end_range) 

For n = 1 To end_range 
    storeval(n) = Range(Cells(n, 1), Cells(n, 1)).Value 
    Range(Cells(n, 2), Cells(n, 2)).Value = storeval(n) 
Next n 

'Delete the entirerow if the value contains ignore or N/A 
For n = 1 To end_range 
    If storeval(n) = "IGNORE" Or storeval(n) = "#N/A" Then 
    Range("A" & n).EntireRow.ClearContents 
    End If 
Next n 

Sheets("Submit").Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 

Answer 1

Wenn Sie =NA() in Ihre Zellen verwenden, dann die #N/A, die Sie sehen, ist nur eine Textdarstellung eines Fehlerobjekt. Anstatt also die storeval(n) = "#N/A" zu verwenden, müssen Sie prüfen, ob:

• es ein Fehler ist, IsError
• mit es ist der Fehler NA CVErr(xlErrNA)

verwendet, ist hier eine kleine Funktion, wird Sie gelten die Zelle NA und falsch, wenn es nicht NA:

Function IsNa(value) 
    If Not IsError(value) Then 
     IsNa = False 
    ElseIf value = CVErr(xlErrNA) Then 
     IsNa = True 
    Else 
     IsNa = False 
    End If 
End Function 

Dann rufen Sie einfach es von 012.

Answer 2

zu beschmutzen "#N/A" Sie Zelle Wert CVErr(xlErrNA)

Sie könnten auch wechseln möchten Ihre If und Or mit Select Case

For n = 1 To end_range 
    Select Case storeval(n) 
     Case "IGNORE", CVErr(xlErrNA) 
      Range("A" & n).EntireRow.ClearContents 
    End Select 
Next n