Excel VBA 里，如何得到Sheet1表格中，有多少行记录？
展开全部
1、按alt+F11打开vba编辑器；
2、输入以下代码
Sub 行()
MsgBox "sheet1共有" & Sheet1.UsedRange.Rows.Count & "行记录。"
End Sub
3、点击运行。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
苏州蓝晓生物科技有限公司_
2022-08-05 广告
苏州蓝晓生物科技有限公司。标准化核心产品：公司拥有完整的琼脂糖介质、葡聚糖介质、聚甲基丙烯酸酯介质生产线，年产分离介质50000L，产品质量稳定并达到国际领先水平。核心优势：公司核心技术人员拥有近二十年不同基质的基球开发和官能化的丰富技术经...
点击进入详情页
本回答由苏州蓝晓生物科技有限公司_提供
展开全部
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）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
