1、打开VBA编辑环境。
2、选中需要添加程序的Sheet页面。
3、粘贴如下代码在编辑区域并保存后关闭。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Cells.FormatConditions.Delete
// 如下代码是行变，在粘贴到VBA中时，需要删除。
With Target.EntireRow.FormatConditions 
.Delete
.Add xlExpression, , "TRUE"
//颜色选择，改变该值，行的颜色会改变,在粘贴到VBA中时，需要删除。
.Item(1).Interior.ColorIndex = 35 
// 如下代码是列变，在粘贴到VBA中时，需要删除。
End With
With Target.EntireColumn.FormatConditions '列变色
.Delete
.Add xlExpression, , "TRUE"
//颜色选择，改变该值，行的颜色会改变,在粘贴到VBA中时，需要删除。
.Item(1).Interior.ColorIndex = 35
End With
End Sub

备注：Interior.ColorIndex 对应的色值表：