如何用代码删除当前工作簿中所有数据透视表的计算项？

作者：绿色风分类：时间：2022-08-17 浏览：147

楼主
水星钓鱼

Q：如何用代码删除当前工作簿中所有数据透视表的计算项？
A：以用代码批量删除当前工作簿中所有数据透视表的计算字段不同的是计算项是隶属于字段的，所有所有计算项的集合的父对象是字段而不是数据透视表。
用以下代码可以批量删除当前工作簿中所有数据透视表的计算项

Sub xyf()
'定义工作表变量
Dim oWS As Worksheet
'定义数据透视表变量
Dim oPT As PivotTable
'定义字段变量
Dim oPF As PivotField
'定义字段项目变量
Dim oPI As PivotItem
'遍历所有工作表
For Each oWS In ThisWorkbook.Worksheets
'遍历所有数据透视表
For Each oPT In oWS.PivotTables
'遍历每个数据透视表上的字段
For Each oPF In oPT.PivotFields
'遍历每个字段上的计算项
For Each oPI In oPF.CalculatedItems
oPI.Delete
Next
Next
Next
Next
End Sub

用代码删除当前工作簿中所有数据透视表的计算字段见下面的链接

http://www.exceltip.net/thread-31750-1-1.html

2楼
omnw

学习用VBA操作透视表。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表