Excel VBA 里，如何得到Sheet1表格中，有多少行记录？

答案:4 悬赏:30 手机版

解决时间 2021-11-18 16:35

提问者网友：沉默菋噵
2021-11-18 09:35

最佳答案

五星知识达人网友：罪歌
2021-11-18 10:45

1、按alt+F11打开vba编辑器；
2、输入以下代码
Sub 行()
MsgBox "sheet1共有" & Sheet1.UsedRange.Rows.Count & "行记录。"
End Sub3、点击运行。

全部回答

1楼网友：轻雾山林
2021-11-18 13:23

shuhua0715解答
xx = range("a65536").End (xlUp ) 只能求出A列的行数

2003版可通过以下来求出整个表格的行记录
m = 1
For i = 1 To 256
t = Sheets("sheet1").Cells(65535, i).End(3).Row
If t > m Then
m = t
End If
Next
m就是所求的行数。
如果是其他版本的excel，将256改成excel所能容纳的总列数，65535改成所能容纳的总行数。

2楼网友：鸽屿
2021-11-18 12:32

xx = range("a65536").End (xlUp )

3楼网友：深街酒徒
2021-11-18 11:51

vba 取行数
Sheets（1）.[A65536].End(xlUp).Row '''该A列最后一行
vba 取列数
Cells(14, 256).End(xlToLeft).Column'''该14行最后一列

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息