计算数据透视表 VBA 中的列数答案

【问题标题】：Count Cols in Pivot Table VBA计算数据透视表 VBA 中的列数
【发布时间】：2017-08-01 15:03:39
【问题描述】：

全部，

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

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

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

【问题讨论】：

peltiertech.com/referencing-pivot-table-ranges-in-vba 很好地概述了如何在数据透视表中引用范围：选择您想要的区域，然后使用 .Columns.Count 为您提供列数。
你放了Debug.Print pt.ColumnRange.Count之类的东西还是只是pt.ColumnRange.Count？它自己会返回Invalid Use of Property 它会返回一个数字，所以你需要对它做一些事情 - 将它分配给一个变量，将它显示在一个消息框中等。尽管如此，我不确定它是什么 -我的测试有 3 列，它返回值 8，它等于我的数据中的总行数，包括标题，但很确定不是这样。

【解决方案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

【讨论】：