如何删除透视表里面字段下拉菜单里的旧数据

kumoo · 发表于 2009-9-18 15:32

透视表数据更新了以后，

页字段：

拖到行里就显示

如何才能把行字段里的空白去掉，更新数据好几十遍了也没有用

[ 本帖最后由 kumoo 于 2009-10-7 08:57 编辑 ]

nt_ljm · 发表于 2009-9-18 22:22

最好把附件传上来，便于大家共同分析。

kumoo · 发表于 2009-9-20 08:12

附件啊？？？？？？？？？？？？

penghaifeng · 发表于 2009-9-20 20:02

清理数据源，里面有空白行吧！~~~~

kumoo · 发表于 2009-10-7 08:45

原帖由 penghaifeng 于 2009-9-20 20:02 发表
清理数据源，里面有空白行吧！~~~~

不是这个原因

字段拉到行字段有下列选项：未命名.jpg

（实际上很多字段在数据里面已经没有了）

拉到页字段显示的就是正确的选项：未命名2.jpg

这是什么原因？

kumoo · 发表于 2009-10-7 08:50

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

这个方法似乎没有用。

kumoo · 发表于 2009-10-7 08:55

编写程序清除原有的数据项-- 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

kumoo · 发表于 2009-10-7 08:56

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

kumoo · 发表于 2009-10-7 08:59

OK，搞定~！

jinqiao0078 · 发表于 2009-10-7 18:40

如何删除透视表里面字段下拉菜单里的旧数据

		自动登录	找回密码
密码			免费注册

[求助] 如何删除透视表里面字段下拉菜单里的旧数据

回复 1楼 kumoo 的帖子

如何删除透视表里面字段下拉菜单里的旧数据