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

Question

如题所述

Answer 1

1、按alt+F11打开vba编辑器；

2、输入以下代码

Sub 行()
MsgBox "sheet1共有" & Sheet1.UsedRange.Rows.Count & "行记录。"
End Sub

3、点击运行。

Answer 2

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改成所能容纳的总行数。

Answer 3

vba 取行数
Sheets（1）.[A65536].End(xlUp).Row '''该A列最后一行
vba 取列数
Cells(14, 256).End(xlToLeft).Column'''该14行最后一列本回答被提问者和网友采纳

Answer 4

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