如下图所示，选择B列里面的一个单元格时水貔藻疽，C列里面存在相同值的单元格将会自动填充成橙色；选择其他单元格时，此单元格恢复成“无填充颜色”。此时可以使用VBA程序来处理，下面就分享一下解决的方法。
工具/原料
计算机
Excel2010
方法/步骤
1、打开Excel表格，点击菜单栏上面的【开发工具】，【VisualBasic】打开VBA编辑器，也可以使用【Alt+F11】组合键打开VBA编辑器。
2、在右侧的VBA项目下面双击“Sheet1（Sheet1）”打开代码窗口。
3、在代码窗口里面输入以下代码：PrivateSubWorksheet_Selec隋茚粟胫tionChange(ByValshAsRange像粜杵泳)'如果改变选择单元格时，将会执行程序Dimi,j,k,k1,k2,k3AsLong'数据类型定义DimSeAsVariantOnErrorResumeNext'忽略运行过程中出现的错误Setmysheet1=ThisWorkbook.Worksheets("Sheet1")'定义工作表Se=Selection.Value'把选择的值赋给Sej=Selection.Count'选择的单元格数k=Selection.Column'选择的单元格所在的列Ifj=1Andk=2AndSe<>""Then'如果只选一个单元格且是第二列的单元格且不为空白，则Fori=2To1000'从第2行到1000行进行判断Ifmysheet1.Cells(i,3)=SeThen'如果单元格里面的值相等，则执行颜色填充mysheet1.Cells(i,3).Interior.Color=49407'填充的颜色为橙色Else'否则将会执行“无颜色填充”Withmysheet1.Cells(i,3).Interior.Pattern=xlNone'无填充图案.TintAndShade=0'无填充颜色.PatternTintAndShade=0'无底纹图案EndWithEndIfNextEndIfEndSub
4、输入完代码之后，回到工作表界面，选择第2列里面的单元格时，VBA程序将会根据所选的单元格进行匹配后填充上颜色（橙色）。
5、如果判断的单元格行数较多时（即：程序里声矜檠鹣面的fori=2To1000），表格可能会出现卡顿的现象。因此，进行单元格匹配后填充颜色时，其判断的行数不宜过多。
6、如果Excel表格已经禁用，VBA程序将不能执行。此时可以按照下面的方法启用宏，之后重新打开Excel表格即可；如果已经启用宏，则忽略下面的步骤。
7、点击【文件】，【选项】。
8、点击【信任中心】，【信任中心设置】。
9、点击【宏设置】，【启用所有宏】，之后依次点击【确定】，保存工作薄（如果已经输入VBA代码，应当保存成“启用宏的工作薄”的格式）。
10、重新打开Excel表格即可使用宏了。
