Question

以下代码为我创建了数据透视表。但我不知道要更改创建数据透视表的目标位置。它总是为数据透视表创建一个新工作表。我希望能够在一张工作表中创建多个数据透视表。

Sub makeHyperIncPivots()
   ActiveWorkbook.Sheets("Hypercare INC").Select
   Range("A1").Select
   Set objtable = Sheets("Hypercare INC").PivotTableWizard

   Set objfield = objtable.PivotFields("Status Title")
   objfield.Orientation = xlRowField

   Set objfield = objtable.PivotFields("Create Week")
   objfield.Orientation = xlColumnField

   Set objfield = objtable.PivotFields("Process Ref")
   objfield.Orientation = xlDataField
   objfield.Function = xlCount

   Sheets("HcINCPivot").PrintPreview



End Sub

Answer 1

这很简单。

 Set objtable = Sheets("Hypercare INC").PivotTableWizard(TableDestination:="'Hypercare INC Pivot'!R3C1")

如何将我的数据透视表放在特定位置？

1 个答案: