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

首发 公众号 EXCEL办公实战

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

看一下需求，按地区拆分，一个区域一个表（Sheet）

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

操作教程

1、创建透视表

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

> 数据点击数据区域的任意位置（连续区域）

> 点击插入-数据透视表

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

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

> 拆分字段，拖放到筛选区域

> 其他字段都放行区域（注意不要放到值区域），否则会汇总！

3、调整布局，拆分到表

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

> 透视表布局，以表格形式显示-重复所有项目标签（2007版本无此项）

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

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

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

（此步会出现多张新表，对应的就是所有区域的明细）

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

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

> 点击拆分后的第一个工作表，按住Shift,点击最后一个（全部选中）

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

> 选中前两行，右击删除

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

完美收工

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

代码：

<code>'功能：表拆分成独立的文件
'作者；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/<code>

如何使用代码：

番外篇-EXCEL如何使用宏（VBA）

今天就到这里，五一快乐

Excel办公实战，高效办公，每天进步一点点！

关注小编，下次精彩不迷路！

喜欢小编的文章，一定要点赞，关注，转发

您的鼓励是小编最大的动力！