Excel宏创建带有细节的数据透视表

Question

这是我的第一个问题，所以我对任何混乱之处表示歉意。

最近，我开始了一项新的工作，经常处理枢轴表。我自己做了一个简单的捷径来打开枢轴表窗口，以稍微加快这个过程，但是我想用它做更多的事情。

我试图记录一个宏，该宏在给定的信息组中选择了一个单元格，以从该信息分组创建枢轴表，并将其放置在现有文档中的一个新的空单元格中，位于给定的信息分组之下。我相信这可能更像是一个编码解决方案，而不是一个宏解决方案，因为相同的单元格并不总是空的来放置表，等等。

是否有一种方法，例如，使用当前选定的单元格来创建表，然后将其置于当前选定区域的2-3个单元格之下？通过这种方式，我可以单击给定信息的底部单元格，并在下面查看表本身。

谢谢您提前提供帮助！

• 米切尔

Answer 1

这应该足够了:信用：https://excelchamps.com/blog/vba-to-create-pivot-table/

Sub Test()

    Dim PSheet As Worksheet
    Dim DSheet As Worksheet
    Dim PCache As PivotCache
    Dim PTable As PivotTable
    Dim PRange As Range
    Dim LastRow As Long
    Dim LastCol As Long

    On Error Resume Next
    'Set PSheet = Worksheets("PivotTable")
    Set DSheet = Worksheets("Sheet1")
    Set PSheet = Worksheets("Sheet1")

    'Define Data Range
    LastRow = DSheet.Cells(Rows.Count, 1).End(xlUp).Row
    LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column
    Set PRange = DSheet.Cells(1, 1).Resize(LastRow, LastCol)

    'Define Pivot Cache
    Set PCache = ActiveWorkbook.PivotCaches.Create _
    (SourceType:=xlDatabase, SourceData:=PRange). _
    CreatePivotTable(TableDestination:=PSheet.Cells(LastRow + 2, 2), _
    TableName:="SalesPivotTable")

    'Insert Blank Pivot Table
    Set PTable = PCache.CreatePivotTable _
    (TableDestination:=PSheet.Cells(LastRow + 2, 2), TableName:="SalesPivotTable")

    'Insert Row Fields
    With ActiveSheet.PivotTables("SalesPivotTable").PivotFields("Year")
    .Orientation = xlRowField
    .Position = 1
    End With
    With ActiveSheet.PivotTables("SalesPivotTable").PivotFields("Month")
    .Orientation = xlRowField
    .Position = 2
    End With

    'Insert Column Fields
    With ActiveSheet.PivotTables("SalesPivotTable").PivotFields("Zone")
    .Orientation = xlColumnField
    .Position = 1
    End With

    'Insert Data Field
    With ActiveSheet.PivotTables("SalesPivotTable")
    .PivotFields ("Amount")
    .Orientation = xlDataField.Position = 1
    .Function = xlSum
    .NumberFormat = "#,##0"
    .Name = "Revenue "
    End With


End Sub