Excel數據透視表如何清除原有數據項
Excel數據透視表如何清除原有數據項
數據透視表的數據源可能改變, 導致字段下拉列表中有些無用的數據項存在，例如有些銷售人員已經離開公司, 但他們的名字仍然在數據透視表的數據項中存在。以下是學習啦小編為您帶來的關于Excel數據透視表清除原有數據項，希望對您有所幫助。
Excel數據透視表清除原有數據項
盡管你每次更新數據透視表后，這些名字仍然與新名字同時顯示出來. 在下面的列表中, 楊建新已經被劉艷代替,但他的名字仍然存在。
手動清除原有的數據項
從列表中手動清除原有的數據項操作方法:
1. 將數據透視字段拖拉到數據透視表以外的區(qū)域.
2. 點擊數據透視表工具欄上的更新按鈕
3. 將數據透視字段拖拉回到數據透視表區(qū)域
編寫程序清除原有的數據項 -- Excel 2002或更高版本
在Excel 2002或更高版本中, 你可以編寫程序改變數據透視表屬性,防止遺漏顯示數據項或清除已經顯示的數據項.
Sub DeleteMissingItems2002All()
'防止數據透視表中顯示無用的數據項
'在 Excel 2002 或更高版本中
'如果無用的數據項已經存在,
'運行這個宏可以更新
Dim pt As PivotTable
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
Next pt
Next ws
End Sub
編寫程序清除原有的數據項-- Excel 97/Excel 2000
在較早的Excel版本中, 運行下列代碼可以清除數據透視表下拉表的原有數據項.
Sub DeleteOldItemsWB()
'清除數據透視表中無用的數據項
' 單位MSKB (202232)
Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.RefreshTable
For Each pf In pt.VisibleFields
If pf.Name <> "Data" Then
For Each pi In pf.PivotItems
If pi.RecordCount = 0 And _
Not pi.IsCalculated Then
pi.Delete
End If
Next
End If
Next
Next
Next
End Sub
猜你喜歡：