樞軸列不出現

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不能有任何間隙（就像我做的那樣，黃色的）。所以如果間隙已被刪除，請嘗試再次運行子版。那就是它。 :)