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

看一下需求，按地区拆分，一个区域一个表（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）

今天就到这里，五一快乐

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