请求完善数据透视表自动化VBA宏：高亮对比值并生成详情表

以下是满足你需求的完整VBA宏代码，包含高亮规则实现和详情表生成功能：

Sub PivotTableAutoProcess()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim melVal, ariVal, jasonVal, jackVal As Variant
    Dim pt As PivotTable
    Dim cell As Range
    Dim newWsName As String
    
    '设置当前工作表
    Set ws = ActiveSheet
    '获取A列最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    '清除之前的高亮格式
    ws.Range("G6:G" & lastRow - 1).Interior.ColorIndex = xlColorIndexNone
    
    '遍历行，处理高亮规则
    For i = 6 To lastRow - 1 Step 2
        '处理Mel与Ari的对比
        If ws.Cells(i, "A").Value = "Mel" And ws.Cells(i + 1, "A").Value = "Ari" Then
            melVal = ws.Cells(i, "G").Value
            ariVal = ws.Cells(i + 1, "G").Value
            
            If ariVal >= melVal Then
                'Ari值更大或相等，高亮Ari的G列
                ws.Cells(i + 1, "G").Interior.ColorIndex = 6 '黄色，可根据需求修改
            Else
                'Mel值更大，高亮Mel的G列
                ws.Cells(i, "G").Interior.ColorIndex = 6
            End If
        End If
        
        '处理Jason与Jack的对比
        If ws.Cells(i, "A").Value = "Jason" And ws.Cells(i + 1, "A").Value = "Jack" Then
            jasonVal = ws.Cells(i, "G").Value
            jackVal = ws.Cells(i + 1, "G").Value
            
            If jackVal >= jasonVal Then
                'Jack值更大或相等，高亮Jack的G列
                ws.Cells(i + 1, "G").Interior.ColorIndex = 6
            Else
                'Jason值更大，高亮Jason的G列
                ws.Cells(i, "G").Interior.ColorIndex = 6
            End If
        End If
    Next i
    
    '获取当前工作表的第一个数据透视表
    On Error Resume Next
    Set pt = ws.PivotTables(1)
    On Error GoTo 0
    
    If pt Is Nothing Then
        MsgBox "当前工作表未找到数据透视表！"
        Exit Sub
    End If
    
    '遍历高亮单元格，生成详情工作表
    For Each cell In ws.Range("G6:G" & lastRow - 1)
        If cell.Interior.ColorIndex = 6 Then
            '生成详情表
            cell.ShowDetails = True
            '重命名详情表（避免重复）
            newWsName = ws.Cells(cell.Row, "A").Value & "_详情"
            On Error Resume Next
            ActiveSheet.Name = newWsName
            On Error GoTo 0
        End If
    Next cell
    
    MsgBox "处理完成！"
End Sub

代码关键点说明： #

1. 清除旧高亮：先清除G列之前的高亮格式，避免干扰新规则的执行。
2. 成对行遍历：使用Step 2按两行一组遍历，假设Mel与Ari、Jason与Jack是连续成对出现的；如果你的数据是分散排列的，需要修改判断逻辑（比如通过查找对应姓名的行来对比）。
3. 高亮规则实现：严格按照需求判断：值相等时仅高亮后者（Ari/Jack），值不等时高亮较大值的单元格，使用ColorIndex=6（黄色），可根据需求替换为其他颜色索引。
4. 数据透视表校验：先检查当前工作表是否存在数据透视表，避免运行报错。
5. 详情表生成：遍历所有高亮单元格，调用ShowDetails生成对应明细，并自动命名为「姓名_详情」，同时处理重命名可能的报错（避免重复表名）。

注意事项： #

• 替换代码中的数据透视表字段名：如果你的G列对应的透视表字段不是默认名称，需要调整相关引用。
• 若姓名不是连续成对排列，需要修改遍历逻辑：比如先收集所有Mel/Ari/Jason/Jack的行号，再逐一配对对比。
• 颜色索引可自行修改：比如ColorIndex=3是红色，ColorIndex=4是绿色，可根据需求调整。

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