基于前一行单元格值变化实现行颜色交替设置的技术求助

以下是无需辅助列的VBA代码，可实现按B列客户名称分组交替设置行背景色：首个客户组行设为白色，下一组设为蓝色，循环交替。

Private Sub SetAlternatingRowColorsByClient()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim prevClient As String
    Dim currentColorIndex As XlColorIndex
    
    ' 指定目标工作表，可根据实际修改
    Set ws = ThisWorkbook.ActiveSheet
    ' 获取B列最后一行数据行号
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 初始化变量：第一个客户组用白色，初始前客户设为空
    prevClient = ""
    currentColorIndex = xlColorIndexWhite
    
    ' 遍历每一行（从第2行开始，假设第1行是表头）
    For currentRow = 2 To lastRow
        ' 只处理可见行（适配过滤状态）
        If ws.Rows(currentRow).Hidden = False Then
            Dim currentClient As String
            currentClient = ws.Cells(currentRow, "B").Value
            
            ' 当前客户与上一个不同时，切换颜色
            If currentClient <> prevClient Then
                currentColorIndex = IIf(currentColorIndex = xlColorIndexWhite, xlColorIndexLightBlue, xlColorIndexWhite)
                prevClient = currentClient
            End If
            
            ' 为当前行设置背景色（范围为A到AE列，可按需调整）
            ws.Range("A" & currentRow & ":AE" & currentRow).Interior.ColorIndex = currentColorIndex
        End If
    Next currentRow
End Sub

代码说明 #

• 范围适配：可修改ws指定目标工作表，调整Range("A" & currentRow & ":AE" & currentRow)中的列范围以匹配你的数据区域。
• 颜色自定义：示例用Excel内置颜色索引，若需自定义色调，可替换为Interior.Color = RGB(200,230,255)这类RGB值。
• 过滤兼容：判断行是否隐藏，确保数据过滤状态下仍能按客户分组正确着色。

对您尝试方案的补充说明 #

1. 条件格式MOD/REST函数：这类函数基于行号奇偶交替，无法识别客户名称的分组逻辑，因此无法满足按客户交替着色的需求。
2. ChatGPT生成的代码：该代码存在变量混淆（用日期变量存储客户名称）、错误依赖Selection（易受选中状态影响）、功能偏离（添加下划线而非设置背景色）等问题，无法实现目标需求。

内容的提问来源于stack exchange，提问作者Leon de Ruiter