excel截取某个字后面的字段-Excel办公实战-三步完成按字段拆分成独立的文件

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

· 正 · 文 · 来 · 啦 ·

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

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

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

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

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

同时新增一列，序号，用于重新计算序号excel截取某个字后面的字段，根据出现的次数统计公式

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

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

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

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

限 时 特 惠： 本站每日持续更新海量各大内部创业教程，一年会员只需98元，全站资源免费下载 点击查看详情
站 长 微 信： muyang-0410