Excel VBA 里，如何得到Sheet1表格中，有多少行记录？
展开全部
1、按alt+F11打开vba编辑器；
2、输入以下代码
Sub 行()
MsgBox "sheet1共有" & Sheet1.UsedRange.Rows.Count & "行记录。"
End Sub
3、点击运行。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
TableDI
2024-07-18 广告
仅需3步!不写公式自动完成Excel vlookup表格匹配!Excel在线免，vlookup工具,点击65步自动完成表格匹配,无需手写公式,免费使用!...
点击进入详情页
本回答由TableDI提供
展开全部
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改成所能容纳的总行数。
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改成所能容纳的总行数。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
vba 取行数
Sheets（1）.[A65536].End(xlUp).Row '''该A列最后一行
vba 取列数
Cells(14, 256).End(xlToLeft).Column'''该14行最后一列
Sheets（1）.[A65536].End(xlUp).Row '''该A列最后一行
vba 取列数
Cells(14, 256).End(xlToLeft).Column'''该14行最后一列
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
xx = range("a65536").End (xlUp )
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
