excel - 在新工作簿中显示数据透视表详细信息

Question

我今天需要一份有趣的工作帮助。我有一个来自我所有业务销售的巨大主表，我按月创建了一个数据透视表（见下面的简化版本）。我想创建一个宏，它将在单独的工作簿上显示每个行标签的所有详细信息，而不是与我的代码当前运行的工作簿相同。Ps 如果每个单独的工作表都用行标签标记（例如 1 月、2 月、3 月等），那也很棒

我的当前宏仅显示同一工作表的详细信息

Sub MakeReports()
    Dim c As Range
    With Sheets("Pivot Table").PivotTables(1)
        For Each c In .DataBodyRange.Resize(0, 1)
           c.ShowDetail = True
           c.Move
        Next c
    End With
    
End Sub

标签： excelvba