在Excel表格上面，我们要填充满足条件的行时，可以通过筛选的形式选出所需要的行，然后对选择出来的行进行颜色填充，也可以使用VBA程序进行颜色填充。如果筛选出来的结果较多，手动填充颜色将比较麻烦。
工具/原料
电脑
Excel2010
方法/步骤
1、打开Excel表格，按下【Alt+F11】组合快捷键打开VBA编辑器，也可以点击菜单栏上面的【开发工具】，【VisualBasic】打开VBA编辑器。
2、点击VBA编辑器菜单栏上面的【插入】、【模块】，也可以在编辑器上面使用【Alt+I+M】组合快捷键插入“模块”。
3、在VBA编辑器代码框里面输入以下代码：SubColoreInput()Dimi争犸禀淫&'定义i为长整型Setmysheet1=ThisWorkbook.友腆取缜Worksheets("Sheet1")'定义工作表Fori=2To1000'从第2行到1000行Ifmysheet1.Cells(i,5)>165Then'如果条件满足则执行mysheet1.Range(mysheet1.Cells(i,1),mysheet1.Cells(i,8))._Interior.Color=RGB(255,0,0)'填充的颜色为红色EndIfNextEndSub
4、代码程序释义：程序里面的下划线（_）主要是上面一行与下面一行程序的连接，螅岔出礤在一行程序里面如果太长，使用下划线（_）来连接、换行。对于填充的颜色RGB，可以在Excel表格上面的【开镫炜茛玳始】、【填充颜色】、【其他颜色】，在”颜色“对话框的【自定义】里面就可以找到，改变数值就可以看到新增的颜色。
5、在VBA编辑器的工具栏里面点击“运行”图标即可运行程序，条件满足的行将会自动填充所设置的颜色。
6、VBA自动填充满足条件的行的颜色完成。
