今天我们就来分享一下,如何简单三步完成Excel工作表拆分成独立的Excel文件
· 正 · 文 · 来 · 啦 ·
主要就是按指定字段拆分成独立的工作薄(文件)
通过一个案例(来源,我平时的授课课件),我们来看一下 首先明确一下需要按照什么字段拆分,举例使用商品大类复制一份拆分字段
如果拆分的字段拆分后不需要再数据源中,可以不条件辅助列, 作为拆分的字段最后会消失 同时新增一列-序号,用于重新计算序号,根据出现的次数统计公式 不需要序号的可不加此步
=COUNTIF($D$2:D2,D2)
插入透视表,字段处理(动画演示)
拆分字段(辅助)拉到筛选中,其他都放在行中拆分及格式调整(动画演示)
动画操作较快,请对照着下面说明操作! 拆分设置 > 以表格方式显示 > 不显示分类汇总 > 重复所有项目标签(2007版本无,需后续加工) > 删除总计 > 点击分析-选项-显示报表筛选页(完成拆分)-核心 调整格式> 点击第一个拆分表,按住Shifit,点击最后一个拆分表(工作表组)
> 全选表格,复制-选择性粘贴(数值),删除不必要的标题
> 完成格式调整
源码(教学: 如何使用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