在数据透视表VBA中计算Cols

Question

全部，

我有一个以列宽变化的轴，因此我试图计算一个轴中的列数，我有下面的代码突出显示的行上的错误

Dim pt As PivotTable
Set pt = ActiveSheet.PivotTables(1)
pt.ColumnRange.Count **ERROR**

请有人建议如何最好地计算数据透视表中的cols。

Answer 1

尝试使用pt.TableRange2.Columns.Count

获取列数

<强>代码

Dim pt As PivotTable
Dim NumofCols As Long

Set pt = ActiveSheet.PivotTables(1)
NumofCols = pt.TableRange2.Columns.Count

如果您只想使其列宽适合，请使用以下行：

pt.TableRange2.EntireColumn.AutoFit