在VBA里如何获取当前工作表里数据的行数和列数

Question

如题，谢谢！

Answer 1

iRows=activesheet.usedrange.rows.count
iColumns=activesheet.usedrange.Columns.count

'如果表格前面的几行或几列可能是空的，需要获得最下面的行数和最右面的列数：
with activesheet.usedrange
iEndRow=.rows.count+.row-1
iEndColumn=.Columns.count+.column-1
end with

Answer 2

Sub test1()
A = ActiveCell.Row
B = ActiveCell.Column
MsgBox A & "行，" & B & " 列", vbInformation
End Sub