怎样用VBA提取Excel中的最大行数？

Question

如题所述

Answer 1

详细步骤如下：

1.模型：工作簿内有若干个工作表，将每个表的最大行数提取到最后一个表中

2.Alt+F11，在最后一个工作表中，输入如下代码

Sub main()

Cells(1, 1) = "工作表"

Cells(1, 2) = "最大行数"

For i = 1 To 3

Cells(i + 1, "A") = Sheets(i).Name

Cells(i + 1, "B") = Sheets(i).Range("A65536").End(3).Row

Next i

End Sub

3.按F5，执行代码，关闭，返回Excel最后一个工作表，即得到如下结果：