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、效果如下图所示