vba得到经过自动筛选过的行数

'方法：利用excel的“录制宏”的功能，录制得到vba函数“宏1”。
'其中field=1标识筛选的列序号为1，即第一列，Criteria1为筛选条件1， Operator:=xlAnd,表示两个条件进行“与”运算，Criteria2为筛选条件2


Sub 宏1()
'
' 宏1 宏
'
'
Dim ra As Range
   Dim allrowscount As Integer
   allrowscount = ActiveSheet.UsedRange.Rows.Count
   ActiveSheet.Range("$A$1:$B$299").AutoFilter Field:=1, Criteria1:="=*\高中部\*" _
        , Operator:=xlAnd, Criteria2:="=*\政治\*"
        
'到这里，完成筛选，下面的代码为计算筛选后的行数，并调用对话框显示出来


 Range("a2:a" & allrowscount).SpecialCells(xlCellTypeVisible).Select
    MsgBox Selection.Cells.Count


End Sub