以下是引用老鬼在2006-8-27 19:57:00的发言: Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.EntireRow.Select End Sub 放到想作用的工作表模块