当前位置:首页>真相 > 

EXCEL如何按某一列拆分成多个表

EXCEL如何按某一列拆分成多个表

EXCEL如何按某一列拆分成多个表

本文核心词:

这个需求还是很常见的,所以我们今天来一起学习一下

看一下需求,按地区拆分,一个区域一个表(Sheet)

文末补充如何拆分成独立的文件

操作教程

1、创建透视表

辅助地区列,粘贴到G列,修改标题为拆分

数据点击数据区域的任意位置(连续区域)

点击插入-数据透视表

选择插入到现在的工作表,选择任意空白单元格,确定

2、正确的把“萝卜”入坑!

拆分字段,拖放到筛选区域

其他字段都放行区域(注意不要放到值区域),否则会汇总!

3、调整布局,拆分到表

点击透视表的任意区域,出现 设计选项卡,点击

透视表布局,以表格形式显示-重复所有项目标签(2007版本无此项)

分类汇总-不显示分类汇总

右击透视表,删除总计,取消日期分组

点击分析-选项-显示报表筛选页,确定

(此步会出现多张新表,对应的就是所有区域的明细)

4、调整结果布局,完美收工

拆分出来的表,还带有他透视表格式,我们要做一下调整

点击拆分后的第一个工作表,按住Shift,点击最后一个(全部选中)

点击右上角,三角,选择工作表区域,复制,选择性粘贴-数值

选中前两行,右击删除

调整日期格式,选择A列,点击开始-选择短日期格式

彩蛋-如何拆分成独立的文件

代码:

功能:表拆分成独立的文件

作者;EXCEL办公实战-小易

日期:2020-5-1

Sub ShtToWorkbook()

Dim sht As Worksheet

Application.ScreenUpdating = False

For Each sht In ThisWorkbook.Sheets

sht.Copy

With ActiveWorkbook

.SaveAs ThisWorkbook.Path\sht.Name, _

FileFormat:=XlFileFormat.xlOpenXMLWorkbook

.Close True

End With

Next

Application.ScreenUpdating = True

MsgBox 拆分完成

End Sub

如何使用代码:番外篇-EXCEL如何使用宏(VBA)

今天就到这里,五一快乐

新朋友,关注小编,下次不迷路