怎样获取excel里面所有sheet的总行数解决办法

2025-02-24 14:02:42

推荐回答（4个）

回答1：

VBA插入模块，代码如下：
Sub 总行数()
For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i, "c") = Sheets(i).Name '在c列显示所有工作表名称
Cells(i, "d") = Sheets(i).UsedRange.Rows.Count '在d列显示所有工作表已用最大行数值
Next
End Sub

回答2：

1. 求最后一行行号（包括各种可能）：
=MAX(IF(ISBLANK(A1:A65536),"",ROW(A1:A65536)))
数组公式，CTrl+shift+enter结束
2. 求工作表名称，只能用公式篏套，没有直接的函数（要求文件保存过）：
=MID(CELL("filename"),FIND("]",CELL("filename"))+1,255)

回答3：

通过下面的代码来实现。

Sub sumr()
'
Dim n%, i%, sh As Worksheet
For i = 1 To ActiveWorkbook.Sheets.Count
Set sh = ActiveWorkbook.Sheets(i)
n = n + sh.UsedRange.Rows.Count
Next i
Debug.Print n
End Sub
最后得出的数就是所有sheet使用行的总数。

回答4：

把问题作为内容（邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件，以免误删）,excel样表文件（把现状和目标效果表示出来）作为附件发来看下 yqch134@163.com