Excel计数可见行

在Excel中，有时候需要对可见行进行计数统计。例如，我们有一个数据表格，其中一部分行被隐藏了，我们需要对这些行进行计数，这时候就需要用到计数可见行的方法。

在Excel中，计数可见行可以通过VBA宏来实现。下面是一个简单的VBA宏示例，可以计数当前表格中可见的行数：

Sub CountVisibleRows()
    Dim lastRow As Long
    Dim visibleRow As Long
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 1 To lastRow
        If Rows(i).Hidden = False Then
            visibleRow = visibleRow + 1
        End If
    Next i
    
    MsgBox "可见行数：" & visibleRow
End Sub

这个宏的原理很简单，首先获取当前表格的最后一行，然后遍历每一行，如果这一行不是隐藏状态，就将可见行数+1。最后通过MsgBox弹出可见行数的统计结果。

这个VBA宏可以通过按下ALT + F11打开VBA编辑器，将它粘贴到一个新的模块中，并按下F5运行来执行。

除了通过VBA宏来计数可见行外，还有其他一些方法可以实现这个功能。例如，可以使用Excel提供的过滤功能来实现，或者编写一个用户定义函数（UDF）来计数可见行数。

总之，如果你需要在Excel中计数可见行数，那么上述方法应该能帮助你实现这个功能。