Excel办公实战-三步完成按字段拆分成独立的文件-sub文件

今天我们就来分享一下,如何简单三步完成Excel工作表拆分成独立的Excel文件

· 正 · 文 · 来 · 啦 ·

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

=============================================

通过一个案例(来源,我平时的授课课件),我们来看一下

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

1、复制拆分的字段,新粘贴一列,字段名称拆分,

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

=CountIF($D$2:D2,D2)
这里的D修改为对应的列好即可

Excel办公实战-三步完成按字段拆分成独立的文件

2、插入透视表,完成拆分到工作表

拆分字段拉到筛选中,其他都放在行中,调整一下格式,删除总计,点击分析-选项-显示报表筛选也

Excel办公实战-三步完成按字段拆分成独立的文件

Excel办公实战-三步完成按字段拆分成独立的文件

3、利用VBA代码(模板),拆分成独立的文件,收工

Excel办公实战-三步完成按字段拆分成独立的文件

如何使用VBA代码,可以百度一下

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

Excel办公实战-三步完成按字段拆分成独立的文件

Excel办公实战-三步完成按字段拆分成独立的文件

首发公众号:Excel办公实战

推荐阅读