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

Excel宏用于创建具有细节的数据透视表

1 个答案: