我正在尝试使用 vba 从名为 DATA 的工作表中的数据创建数据透视表。被组织在许多列中,其中三个分别称为 NOM、NOM_MOVE 和 COMMENT。
我希望数据透视表具有以下字段: Col 标签字段 = Sum(Values),行标签字段 = COMMENT,值字段 = NOM 的总和,NOM_MOVE 的总和
但是,我编写的代码不起作用或提供了正确的字段(即使使用 pivottablewizard 和 cache/createpivottable.
在我无法分配正确字段之前,我的代码是:
Sub CreatePivot()
' Create the 5 summary pivot tables using the TRADE_LIST sheet as data
Dim pivot1 As Worksheet
Dim datasheet As Worksheet
Dim dataCache As PivotCache
Dim PVT As PivotTable
Dim LastRow As Long
Dim LastCol As Long
Dim dataSource As Range
Dim PVTdest As Range
Set datasheet = Sheets("DATA")
Set pivot1 = Sheets("PIVOT")
' (1) Source data from the TRADE_LIST sheet and create a pivot cache from source data to use for each pivot table
LastRow = datasheet.Cells(1, 1).End(xlDown).Row
LastCol = datasheet.Cells(1, 1).End(xlToRight).Column
Set dataSource = datasheet.Cells(1, 1).Resize(LastRow, LastCol)
Set dataCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=dataSource)
' (2) Create a pivot table
Set PVTdest = pivot1.Cells(2, 2)
Set PVT = dataCache.CreatePivotTable(tabledestination:=PVTdest, tablename:="Comment_Sums")
...
非常感谢任何帮助