判断EXECL工作表有内容的行数?

来源：百度知道 编辑：UC知道 时间：2024/09/18 05:26:57
请问EXECL高手:有什么办法知道每打开任意一个EXECL工作表,可以迅速地判断该工作表有内容的行数是多少?是从第几行到第几行?EXECL本身有这个功能吗?或者用VBA应如何编写一个小程序呢? 谢谢

Sub panduan()
Dim i, n
Dim m(256)
n = 0
For i = 1 To 256
m(i - 1) = ActiveSheet.Cells(65536, i).End(xlUp).Row
Next i
n = Application.WorksheetFunction.Max(m)
MsgBox "此工作表有" & n & "行"
End Sub
应用下这个vba程序看下

看一下右边用于拖拉的条就可以大致知道行数