首发 公众号 EXCEL办公实战
这个需求还是很常见的，所以我们今天来一起学习一下
看一下需求，按地区拆分，一个区域一个表（Sheet）
文末补充如何拆分成独立的文件
操作教程
1、创建透视表> 辅助地区列，粘贴到G列，修改标题为拆分
> 数据点击数据区域的任意位置（连续区域）
> 点击插入-数据透视表
> 选择插入到现在的工作表，选择任意空白单元格，确定
> 拆分字段，拖放到筛选区域
> 其他字段都放行区域（注意不要放到值区域），否则会汇总！
> 点击透视表的任意区域，出现 设计选项卡，点击
> 透视表布局，以表格形式显示-重复所有项目标签（2007版本无此项）
> 分类汇总-不显示分类汇总
> 右击透视表，删除总计，取消日期分组
> 点击分析-选项-显示报表筛选页，确定
（此步会出现多张新表，对应的就是所有区域的明细）
拆分出来的表，还带有他透视表格式，我们要做一下调整
> 点击拆分后的第一个工作表，按住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办公实战，高效办公，每天进步一点点！
关注小编，下次精彩不迷路！
喜欢小编的文章，一定要点赞，关注，转发
您的鼓励是小编最大的动力！
