5,139
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
fongzl 2004-01-15
- 打赏
- 举报
楼上的应该为Sheet1.Range("a1").CurrentRegion.Rows.Count
hotspring 2003-09-18
- 打赏
- 举报
Sheet1.Range("a1").CurrentRegion.RowCount
luzufu 2003-09-18
- 打赏
- 举报
MaxRows = sheet1.Cells(1, 1).End(xlDown).row 求得是第一列不为空的最大的sheet有效行数。
fongzl 2003-09-15
- 打赏
- 举报
Sheet1.UsedRange.Rows.Count
fongzl 2003-09-15
- 打赏
- 举报
搜索一下
论坛里以前有人回答过这个问题
论坛里以前有人回答过这个问题
tuba_cn 2003-09-13
- 打赏
- 举报
原来在一个项目中，就是判断连续N行是空行的话就认为没有有效数据了。
nirvanafans 2003-09-12
- 打赏
- 举报
'定义有关行数变量
Dim sh_row As Integer
Dim rowcount As Integer
rowcount = countrow()
Private Function countrow()
'取得最大行数
Dim rowcount
'计算行数
sh_row = 1
Do While Worksheets("sheet1").Cells(sh_row, 1) <> ""
sh_row = sh_row + 1
Loop
rowcount = sh_row - 1
countrow = rowcount
End Function
Dim sh_row As Integer
Dim rowcount As Integer
rowcount = countrow()
Private Function countrow()
'取得最大行数
Dim rowcount
'计算行数
sh_row = 1
Do While Worksheets("sheet1").Cells(sh_row, 1) <> ""
sh_row = sh_row + 1
Loop
rowcount = sh_row - 1
countrow = rowcount
End Function
BoBoQ 2003-09-12
- 打赏
- 举报
楼上的方法没有实用价值
