1、打开Excel表格，点击菜单栏上面的【开发工具】，【Visual Basic】打开VBA编辑器，也可以使用【Alt+F11】组合键打开VBA编辑器。
2、在右侧的VBA项目下面双击“Sheet1（Sheet1）”打开代码窗口。
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
4、输入完代码之后，回到工作表界面，选择第2列里面的单元格时，VBA程序将会根据所选的单元格进行匹配后填充上颜色（橙色）。
5、如果判断的单元格行数较多时（即：程序里面的for i = 2 To 1000），表格可能会出现卡顿的现象。因此，进行单元格匹配后填充颜色时，其判断的行数不宜过多。
6、如果Excel表格已经禁用，VBA程序将不能执行。此时可以按照下面的方法启用宏，之后重新打开Excel表格即可；如果已经启用宏，则忽略下面的步骤。
7、点击【文件】，【选项】。
8、点击【信任中心】，【信任中心设置】。
9、点击【宏设置】，【启用所有宏】，之后依次点击【确定】，保存工作薄（如果已经输入VBA代码，应当保存成“启用宏的工作薄”的格式）。
10、重新打开Excel表格即可使用宏了。
