如何修改VBA代码实现I14:L25区域交替填充指定RGB颜色

我来帮你调整这段VBA代码，先说说原代码里的几个问题：

• 你需要处理的是I14:L25这个固定区域，但原代码遍历了从第1行到工作表最后一行的所有行，范围完全不对
• 初始颜色的判断逻辑是从第1行开始的，不符合你从第14行起步的需求
• 没有限定处理的行范围在14到25之间，会误改其他行的底色

下面是修正后的代码，完全贴合你的需求：

Sub Apply_Interior_Colour()
    With Sheet1
        ' 定义目标区域的起始行和结束行
        Dim startRow As Integer, endRow As Integer
        startRow = 14
        endRow = 25
        
        ' 定义需要的两种颜色
        Dim grey As Long, yellow As Long
        grey = RGB(217, 217, 217)
        yellow = RGB(255, 255, 0)
        
        ' 初始化当前要使用的颜色，第14行先设为灰色
        Dim interior_colour As Long
        interior_colour = grey
        
        ' 遍历目标区域的每一行
        For i = startRow To endRow
            ' 从第15行开始，判断当前行I列的值是否和上一行不同
            If i > startRow Then
                If .Cells(i, 9).Value <> .Cells(i - 1, 9).Value Then
                    ' 切换颜色
                    interior_colour = IIf(interior_colour = grey, yellow, grey)
                End If
            End If
            ' 给当前行的I到L列设置底色
            .Range(.Cells(i, 9), .Cells(i, 12)).Interior.Color = interior_colour
        Next i
    End With
End Sub

关键修改点说明： #

• 明确指定了startRow = 14和endRow = 25，只处理你需要的固定区域
• 初始颜色直接设为灰色，对应第14行的底色
• 循环从14行开始，只有当行号大于14时才判断上一行的I列值，避免越界错误
• 用IIf函数简化了颜色切换的判断逻辑，代码更简洁

运行这段代码后，I14:L25区域内，只要I列的产品值发生变化，就会在黄灰两种颜色间交替切换，完全符合你的需求。

内容的提问来源于stack exchange，提问作者Michi