VBA将Excel中连续的表格填充颜色-Excel教程

利用宏编写代码，将excel中连续的表格填充颜色

前期准备工作（包括相关工具或所使用的原料等）

Microsoft Excel

详细的操作方法或具体步骤

主管交给我一个任务，让我将Excel中的，同一行中连续出现超过三次的数据填充为红色，如图中的L3，L11、M11等。

点击Alt+f11，进入宏编辑器，将下面代码复制到代码编辑器中。

Sub FillRed()

Dim i As Integer

Dim j As Integer

For i=2 To 1200 '控制行范围

For j=10 To 100 '控制列范围

If ActiveSheet.Cells(i, j).Value <> "" Then

If ActiveSheet.Cells(i, j + 1).Value <> "" Then

If ActiveSheet.Cells(i, j + 2).Value <> "" Then

ActiveSheet.Cells(i, j + 2).Interior.ColorIndex=3

End If

End If

End If

Next j

Next i

End Sub

效果如下图

注意事项

此为填充颜色，修改值或填充其他颜色，可以自行修改

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。