欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

1.工作簿都有若干個(gè)工作表，統計每個(gè)表的最大行數如下

2.Alt+F11，在最后一個(gè)新建的工作表中，輸入如下代碼

Sub main()

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

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

'下面的數字7不要超過(guò)最大工作表即可，隨意修改數值到最大的工作表

For i = 1 To 7

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

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

Next i

End Sub

3.在輸入代碼的窗口中后，直接按F5，執行代碼，關(guān)閉，返回Excel最后一個(gè)工作表，即得到如下結果：

可以統計到Sheet1帶數據的最大行是13行

可以統計到Sheet2帶數據的最大行是11行

VBA代碼注意區：