VBA：Excel选中单元格后，相同值高亮显示

最新推荐文章于 2024-06-19 09:15:59 发布

森林猩

最新推荐文章于 2024-06-19 09:15:59 发布

阅读量6.7k

点赞数 15

分类专栏： EXCEL-VBA

本文链接：https://blog.csdn.net/liangzixx/article/details/122166537

版权

VBA

本文介绍了如何使用VBA在Excel中动态高亮显示重复值。通过Worksheet_SelectionChange函数，当选择一个单元格时，所有与其值相同的单元格将被高亮为橙色。代码首先判断选中单元格数量，然后遍历工作表的已使用范围，将匹配的重复值单元格颜色设置为44（橙色）。在实际应用中，用户只需在VBA编辑器中插入此代码并保存，即可实现动态高亮功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

VBA：Excel选中单元格后，相同值高亮显示

场景
代码释义
Excel中实际执行效果

场景

在Excel数据核对中，要检查同样的数据在表格里是否重复出现，可以利用重复值筛选的方式，但是重复值筛选这个相对来说是比较静态的，如果想要动态地显示重复值，就可以借助VBA里的SelectionChange 函数，动态高亮显示重复值。

代码释义

首先是完整的函数代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim rng As Range
If Target.Count = 1 And Target <> "" Then
   Cells.Interior