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
Sub test1()
A = ActiveCell.Row
B = ActiveCell.Column
MsgBox A & "行，" & B & " 列", vbInformation
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024