1、打开Excel表格后，点击【开发工具】、【Visual Basic】打开VBA编辑器，也可以使用键盘上面的【Alt+F11】组合键打开VBA编辑器。
3、在“模块”的代码框里边输入以下VBA程序代码：Sub ColorChange()D坡纠课柩im v1, v2, ro, co晦倘佳鳎On Error Resume Next '忽略运行过程中可能出现的错误Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表For co = 1 To 20 '从第1列到20列 v1 = "" '每执行一列，则初始化一次v1、v2的值（置为空值） v2 = "" For ro = 1 To 1000 '从第一行到1000行 If mysheet1.Cells(ro, co) <> "" Then '如果单元格不是空白，则 v1 = v2 '把v2的值赋给v1 v2 = mysheet1.Cells(ro, co) '把单元格的值赋给v2 If v1 <> "" And v1 = v2 Then '如果v1不是空白且v1=v2，则 mysheet1.Cells(ro, co).Interior.Color = RGB(0, 255, 0) '填充的颜色为绿色 End If If v1 <> "" And v1 <> v2 Then '如果v1不是空白且v1<>v2，则 mysheet1.Cells(ro, co).Interior.Color = RGB(255, 0, 0) '填充的颜色为红色 End If End If NextNextEnd Sub
5、表格上面自动填充颜色完成。
