EXCEL选中单元格，该单元格所在行自动填充颜色

1、ALT+F11，进入VBE编辑器

2、双击Sheet1标签，粘贴如下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

On Error Resume Next

Cells.FormatConditions.Delete

With Target.EntireRow.FormatConditions

.Delete

.Add xlExpression, , "TRUE"

.Item(1).Interior.ColorIndex = 6

End With

End Sub

3、关闭VBE对话框，返回工作表,点击单元格，查看效果