自动筛选Excel VBA第二部分后删除隐藏/不可见行

新的海报在这里。

我正在使用下面的代码为了过滤我的工作簿中的公司的名称。 我有多个标签为1-11的选项卡，我想这样做。

Sub FilterByFirm() ' FilterByFirm Macro ActiveSheet.Range("$A$5:$QP$8000").AutoFilter Field:=6, Criteria1:= _ "UBS Global Asset Management" Dim oRow As Range, rng As Range Dim myRows As Range With Sheets("3") Set myRows = Intersect(.Range("A:A").EntireRow, .UsedRange) If myRows Is Nothing Then Exit Sub End With For Each oRow In myRows.Columns(1).Cells If oRow.EntireRow.Hidden Then If rng Is Nothing Then Set rng = oRow Else Set rng = Union(rng, oRow) End If End If Next If Not rng Is Nothing Then rng.EntireRow.Delete End Sub 

我一直在检查和更新表格（“3”）到我正在工作的标签，因为这似乎是如何使事情工作。 但是，这在标签10（称为“10”）中不起作用。 它工作在其他标签，我不知道为什么。 而不是过滤，然后删除隐藏的行，macros已经简单地删除所有的行。

我怎样才能纠正这一点？ 而且我可以确认瑞银出现在第10页，所以这不是问题。

非常感谢你！