Excel如何用VBA求隐藏行数

1、打开Excel数据表，按照需要进行筛选，如下图所示。

3、在代码编辑区输入代码：Sub 鱼木混猪()For i = 2 To 16If Ra艘绒庳焰nge("A" &稆糨孝汶; i).EntireRow.Hidden Thenk = k + 1End IfNextMsgBox "隐藏的单元格有" & k & "个"End Sub如下图所示。

5、此时，就会在Excel中出现弹框，显示因为筛选而隐藏的行数，如下图所示。