excel所有数据行数

[liangf215]

vba 怎么得到excel中的数据行数？
sheet中会出现整行都为空的数据

[liangf215]

不会这么麻烦吧，应该有简单的方法

[kris2010]

那只能用循环了

[xthand]

Public Function GetLastrow(ByRef pSheet As Worksheet) As Integer
Const CheckColumn As Integer = 26
Dim i As Integer
Dim intInitial As Integer
Dim intLastrow As Integer
For i = 1 To CheckColumn
intInitial = pSheet.Cells(65536, i).End(xlUp).Row
If intInitial > intLastrow Then intLastrow = intInitial
Next
GetLastrow = intLastrow
End Function