1、打开Excel数据表，按照需要进行筛选，如下图所示。
2、按下Alt+F11组合键，打开VBA编辑界面，在左侧双击数据所在的工作表，弹出右侧的空白代码编辑区，如下图所示。
3、在代码编辑区输入代码：Sub 鱼木混猪()For i = 2 To 16If Range("A" &稆糨孝汶; i).EntireRow.Hidden Thenk = k + 1End IfNextMsgBox "隐藏的单元格有" & k & "个"End Sub如下图所示。
4、点击代码中的任意位置，然后点击上方的“运行子程序”按钮，如下图所示。
5、此时，就会在Excel中出现弹框，显示因为筛选而隐藏的行数，如下图所示。
