Excel数据透视表-如何清除原有数据项

原有的数据项仍保留在数据透视字段下拉框中。
数据透视表的数据源可能改变,导致字段下拉列表中有些无用的数据项存在，例如有些销售人员已经离开公司,但他们的名字仍然在数据透视表的数据项中存在。
尽管你每次更新数据透视表后，这些名字仍然与新名字同时显示出来.在下面的列表中,杨建新已经被刘艳代替,但他的名字仍然存在。

手动清除原有的数据项
从列表中手动清除原有的数据项操作方法:
1. 将数据透视字段拖拉到数据透视表以外的区域.
2. 点击数据透视表工具栏上的更新按钮
3. 将数据透视字段拖拉回到数据透视表区域

编写程序清除原有的数据项–Excel2002或更高版本

在Excel2002或更高版本中,你可以编写程序改变数据透视表属性,防止遗漏显示数据项或清除已经显示的数据项.
SubDeleteMissingItems2002All()
‘防止数据透视表中显示无用的数据项
‘在Excel2002或更高版本中
‘如果无用的数据项已经存在,
‘运行这个宏可以更新
DimptAsPivotTable
DimwsAsWorksheet

ForEachwsInActiveWorkbook.Worksheets
ForEachptInws.PivotTables
pt.PivotCache.MissingItemsLimit=xlMissingItemsNone
Nextpt
Nextws

EndSub

编写程序清除原有的数据项–Excel97/Excel2000

在较早的Excel版本中,运行下列代码可以清除数据透视表下拉表的原有数据项.
SubDeleteOldItemsWB()
‘清除数据透视表中无用的数据项
‘单位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