有没有办法根据单元格 select 旋转 table 行和列？

Question

我正在尝试根据从用户表单中的组合框 select 编辑的列标题创建数据透视表 Table。

ComboBox1.List = Sheets("ListTable").Range("A1:A10").Value

然后存储在工作表上。

Private Sub ComboBox1_Change()
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = "Input"
    Range("A1") = ComboBox1.Value

现在我想 select 枢轴的列（和行）作为“输入”上的 A1 Sheet.

因此：

With ActiveSheet.PivotTables("PivotTable").PivotFields(**"INPUT OF A1"**)
    .Orientation = xlRowField
    .Position = 1 
End With

Answer 1

试试这个：

With ActiveSheet.PivotTables("PivotTable").PivotFields( _
                      Worksheets("Input").Range("A1").Value)

Is there a way to select Pivot table rows and columns based on a cell?