공식, 모든을 ("<>") 빈 이외 "J1"아무것도에

Question

Dim rng3 As Range 

    Set rng3 = Range("J1").CurrentRegion 

    rng3.AutoFilter Field:=10, Criteria1:="<>", Operator:=xlFilterValues 

    With rng3 
     With .Offset(1).Resize(.Rows.Count - 1) 
      Application.DisplayAlerts = False 
      .Rows.Delete 
      Application.DisplayAlerts = True 
     End With 
    End With 

위 (이론) 코드 필터를 삭제하고 결과를 삭제 . 문제는 J 열에 이미 빈 데이터 만 있으면 모든 것을 삭제하는 것입니다.

Answer 1

난 그냥 시도하고 다음 테스트는 예상대로 수행했습니다

Sub foo() 
    Set rng3 = Range("J1").CurrentRegion 
    rng3.AutoFilter Field:=10, Criteria1:="<>", Operator:=xlFilterValues 

    With rng3.SpecialCells(xlCellTypeVisible) 
      Application.DisplayAlerts = False 
      NewAddress = Replace(rng3.Rows.Name, "A$1", "A$2") 
      Range(NewAddress).Delete 
      Application.DisplayAlerts = True 
    End With 
End Sub 

또는 다른 접근 방식 사용 :

Sub foo2() 
LastRow = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row 'Find the last row with data on Column A 

For i = 2 To LastRow 'Loop from Row 2 to the Last Row with data 
    If Sheet1.Cells(i, 10).Value <> "" Then Sheet1.Rows(i).Delete 'Check Column J for any value, and if it has a value delete that row 
Next i 
End Sub