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

先来看效果：

要实现这样的效果，步骤其实很简单。

步骤一：

选中数据区域，例如A2:B15，按下图步骤添加条件格式。

公式为：

=$A2=CELL('contents')

公式中的CELL('contents')部分，用于返回活动单元格中的内容。用A2和活动单元格内容进行对比，如果相同，就执行预先设置的填充颜色。

步骤二：

由于公式无法自动刷新，咱们还需要添加一段VBA代码，来强制Excel刷新。

右键单击工作表标签，查看代码，在弹出的VBE窗口中，输入以下代码。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Calculate

End Sub

设置完成，就可以实现单击变色的效果了。

最后按F12键另存为启用宏的工作簿，也就是.xlsm格式即可。

注意：由于代码会使Excel不断强制刷新，如果工作表中有比较多的公式，使用此方法会使Excel响应变慢，另外还会影响Excel的复制粘贴功能，所以小伙伴们在工作中还是需要根据实际情况来选择哦。

练习文件在此：

https://pan.baidu.com/s/1nolDcM7IbCDJd9ZMOhTZrg

好了，今天的内容就是这些吧，祝各位小伙伴一天好心情！

图文制作：祝洪忠