VBA Excel:如何删除已过滤的行排除标题

Sub DeleteFilteredRows()
    Dim rng As Range
    Dim cell As Range
    Dim lastRow As Long
    
    ' 获取当前活动工作表
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 确定数据范围，假设数据从第1行开始，第1列为标题
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    Set rng = ws.Range("A1:A" & lastRow)
    
    ' 开启筛选
    ws.AutoFilterMode = False
    rng.AutoFilter
    
    ' 设置筛选条件，假设标题为"Title"，要删除的值为"Delete"
    rng.AutoFilter Field:=1, Criteria1:="Delete"
    
    ' 获取可见单元格范围
    Set rng = rng.SpecialCells(xlCellTypeVisible)
    
    ' 循环遍历可见单元格的行并删除
    For Each cell In rng
        cell.EntireRow.Delete
    Next cell
    
    ' 关闭筛选
    ws.AutoFilterMode = False
End Sub