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