Мой макрос удаляет только данные Excel, а не строки. Я хочу также удалить строки

Question

У меня есть макрос. При этом удаляются только данные, а не строки. Например, у меня есть 600 000 записей после макроса, он оставил 15 000 записей, но мой лист Excel показывает 600 000 записей - 15 000 записей с данными и пустыми, но я хочу, чтобы он показывал только 15 000 записей.

Все пустые строки должны быть удалены.

Макрос:

Sub DeleteRecord()
Dim MySheet As String
Dim cnt As Long
MySheet = ActiveSheet.Name
Cells(1, 1).CurrentRegion.AutoFilter Field:=33, Criteria1:= _
    ">=-.09", Operator:=xlAnd, Criteria2:="<=.01"
cnt = Worksheets(MySheet).Cells.SpecialCells(xlCellTypeLastCell).Row
If cnt > 3 Then Range("A2", ActiveCell.SpecialCells(xlLastCell)).Delete
Cells(1, 1).CurrentRegion.AutoFilter Field:=33
End Sub

Answer 1

Вы можете попробовать приведенный ниже код. Удаляет все выбранные строки.

  Sub DeleteRecord()
        Dim MySheet As String
        Dim cnt As Long
        MySheet = ActiveSheet.Name
        Cells(1, 1).CurrentRegion.AutoFilter Field:=33, Criteria1:= _
            ">=-.09", Operator:=xlAnd, Criteria2:="<=.01"


        cnt = Worksheets(MySheet).Cells.SpecialCells(xlCellTypeLastCell).Row
        If cnt > 3 Then Range("A2", ActiveCell.SpecialCells(xlLastCell)).Select
        Selection.EntireRow.Delete
        End If
        Cells(1, 1).CurrentRegion.AutoFilter Field:=33
    End Sub