Excel VBA 매크로 : 필터를 통합하고 매크로를 사용하여 표시되는 빈 행을 삭제합니다.

Question

~ 50,000 행의 스프레드 시트가 있습니다. 이 값은 더 많은 데이터를 가져 오는 기능이 있기 때문에 변동됩니다.

내가 바라는 것은 필자가 원하지 않는 항목을 표시하기 위해 내 열 필터 (행 2)를 사용할 수 있어야합니다. 그런 다음 매크로는 보이는 모든 값을 삭제하고, 필터를 끄고, 모든 빈 행을 삭제하고, 마지막으로 2 행의 필터를 다시 켭니다. 다음 코드는이를 위해 설계되었지만 데이터 행렬 전체에 빈 행을 남겨 둡니다. 도와 줘서 고마워!

Sub DeleteVisible_Empty_BlankRows() 
    Application.ScreenUpdating = False 
    Range("C3:V" & rows.count).ClearContents 
    Worksheets("MyDataPull").AutoFilterMode = False 

'Ungroup & regroup necessary columns 
    Columns("F:K").Columns.Ungroup 

    Dim r As Range, emrows As Long, i As Long 
    LRI = Mydatapull.Cells(Mydatapull.rows.count, "C").End(xlUp).Row 

'Filter column C from A to Z so that blanks are put at the bottom 
    Range("C3:V" & LRI).Sort Key1:=Range("C3"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal 

'Filter to only show blanks 
    Range("C3:V" & LRI).AutoFilter Field:=1, Criteria1:="=", Operator:=xlOr, Criteria2:="=" & "" 

'Delete blanks 
    Range("C3:V" & LRI).EntireRow.Delete 

'Turn filters back on 
    Worksheets("MyDataPull").AutoFilterMode = False 

'Delete Extra rows 
    LRI = Mydatapull.Cells(Mydatapull.rows.count, "C").End(xlUp).Row 
    Range("C" & LRI + 1 & ":V" & rows.count).EntireRow.Delete 

    Mydatapull.Range("C2:V2").AutoFilter 
    Columns("F:K").Columns.Group 

End Sub 

Answer 1

나는 이것을 알아 냈다. 위의 업데이트 된 코드를 참조하십시오.

Answer 2

먼저 데이터를 제거한 다음 빈 행을 삭제 해 보았습니까? 나는 시트가 여과되지 않을 때 개인적으로 더 많은 성공을 콘텐츠를 가지고 해왔다. 추가 시도 :

ActiveSheet.AutoFilter.Sort.SortFields.Clear ActiveSheet.ShowAllData

당신이 빈 행을 삭제하기 전에.

저에게 맞는 작품인지 알려주세요.