Excel宏里面，如何返回鼠标选中区域里有多少行多少列

selection(1).row即选中区域的第一行行号，同理selection(1).column为第一列列号
selection(selection.count).row为选中区域最后一行，selection(selection.count).column为最后一列，很简单，两个参数做减法，就能得出有多少行多少列来。

关于此例中的Selection的相关知识：
Application.Selection 属性
为 Application 对象返回在活动窗口中选定的对象。
语法
表达式.Selection
表达式 一个代表 Application 对象的变量。
说明
返回的对象类型取决于当前所选内容（例如，如果选择了单元格，此属性将返回 Range 对象）。如果未选择任何内容，Selection 属性将返回 Nothing。
在不使用对象识别符的情况下，使用此属性等效于使用 Application.Selection。

选中区域的绝对地址
ad = Selection.Cells.Address
选中区域的地址
ad2 = Replace(ad, "$", "")
或者（从中可以看清行，列是如何计算的）
ad2 = Chr(Selection.Column + 64) & Selection.Row & ":" & Chr(Selection.Columns.Count + Selection.Column + 63) & Selection.Rows.Count + Selection.Row - 1

selection.rows.count :行数
selection.collums.count:列数。楼主赶紧采纳吧。呵呵，调试过了。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.ColorIndex = 3
End Sub

举个例子。将选中区域变为红色。

直接使用
selection
就可以操作了
如下
sub test()
selection.delete
end sub