nnsea 发表于 2020-3-31 09:02:39

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

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

由于公式无法自动刷新，咱们还需要添加一段VBA代码，来强制Excel刷新。
右键单击工作表标签，查看代码，在弹出的VBE窗口中，输入以下代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Calculate
End Sub
页: [1]
查看完整版本: 点击数据变颜色，数据核对不眼花VBA