如何计算Excel中表格的总行数？

Sub CountTableRows() Updated by Extendoffice 2017/9/12 Dim xTable As ListObject Dim xTName As String On Error Resume Next xTName = Application.InputBox("Please input the table name：", "KuTools For Excel", , , , , , 2) Set xTable = ActiveSheet.ListObjects(xTName) MsgBox "The table has total number of " & xTable.Range.Rows.Count & " rows.", vb***mation, "KuTools For Excel" Set xTable = Nothing End Sub

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！