VBA快速拆分excel文件各个sheet为不同工作簿

最新推荐文章于 2025-05-22 09:22:09 发布
原创 最新推荐文章于 2025-05-22 09:22:09 发布 · 5.9k 阅读 · 12 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文介绍了一段VBA代码，该代码能够帮助用户快速地将一个包含多个工作表的Excel工作簿拆分成多个独立的工作簿，每个工作簿包含原工作簿中的一个工作表。此方法适用于需要对大量数据进行分类管理和处理的场景。

一、需要将工作簿里面不同的sheet快速拆分成为不同的工作簿

二、代码

  Sub 分拆工作表()

    Dim sh As Worksheet

    Dim MyBook As Workbook

    Set MyBook = ActiveWorkbook

    For Each sh In MyBook.Sheets

        sh.Copy
    
        ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sh.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
    
        ActiveWorkbook.Close
    
        Next

    MsgBox "文件已经被分拆完毕!"

    End Sub
 

vba 拆分工作簿到不同的工作簿并保留公式以及自定义重命名
weixin_50920119的博客
06-22 688
End WithSet rngGist = Application.InputBox("请选择要拆分数据的列！只能选择单列单元格范围！", Title:="提示", Type:=8)lngTitleCount = Val(Application.InputBox("请输入主工作表中标题行的数量？If lngTitleCount < 0 Then MsgBox "标题行数不能为负数，程序退出。strYesOrNo = MsgBox("是否保留拆分工作表中的格式？
VBA学习笔记5：将同一工作簿的数据按照类别拆分为多个工作簿
weixin_45355881的博客
04-18 2493
VBA学习笔记5：将同一工作簿的数据按照类别拆分为多个工作簿
VBA代码实例---一个工作表拆分为N个工作表
热门推荐
半个馒头
04-18 3万+
这是一个常用而且经典的例子：根据内容，把一个工作表中的内容，拆分到N个工作表中，并根据内容命名新建的工作表。 ¤主要知识点¤ 1、影响代码执行闪屏以及提示框的处理： Application.ScreenUpdating = False Application.DisplayAlerts = False Application.DisplayAlerts = True Application.
VBA 拆分Excel中的各sheet为文件
菜鸟记录
04-29 1360
⏹VBA 拆分Excel中的各sheet为文件
Excel·VBA按列拆分工作表、工作簿
hhhhh_51的博客
01-10 2万+
1，工作表按列拆分为工作表；2，工作表按列拆分为工作簿；3，工作簿按列拆分；4，工作表按列拆分，支持多列关键值；5，工作表按列拆分，先拆分为工作簿再拆分为工作表
Excel VBA 将工作表按列拆分且生成新工作簿
zylfish的博客
01-31 2265
需求：已有一张总表，需要按业务员名字生成相应的工作簿，里面的工作表（sheet）命名为特定的名称。如果文件夹中已经有这个业务员工作簿且已经有同名工作表，则更新这个工作表；如果有这个业务员工作簿但没有同名工作表，则在里面新建一个工作表。1. 每一行都添加了注释，因为是帮同事写的，便于不懂任何代码的人理解。我自己也是小白，上面的代码是参考别人的代码改出来的，通过百度搜索想实现的功能，把好几段代码合在一起。2. 开头放了几个变量，用空行分隔开，方便根据表格修改。
Excel VBA 操作 拆分当前Excel表中 / 所选取文件夹所有子文件中 所有sheet保存到对应文件夹路径中拆分表内
06-05
在Excel VBA编程中，有时候我们需要对大型工作簿进行管理和优化，这可能涉及到将一个大文件拆分成多个小文件，每个文件对应原工作簿中的一个单独工作表。这个任务可以通过编写VBA宏来实现，从而自动化整个过程。下面...
多sheet分裂保存_工作簿多个sheet拆分_
09-30
以下是一个基本的VBA代码示例，用于将工作簿中的每个工作表拆分为单独的文件： ```vba Sub SplitSheets() Dim ws As Worksheet Dim wbNew As Workbook Dim savePath As String '设定保存路径 savePath = "C:\...
VBA学习笔记2：将工作簿的表格拆分为工作簿
weixin_45355881的博客
04-16 2001
VBA学习笔记2：将工作簿的表格拆分为工作簿
【Excel VBA】批量拆分工作表为独立文件/独立工作簿（亲测有效）
Stella的博客
02-05 6939
实用VBA工具，一步步摆脱工具人 把我给的代码，复制到VBA里面，直接运行，就ok 亲测有效。 有问题请留言~ Sub 保留表头拆分数据为若干新工作簿() Dim arr, d As Object, k, t, i&, lc%, rng As Range, c% c = Application.InputBox("请输入拆分列号", , 1, , , , , 1) If c = 0 Then Exit Sub Application.ScreenUpdating = Fa
将EXCEL多行表头的工作表拆分为多个工作表-工具
06-29
将EXCEL多行表头的工作表拆分为多个工作表的VBA宏代码
将excel表格按A列拆分为多个文件VBA代码
02-06
使用方法： 1、将需要拆分的EXCEL文件放在一个单独的文件夹，打开这个EXCEL文件，并关闭其他打开的EXCEL文件； 2、excel表格保留一行标题行，并把第一列数据填写为拆分项（文件拆分时将按第一列的内容进行归类合并为一个文件），整个表格不要合并单元格； 3、在打开的EXCEL工作表名称上点右键选择查看代码； 4、选择菜单栏：插入-模块，将以下代码复制到右边的代码框中，点击菜单：运行-运行子过程/用户窗体,直到弹出处理完毕对话框； 5、在文件夹中将生成拆分好的文件，可关闭这个EXCEL文件，选择不保存。
一个工作簿中的多个工作表拆分成多个工作簿
luluzsa的博客
08-14 1527
office vba
vba拆分工作簿的工作表至多个独立工作簿
qq_42678477的博客
10-09 8954
Sub DetachWorkbook() On Error Resume Next Dim pathStr As String, i As Long, activeWb As String With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then pat...
vba数据合并或拆分——将一个工作表中数据拆分到多个工作簿
lianhun1hao的博客
05-22 994
 vba数据合并或拆分，将一个工作表中数据拆分到多个工作簿。
将总表按某列拆分成多个表
数据分析成长之路
03-18 2145
Sub NewSheets() Dim d As Object, sht As Worksheet, arr, brr, r, kr, i&, j&, k&, x& Dim Rng As Range, Rg As Range, tRow&, tCol&, aCol&, pd& Application.ScreenUpdating = False Application.DisplayAlerts = False Set d = CreateOb
[Excel VBA]如何使用VBA按行拆分Excel工作表
William数据分析的博客
09-22 1717
在Excel中，按行拆分工作表并生成多个新工作表是一项实用的技能，尤其在处理大量数据时。以下是一个VBA代码示例，能帮助你轻松实现这一功能。
拆分表格 不同工作簿
Angryfishfish的博客
08-10 754
Sub chaifen() Dim r, Arr, d, k, i Dim rng As Range Dim sht As Worksheet, Sht1 As Worksheet Set d = CreateObject("Scripting.Dictionary") Application.ScreenUpdating = False Application.DisplayAlerts = Fa
Excel VBA--按某一列拆分数据到多个文件
weixin_43650026的博客
09-07 4936
首先，将需要拆分的sheet命名为“明细”，接下来运行此代码，按提示操作即可。 在这里插入代码片 Sub chaifen() '定义变量类型 Dim sht, sh1, sh2 As Worksheet Dim k, i, j As Integer Dim irow As Integer Dim col As Integer Dim str As String '程序开始是要求输入按哪一列拆分数...
VB Sheet 拆分工作簿，以单元格内容命名
最新发布
09-30
可以使用VBA代码来实现将工作表拆分为多个工作簿，并以单元格内容命名工作簿。以下是一个示例代码： ```vba Sub SplitSheetToWorkbooks() Dim ws As Worksheet Dim lastRow As Long Dim i As Long Dim newWb As Workbook Dim cellValue As String ' 设置要拆分的工作表 Set ws = ThisWorkbook.Sheets("总表") ' 替换为实际的工作表名称 ' 找到最后一行 lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 假设依据A列拆分 ' 循环每一行，从第二行开始 For i = 2 To lastRow ' 获取单元格内容作为工作簿名称 cellValue = ws.Cells(i, 1).Value ' 假设依据A列内容命名工作簿 ' 创建新工作簿 Set newWb = Workbooks.Add ' 将当前行复制到新工作簿的第一个工作表 ws.Rows(i).Copy Destination:=newWb.Sheets(1).Rows(1) ' 保存新工作簿，以单元格内容命名 newWb.SaveAs ThisWorkbook.Path & "\" & cellValue & ".xlsx" ' 关闭新工作簿 newWb.Close SaveChanges:=False Next i MsgBox "拆分完成！", vbInformation End Sub ``` ### 使用步骤 1. 打开Excel并打开包含需要拆分工作表的工作簿。 2. 按 `ALT + F11` 进入VBA编辑器。 3. 右键点击工作簿，选择“插入” > “模块”。 4. 将上述代码粘贴到模块窗口中。 5. 按 `F5` 或从菜单选择“运行”。 ### 注意事项 - 请确保将代码中的 `"总表"` 替换为实际需要拆分的工作表名称。 - 假设依据A列内容拆分并命名工作簿，如果实际情况不同，请修改代码中的列号。 - 此代码会在原工作簿所在的文件夹下生成多个新的工作簿。
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

文剑至秦

你的鼓励将是我创作的最大动力！

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值