Excelmacros来创build数据透视表的细节

这是我在这里的第一个问题，所以我对任何混淆道歉。

我最近开始了一个新的工作，经常处理数据透视表。 我已经做了一个简单的快捷方式来打开数据透视表窗口来加快这个过程，但我期待着做更多一点。

我试图logging一个macros，在给定的信息组中select一个单元格，从这个信息分组创build数据透视表，并将其放置在现有文档中给定分组下的某个新的空单元格中。 我相信这可能更像是一个编码解决scheme，而不是macros观编码解决scheme，因为同一个单元格不会总是空白放置表格等等。

有没有办法做到这一点，例如，使用当前选定的单元格制作表格，然后将其放置在当前select的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