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

使用宏对excel表格进行颜色填充

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

MicroSoft Excel

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

把一行中连续出现三次以上的的表格进行填充为黄色，如下图的L3，L11,M11。

进入宏编辑器，将以下代码复制进去，然后执行。

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 iEnd Sub

效果如下图所示

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