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

'获取选中单元格的行列值
A = ActiveCell.Row
B = ActiveCell.Column