枢轴列不出现

Question

我目前在数据透视表上有问题。看来我创建的一些列没有出现在数据透视表中。

我该怎么做？

从Range("A:AG")其出现由直接复制从原始表（如SheetA）。当我复制并添加列Range("AI:AO")（请拒绝黄色列）到另一个工作表SheetB中时，添加的列不会出现在数据透视表中。

这里添加的列SheetB的画面：

同时这是最后的名单透视得到：

我怎样才能解决这个问题？

我确实参考了Missing column from table in PivotTable field但我认为它与这个问题没有关系。

这里是我的代码：

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 

Answer 1

其实，这很简单。发生错误是因为Source Data不能有任何间隙（就像我做的那样，黄色的）。所以如果间隙已被删除，请尝试再次运行子版。那就是它。 :)