使用VBA进行颜色填充满足条件的行

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

3、在VBA编辑器代码框里面输入以下代码：Sub ColoreInput()Dim i争犸禀淫& '定义i为长整型Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表For i = 2 To 1000 '从第2行到1000行If mysheet1.Cells(i, 5) > 165 Then '如果条件满足则执行mysheet1.Range(mysheet1.Cells(i, 1), mysheet1.Cells(i, 8)). _Interior.Color = RGB(255, 0, 0) '填充的颜色为红色End IfNextEnd Sub

5、在VBA编辑器的工具栏里面点击“运行”图标即可运行程序，条件满足的行将会自动填充所设置的颜色。