Excel将连续的表格填充颜色

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

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

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

3、 效果如下图所示