批量删除Excel数据透视表上「求和项:」这几个字符,实现精简制表!
前言|职场实例
我们在Excel中根据数据源插入数据透视表后,往往会在数据透视表的每个值字段列标题出现“求和项:”这几个字符,如果求和项目比较多的情况下,会使Excel数据透视表的整体列宽变得非常的长,显得很不美观。如下图红框处所示:
01|手动逐个删除
手动操作方法如下:
双击数据透视表【求和项】的项目,在【值字段设置】里修改【自定义名称】即可。
如下图所示:
如果我们直接将【自定义名称】中的“求和项:”删除,点击“确定”后会弹出一个错误的提示框,提示:“已有相同的数据透视表字段名存在”。
造成错误的原因就是:
删除后留下的“S”就与上面表格原表数据源中的列标题“S”重名了,在Excel中是不允许这种情况出现的。
为了解决这个问题,我们一般会在【值字段设置】-【自定义名称】中将“求和项:”这几个字符删除后,在剩余的字符“S”前面敲击一个空格,目的是与数据源中的“S”相区分。这样第一个值字段列标题就修改完成了。后面的标题我们只需要手动重复修改就可以了。
但是这个方法的缺点是:
如果在值字段列标题非常多的情况下,比如说本例中有9个值字段标题:
(S/M/L/XL/2XL/3XL/4XL/5XL/6XL),我们需要手动逐个修改,非常的浪费时间。
02|批量删除法
如果需要批量修改的话,需要用到VBA的代码了。
VBA设置如下:
鼠标右击工作表名称标签,点击“查看代码”(或按快捷键ALT+F11)打开VBA编辑器,然后输入以下代码,点击“运行”后,关闭VBA编辑器,即可批量删除完毕。
Sub changeTitle()
Dim CT
For Each CT In ActiveSheet.PivotTables("数据透视表1").DataFields
With CT
If Left(.Caption, 3) = "求和项" Then .Caption = " " & Right(.Caption, Len(.Caption) - 4)
End With
Next
End Sub
其中【数据透视表1】的内容需要修改为你自己的数据透视表的名称,根据自己表格的实际情况进行灵活变更即可。
有的小伙伴说了:我的数据透视表的名称在哪里查看呢?
其实我们只需要点击我们的数据透视表上的任意一个单元格,然后点击“分析”选项卡,在“数据透视表”功能区的“数据透视表名称”处查看即可。如下图位置所示: