多个sheet拆分成多个文件_EXCEL如何按某一列拆分成多个表

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

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

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

操作教程

1、创建透视表

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

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

> 点击插入-数据透视表

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

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

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

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

3、调整布局，拆分到表

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

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

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

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

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

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

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

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

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

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

> 选中前两行，右击删除

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

完美收工

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

代码：

'功能：表拆分成独立的文件'作者；EXCEL办公实战-小易'日期：2020-5-1Sub 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)

今天就到这里，五一快乐

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