VBA는 N/A가 발견되면 행을 삭제하는 Excel 코드입니다

Question

전체 열에서 N/A 셀을 찾은 다음 N/A이 발견되면 전체 행을 삭제할 수있는 방법을 찾고 있습니다. 이 VBA 코드를 찾았지만 하나의 열만 선택했기 때문에 나에게 적합하지 않습니다. 도와주세요 (I 엑셀 맥 2011 년에 300,000 행 주위에 있어요)

Sub DeleteBlankARows() 
    With Application 
     .Calculation = xlCalculationManual 
     .ScreenUpdating = False 
     Dim r As Long 
     For r = Cells(Rows.Count, 11).End(xlUp).Row To 1 Step -1 
      If Cells(r, 11) = "" Then Rows(r).Delete 
     Next r 
     .Calculation = xlCalculationAutomatic 
     .ScreenUpdating = True 
    End With 
End Sub 

Answer 1

보십시오이 (윈도우 XP/Excel 2007을 테스트하지만 맥/오피스 2011 작동합니다) :

Option Explicit 

Sub DeleteNARows() 
    Dim r As Long 
    Dim iCol As Long 
    With Application 
     .Calculation = xlCalculationManual 
     .ScreenUpdating = False 
     .DisplayAlerts = False 
     For iCol = 1 To Cells(1, Columns.Count).End(xlToLeft).Column 
      For r = Cells(Rows.Count, iCol).End(xlUp).Row To 1 Step -1 
       If Application.WorksheetFunction.IsNA(Cells(r, iCol)) Then Rows(r).Delete 
      Next r 
     Next iCol 
     .Calculation = xlCalculationAutomatic 
     .ScreenUpdating = True 
     .DisplayAlerts = True 
    End With 
End Sub 

당신이

Answer 2

또 다른 방법은 신속하게 NA() (나는 당신의 아르를 가정 한 있었는지 세포 테스트 Find을 사용하는 것입니다 코드의 시작에서 #N/A FOT 확인하려는 당신이 열을 변경 (아마 할) 수 있습니다 0에 대한 테스트수식 셀로 - 업데이트 할 수 있거나 텍스트 일 ​​수 있습니다.

이 코드는 SpecialCells을 사용하여 오류 값만 검색합니다.

Sub GetNA() 
Dim rng1 As Range 
Dim rng2 As Range 
Dim rng3 As Range 
Dim strFA As String 

On Error Resume Next 
Set rng1 = ActiveSheet.UsedRange.SpecialCells(xlFormulas, xlErrors) 
On Error GoTo 0 

If rng1 Is Nothing Then 
    MsgBox "No NA() cells" 
    Exit Sub 
End If 

With rng1 
    Set rng2 = .Find("=NA()", LookIn:=xlFormulas) 
    If Not rng2 Is Nothing Then 
     strFA = rng2.Address 
     Set rng3 = rng2.EntireRow 
     Do 
      Set rng2 = .FindNext(rng2) 
      Set rng3 = Union(rng3, rng2.EntireRow) 
     Loop While Not rng2 Is Nothing And rng2.Address <> strFA 
    End If 
    If Not rng3 Is Nothing Then rng3.Delete 
End With 

End Sub