1、ALT+F11,进入VBE编辑器
2、双击Sheet1标签,粘贴如下代码:Private Sub Worksheet_SelectionChange(ByVal Target 帆歌达缒As Excel.Range)On Error Resume NextCells.FormatConditions.DeleteWith Target.EntireRow.FormatConditions.Delete.Add xlExpression, , "TRUE".Item(1).Interior.ColorIndex = 6End WithEnd Sub
3、关闭VBE对话框,返回工作表,点击单元格,查看效果