如何对比单元格与上方前一个可见单元格？Excel筛选后隔组着色问题

1. 创建自定义VBA函数 #

按Alt+F11打开VBA编辑器，右键点击当前工作簿→插入→模块，粘贴以下代码：

Function IsSameAsPreviousVisible(currentCell As Range) As Boolean
    Dim prevRow As Long
    prevRow = currentCell.Row - 1
    
    ' 向上查找第一个未隐藏的行
    Do While prevRow >= 2 ' 假设数据表头在第1行，数据从第2行开始
        If Not Rows(prevRow).Hidden Then
            ' 对比当前单元格与上一个可见行的同列订单号
            IsSameAsPreviousVisible = (currentCell.Value = Cells(prevRow, currentCell.Column).Value)
            Exit Function
        End If
        prevRow = prevRow - 1
    Loop
    
    ' 找不到上一个可见行（当前是第一个可见数据行），返回True
    IsSameAsPreviousVisible = True
End Function

2. 配置辅助列 #

假设订单号在A列，辅助列使用AS列：

• 在AS2单元格输入：=TRUE
• 在AS3单元格输入公式：=IF(IsSameAsPreviousVisible(A3), AS2, NOT(AS2))
• 选中AS3，下拉填充到所有数据行

公式逻辑：

• 同一订单组的行，继承上一个可见行的辅助列值（保证同组颜色一致）
• 不同订单组的行，反转上一个可见行的辅助列值（实现组间交替着色）

3. 设置条件格式 #

1. 选中需要着色的数据区域（比如A2:Z[最后一行]）
2. 点击开始→条件格式→新建规则
3. 选择使用公式确定要设置格式的单元格，输入公式：=$AS2=TRUE
4. 点击格式，设置目标填充色后确定

筛选数据后，可见的订单组会保持交替着色效果，不会出现同色或异色组相邻的问题。

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