Excel AutoFilter变更时自动为每第二可见行添加斑马纹的VBA咨询

现有代码存在两个核心缺陷，导致无法实现预期效果：

• 斑马纹的奇偶判断依赖单元格物理行号（c.Row Mod 2 = 0），筛选时被隐藏的行仍然参与奇偶计数，最终留存的可见行会出现奇偶性扎堆，格式完全错位
• 代码未与AutoFilter操作逻辑绑定，必须手动运行宏才能生效

整体逻辑分为两部分：优化斑马纹计数规则、绑定低开销自动触发事件，全程无需手动操作，筛选完成后自动生效。

核心逻辑调整 #

替换原有基于物理行号的判断规则，改为按可见行从上到下的顺序计数，第1、3、5...个可见行应用斑马纹，与原宏无筛选时的格式完全一致。同时优化循环逻辑，减少不必要的逐单元格遍历，提升运行效率。

全自动触发配置 #

由于普通工作表的AutoFilter操作没有内置专属事件，通过两个低干扰的工作表事件组合实现无感知触发：

• 用户在工作表内点击任意单元格时，自动检测可见行状态，状态变化则重绘斑马纹（筛选操作完成后用户必然会点击查看数据，无额外操作成本）
• 工作表被激活时自动校验一次斑马纹格式，避免跨表操作后格式错位
• 用全局变量记录上次处理时的可见行数量，仅在可见行状态变化时重绘，避免重复无意义的格式调整，降低性能消耗

代码需要粘贴到VBA编辑器中对应工作表的代码模块内（左侧工程栏右键目标工作表 → 查看代码，粘贴到打开的代码窗口中），不要放到普通标准模块内，否则事件触发无法生效。

' 记录上次处理时的可见行数量，用于判断是否需要重绘
Private lastVisibleRowCount As Long

Private Sub Worksheet_Activate()
    ' 工作表激活时自动更新斑马纹
    Call UpdateFilteredZebraStripes
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 用户点击单元格时自动检测状态，变化则更新斑马纹
    Call UpdateFilteredZebraStripes
End Sub

Private Sub UpdateFilteredZebraStripes()
    Dim dataRng As Range, visibleRows As Range, row As Range
    Dim lastRow As Long, visibleCounter As Long
    Dim visibleRowTotal As Long, area As Range
    
    ' 定义数据范围：A2到最后一行A列非空区域，覆盖A-J列
    lastRow = Me.Cells(Me.Rows.Count, "A").End(xlUp).Row
    If lastRow < 2 Then Exit Sub ' 数据不足则直接退出
    Set dataRng = Me.Range("A2:J" & lastRow)
    
    ' 第一步：清空整个数据区的原有填充色（包括隐藏行）
    dataRng.Interior.ColorIndex = xlNone
    
    ' 统计当前可见行，无可见行时直接退出
    On Error Resume Next
    Set visibleRows = dataRng.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    visibleRowTotal = 0
    If visibleRows Is Nothing Then
        lastVisibleRowCount = 0
        Exit Sub
    End If
    
    ' 按行统计可见行总数量（避免把单元格数误判为行数）
    For Each area In visibleRows.Areas
        visibleRowTotal = visibleRowTotal + area.Rows.Count
    Next
    
    ' 可见行数量与上次处理一致时，无需重绘
    If visibleRowTotal = lastVisibleRowCount Then Exit Sub
    lastVisibleRowCount = visibleRowTotal
    
    ' 第二步：按可见行顺序计数，匹配原宏的斑马纹格式
    visibleCounter = 0
    For Each row In visibleRows.Areas
        Dim areaRow As Range
        For Each areaRow In row.Rows
            visibleCounter = visibleCounter + 1
            If visibleCounter Mod 2 = 1 Then
                areaRow.Interior.ThemeColor = xlThemeColorDark1
                areaRow.Interior.TintAndShade = -0.15
            End If
        Next
    Next
End Sub

• 工作簿需要保存为启用宏的格式（.xlsm），打开时需要允许宏运行
• 代码内的列范围A-J、斑马纹主题色和色调参数完全与原宏配置一致，无需额外调整
• 代码自动适配行数波动场景，不需要手动修改数据范围的最后一行

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