选择单元格时相同的单元格突出显示

1、打开Excel表格，点击菜单栏上面的【开发工具】，【Visual Basic】打开VBA编辑器，也可以使用【Alt+F11】组合键打开VBA编辑器。

3、在代码窗口里面输入以下代码：Private Sub Worksheet_SelectionChange(ByVal sh As Range像粜杵泳)'如果改变选择单元格时，将会执行程序Dim i, j, k, k1, k2, k3 As Long '数据类型定义Dim Se As VariantOn Error Resume Next '忽略运行过程中出现的错误Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Se = Selection.Value '把选择的值赋给Sej = Selection.Count '选择的单元格数k = Selection.Column '选择的单元格所在的列If j = 1 And k = 2 And Se <> "" Then'如果只选一个单元格且是第二列的单元格且不为空白，则 For i = 2 To 1000 '从第2行到1000行进行判断 If mysheet1.Cells(i, 3) = Se Then '如果单元格里面的值相等，则执行颜色填充 mysheet1.Cells(i, 3).Interior.Color = 49407 '填充的颜色为橙色 Else '否则将会执行“无颜色填充” With mysheet1.Cells(i, 3).Interior .Pattern = xlNone '无填充图案 .TintAndShade = 0 '无填充颜色 .PatternTintAndShade = 0 '无底纹图案 End With End If NextEnd IfEnd Sub

5、如果判断的单元格行数较多时（即：程序里面的for i = 2 To 1000），表格可能会出现卡顿的现象。因此，进行单元格匹配后填充颜色时，其判断的行数不宜过多。

6、如果Excel表格已经禁用，VBA程序将不能执行。此时可以按照下面的方法启用宏，之后重新打开Excel表格即可；如果已经启用宏，则忽略下面的步骤。

8、点击【信任中心】，【信任中心设置】。