点击数据变颜色，数据核对不眼花VBA

nnsea

选中数据区域，例如A2:B15，按下图步骤添加条件格式。
公式为：
=$A2=CELL("contents")

由于公式无法自动刷新，咱们还需要添加一段VBA代码，来强制Excel刷新。
右键单击工作表标签，查看代码，在弹出的VBE窗口中，输入以下代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Calculate
End Sub