Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim tr, tctr = Target.Rowtc = Target.ColumnEnd Sub
闹着好玩啊，用工作表的事件代码。
