Excel如何用VBA求隐藏行数？

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

2、按下Alt+F11组合键，打开VBA编辑界面，在左侧双击数据所在的工作表，弹出右侧的空白代码编辑区，如下图所示。

3、在代码编辑区输入代码：

Sub 鱼木混猪()

For i = 2 To 16
If Range("A" & i).EntireRow.Hidden Then
k = k + 1
End If
Next
MsgBox "隐藏的单元格有" & k & "个"
End Sub
如下图所示。

4、点击代码中的任意位置，然后点击上方的“运行子程序”按钮，如下图所示。

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

1、1.在Excel中进行筛选；

2.按下Alt+F11，双击工作表；

3.输入代码，核心代码：

If Range("A" & i).EntireRow.Hidden Then
k = k + 1

4.点击“运行子程序”；

5.就统计出来Excel中隐藏的行数。