不显示数据透视列

Question

我目前在数据透视表上遇到问题。我创建的某些列似乎没有出现在Pivot List中。

我该怎么办？

从Range("A:AG") SheetA出现由原始工作表中的直接复制引起的问题（让我们说Range("AI:AO")）。当我将列SheetB（请拒绝黄色列）复制并添加到另一个工作表Private Sub KPIDashboardTable() Sheets("A").Activate Dim objTable As PivotTable, objField As PivotField, Ws As Worksheet ActiveWorkbook.Sheets("A").Range("A1").Select Set Ws = Sheets.Add Ws.Name = "B" Set objTable = Sheets("A").PivotTableWizard(TableDestination:=Ws.Cells(3, "A")) objTable.PivotCache.MissingItemsLimit = xlmissingItemNone objTable.PivotCache.Refresh Set objField = objTable.PivotFields("DATE OPENED") objField.Orientation = xlRowField Set objField = objTable.PivotFields("Priority") objField.Orientation = xlDataField Dim pf As PivotField Set pf = ActiveSheet.PivotTables(1).PivotFields("DATE OPENED") pf.DataRange.Cells(1).Group Start:=True, End:=True, Periods:=Array(False, False, _ False, False, True, False, False) End Sub 时，添加的列不会显示在数据透视列表中。

这里添加了列SheetB的图片：

同时这是最后一个List Pivot获得：

我该如何解决这个问题？

我确实提到Missing column from table in PivotTable field，但我认为这与这些问题无关。

这是我的代码：

while

Answer 1

实际上，这很简单。发生错误是因为Source Data 不能有任何差距（就像我做的那样，是黄色的）。因此，如果间隙已被删除，请尝试再次运行sub。然后就是。 ：）