vba에서 한 조건 아래에서 전체 행을 자동으로 삭제하는 방법은 무엇입니까?

Question

저는 Vba의 초보자입니다. 나는 행이 이십 기가 바이트 데이터베이스에서 삭제하기 위해 다음과 같은 간단한 루프 코드를 가지고 열 아홉 셀 값 "NA"

Dim n As Integer 
n = 500 

    For i = 1 To n 
    If Cells(i, 9).Value = "n.a." Then 
    Rows("i:i").Select 
    Selection.Delete Shift:=xlUp 

    End If 
    Next i 

End Sub 

하지만 1004 오류가, 누군가가 나에게 제발 도움을 줄 수? 당신은 작은 가장 큰에서 그 일을 시작 행을 삭제하는 때마다

당신에게

Answer 1

Option Explicit 

Public Sub TestMe() 

    Dim n As Integer 
    n = 500 

    For i = n To 1 Step -1 
     If Cells(i, 9).value = "n.a." Then 
      rows(i & ":" & i).Select 
      Selection.Delete Shift:=xlUp 
     End If 
    Next i 

End Sub 

대단히 감사합니다. 나중에 Select을 피하는 방법과 Union을 사용하는 방법을 한 번에 삭제할 수 있습니다. 마지막으로 Integer을 Long으로 바꿀 수 있습니다. 당신은 단순히이 필요

Answer 2

...

이

Dim n As Integer 
n = 500 
    For i = n To 1 Step -1 
    If Cells(i, 9).Value = "n.a." Then Rows(i).Delete 
    Next i 

편집 : 더 정확하게

또는이는 동적으로 만들 수 ...

Application.ScreenUpdating = False 
Dim n As Long 
n = Cells(Rows.Count, 9).End(xlUp).Row 
    For i = n To 1 Step -1 
    If Cells(i, 9).Value = "n.a." Then Rows(i).Delete 
    Next i 
Application.ScreenUpdating = True 

Answer 3

가장 빠른 방법이 삭제 값이 자동 필터를 사용하고 있습니다. 루프가 필요 없습니다.

Option Explicit 

Public Sub AutoFilterDelete() 

    With Range("I1:I500") 
    .AutoFilter Field:=1, Criteria1:="n.a" 
    .Resize(WorksheetFunction.Match("*", .Cells, -1)).SpecialCells(xlCellTypeVisible).EntireRow.Delete 
    .Parent.AutoFilterMode = False 
    End With 

End Sub