Power Query刷新后，如何在单元格值变化时为表格行交替高亮？

需求说明 #

• 电子表格通过Power Query导入数据，表格长度随刷新动态变化
• 当C列和D列的组合值与上一行不同时，为对应行交替设置高亮颜色

实现思路 #

1. 清除表格原有格式，避免刷新后残留无效样式
2. 动态获取Power Query导入数据的最后一行，适配表格长度变化
3. 通过判断C、D列组合值的变化，交替为行应用填充色

VBA代码实现 #

Sub AlternateHighlightByCDColumns()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim currentCD As String, previousCD As String
    Dim highlightColor1 As Long, highlightColor2 As Long
    Dim isColor1 As Boolean
    
    ' 指定目标工作表，根据实际名称修改
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 定义两种交替高亮颜色（可自行调整RGB值）
    highlightColor1 = RGB(242, 242, 242) ' 浅灰色
    highlightColor2 = RGB(255, 255, 255) ' 白色
    isColor1 = True
    
    ' 清除原有条件格式和填充色
    ws.Cells.FormatConditions.Delete
    ws.Cells.Interior.ColorIndex = xlColorIndexNone
    
    ' 获取数据最后一行（假设表头在第1行，数据从第2行开始）
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    ' 初始化上一行C、D列组合值
    previousCD = ws.Cells(2, "C").Value & "|" & ws.Cells(2, "D").Value
    ' 设置第一行数据的颜色
    ws.Rows(2).Interior.Color = highlightColor1
    
    ' 遍历数据行
    For i = 3 To lastRow
        currentCD = ws.Cells(i, "C").Value & "|" & ws.Cells(i, "D").Value
        
        ' 组合值变化时切换颜色标记
        If currentCD <> previousCD Then
            isColor1 = Not isColor1
            previousCD = currentCD
        End If
        
        ' 应用对应颜色
        ws.Rows(i).Interior.Color = IIf(isColor1, highlightColor1, highlightColor2)
    Next i
End Sub

自动触发设置 #

要实现Power Query刷新后自动执行高亮代码，右键目标工作表标签→查看代码，粘贴以下事件代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 检测Power Query表格区域是否发生变化
    If Not Intersect(Target, Me.ListObjects(1).Range) Is Nothing Then
        AlternateHighlightByCDColumns
    End If
End Sub

效果说明 #

当C、D列的组合值发生变化时，行填充色会在预设的两种颜色间交替切换，实现分组高亮效果，且自动适配刷新后的表格长度。

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