VBA如何不取消筛选，批量删除隐藏的行（未筛选行）

在工作中我们会遇到这种工作场景：在对表格的多列（多个关键字）分别筛选并进行相关操作后，如果需要将未筛选出的行删除掉，此时，按常规操作，要先做反向筛选，然后删除，比较费时且容易出错。如果我们能不取消筛选状态，也不反向筛选，直接将未筛选的行删除，这样既能保证不出错，又能提高操作效率。Excel目前没有这样的功能，要达到这样的效果，可以通过一个vba程序实现：

代码中先将要删除的数据放在数组中，再一次性删除，减少每次删除的动画，这样删除会比一条一条删除快

Sub delete_hiddenrow()
    Set ws = ActiveWorkbook.ActiveSheet
    Set Rng = ws.UsedRange.Columns(1)
    Dim brr
    ReDim brr(Rng.Rows(1).Row To Rng.Rows(Rng.Rows.Count).Row)
    m = Rng.Rows(1).Row
    For Each cell In Rng.Rows
        If cell.EntireRow.Hidden Then
            i = cell.Row
            brr(m) = i & ":" & i
            m = m + 1
        End If
    Next
    rowstr = Join(brr, " ")
    rowstr = Trim(rowstr)
    rowstr = Replace(rowstr, " ", ",")
    Debug.Print rowstr
    If rowstr <> "" Then
        ws.Range(rowstr).Delete
    End If
End Sub