我正在尝试返回Excel窗口底部Excel状态栏中显示的已过滤行数。当我过滤范围时,屏幕底部显示“4008的76”。
我该如何拨打这些号码?
我的想法是'为什么Excel已经重新计算了?'
最后,我想要一个宏来过滤,保存变量中的可见行数,不同地过滤,保存变量中的可见行数,然后显示一个消息框,返回两个行计数。我已写完所有其他内容,但无法找到存储Excel状态栏指标(计数,总和,平均值等)的对象。
谢谢你的帮助。
您需要从标题后的下一行开始计算,因此如果您的标题位于A1并且A列中的所有单元格都已填充,则可以执行以下操作:
Sub VisibleRows()
Dim RowsStore As Long
With ThisWorkbook.Sheets(1)
RowsStore = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeVisible).Rows.Count
End With
End Sub