怎么设置 选中一个单元格后，整行/整列的颜色都变化

laoiao

还有更简单的方法。
优点：反应很快
缺点： 原来设置的高亮颜色被清除
在EXCEL中，按键ALT+F11，打开VBA窗口，双击左边的SHEET1（SHEET1），在右边窗口粘贴上面的代码。回到EXCEL中，SHEET1表就会有效果了。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
With Target
If .Count > 1 Then
Exit Sub
Else
Rows(.Row).Interior.ColorIndex = 6
Columns(.Column).Interior.ColorIndex = 6
End If
End With
End Sub

shaokui123

感谢分享，谢谢了

yycool

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.Interior.ColorIndex = xlNone

Target.EntireRow.Interior.ColorIndex = 24

Target.EntireColumn.Interior.ColorIndex = 24

End Sub