第一步 按住Alt键不放,再按F11调出VBA 第二步 在VBA中双击左侧的sheet1 第三步 在右边复制以下代码 第四步 关闭VBA Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target .Parent.Cells.Interior.ColorIndex = xlNone .EntireRow.Interior.ColorIndex = 6 .EntireColumn.Interior.ColorIndex = 6 End With End Sub