一起来学office，提高办公技能
问题情境韩老师曾经写过一篇文章：EXCEL | 鼠标霸气十足，随意点哪里，相同数据项变同种颜色，检查数据一目了然，效果如图：
只要在G列选择某商品名称，A到D列中与该商品名称一致的商品所在行会自动添加颜色，这种效果非常有利于核查数据。今天后台有朋友问，这个效果能不能用VBA实现，今天韩老师把代码贴到这里。
VBA实现代码如下(横屏可读性更好)：
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range Set rng = UsedRange If Target.Count > 1 Then Set Target = Target.Cells(1) '如果选中单元格不是一个，则按照第一个单元格比较 End If Dim c As Range For Each ws In Worksheets '对于工作薄中每一个工作表 Set rng = ws.UsedRange If Target.Value = "" Then rng.Interior.ColorIndex = xlNone '如果当前单元格为空，则清除颜色 Else rng.Interior.ColorIndex = xlNone For Each c In rng If c.Value = Target.Value Then ws.UsedRange.Rows(c.Row).Columns("A:D").Interior.ColorIndex = 28 '与选中单元格相同的行A到D列添加颜色 Target.Columns("A:B").Interior.ColorIndex = 28 '选中单元格所在行本列与后一列添加颜色 End If Next End If NextEnd Sub
如下图：
如果觉得《Excel | VBA(9)—与所选单元格相同的行自动添加颜色 核查数据如此方便》对你有帮助，请点赞、收藏，并留下你的观点哦！
