Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 胡败桥xlNone 枯侍 '十字光标定位
Rows(Target.Row).Interior.Color = RGB(192, 192, 192) ‘行着色
Columns(Target.Column).Interior.Color = RGB(192, 192, 192) '列着色
End Sub
吧这个代码放到你的表格里RGB(192, 192, 192)中的数字为裤猛0-255 不同数字颜色不同,请自行调整