原有的數(shù)據(jù)項仍保留在數(shù)據(jù)透視字段下拉框中。
數(shù)據(jù)透視表的數(shù)據(jù)源可能改變,導(dǎo)致字段下拉列表中有些無用的數(shù)據(jù)項存在，例如有些銷售人員已經(jīng)離開公司,但他們的名字仍然在數(shù)據(jù)透視表的數(shù)據(jù)項中存在。
盡管你每次更新數(shù)據(jù)透視表后，這些名字仍然與新名字同時顯示出來.在下面的列表中,楊建新已經(jīng)被劉艷代替,但他的名字仍然存在。
手動清除原有的數(shù)據(jù)項
從列表中手動清除原有的數(shù)據(jù)項操作方法:
1. 將數(shù)據(jù)透視字段拖拉到數(shù)據(jù)透視表以外的區(qū)域.
2. 點擊數(shù)據(jù)透視表工具欄上的更新按鈕
3. 將數(shù)據(jù)透視字段拖拉回到數(shù)據(jù)透視表區(qū)域
編寫程序清除原有的數(shù)據(jù)項–Excel2002或更高版本
在Excel2002或更高版本中,你可以編寫程序改變數(shù)據(jù)透視表屬性,防止遺漏顯示數(shù)據(jù)項或清除已經(jīng)顯示的數(shù)據(jù)項.
SubDeleteMissingItems2002All()
‘防止數(shù)據(jù)透視表中顯示無用的數(shù)據(jù)項
‘在Excel2002或更高版本中
‘如果無用的數(shù)據(jù)項已經(jīng)存在,
‘運行這個宏可以更新
DimptAsPivotTable
DimwsAsWorksheet
ForEachwsInActiveWorkbook.Worksheets
ForEachptInws.PivotTables
pt.PivotCache.MissingItemsLimit=xlMissingItemsNone
Nextpt
Nextws
EndSub
編寫程序清除原有的數(shù)據(jù)項–Excel97/Excel2000
在較早的Excel版本中,運行下列代碼可以清除數(shù)據(jù)透視表下拉表的原有數(shù)據(jù)項.
SubDeleteOldItemsWB()
‘清除數(shù)據(jù)透視表中無用的數(shù)據(jù)項
‘單位MSKB(202232)
DimwsAsWorksheet
DimptAsPivotTable
DimpfAsPivotField
DimpiAsPivotItem
OnErrorResumeNext
ForEachwsInActiveWorkbook.Worksheets
ForEachptInws.PivotTables
pt.RefreshTable
ForEachpfInpt.VisibleFields
Ifpf.Name<>"Data"Then
ForEachpiInpf.PivotItems
Ifpi.RecordCount=0And_
Notpi.IsCalculatedThen
pi.Delete
EndIf
Next
EndIf
Next
Next
Next
EndSub
