亲，您尝试在SelectionChange事件中加入IF，判断Selection.Count，一旦等于2就把值或地址赋给一个变量。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Selection.Count = 2 Then MsgBox "第2次选择"End IfEnd Sub
用range对象的area属性
