一篇搞定拆分成表和文件

·  正  ·  文  ·  来  ·  啦  ·

主要就是按指定字段拆分成独立的工作薄（文件）

通过一个案例（来源，我平时的授课课件），我们来看一下

首先明确一下需要按照什么字段拆分，举例使用商品大类

复制一份拆分字段

如果拆分的字段拆分后不需要再数据源中，可以不条件辅助列，

作为拆分的字段最后会消失

同时新增一列-序号，用于重新计算序号，根据出现的次数统计公式

不需要序号的可不加此步

=COUNTIF($D$2:D2,D2)

插入透视表，字段处理（动画演示）

拆分字段（辅助）拉到筛选中，其他都放在行中

拆分及格式调整（动画演示）

动画操作较快，请对照着下面说明操作！

拆分设置

> 以表格方式显示

> 不显示分类汇总

> 重复所有项目标签（2007版本无，需后续加工）

> 删除总计

> 点击分析-选项-显示报表筛选页(完成拆分)-核心

调整格式

> 点击第一个拆分表，按住Shifit，点击最后一个拆分表（工作表组）

> 全选表格，复制-选择性粘贴(数值),删除不必要的标题

> 完成格式调整

拆分成独立的文件（工作薄） - 动画演示

源码（教学：如何使用VBA）

Option Explicit

'日期：2019-3-3
'功能：表->薄

Option Explicit

'日期：2019-3-3
'功能：表->薄
'作者:Excel办公实战-小易
'***************************************************************************
Sub 拆分成文件()
Dim sht As Worksheet, wb As Workbook, n As Integer

Application.ScreenUpdating = False
For Each sht In ThisWorkbook.Sheets
If sht.Name <> "拆分" Then
n = n + 1 '计数
sht.Copy '复制工作表到新的工作薄中
Set wb = ActiveWorkbook
With wb
.SaveAs ThisWorkbook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook
.Close False
End With
End If
Next
Application.ScreenUpdating = True
MsgBox "拆分完成,共拆分" & n & "个", vbOKOnly, "提示"
End Sub