我的宏只删除 excel 数据而不是行。我也想删除行

Question

我有一个宏。 在这种情况下，它只删除数据而不是行。 例如，在宏之后我有 600 000 条记录，它留下了 15 000 条记录，但是我的 excel 工作表显示 600 000 条记录 - 15 000 条带数据的记录和 rest 为空，但我希望它只显示 15 条记录。0

应删除所有空行。

宏：

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