当前位置：首页 > 文章列表 > 文章 > 软件教程 > Excel拆分工作表为独立工作簿的技巧

Excel拆分工作表为独立工作簿的技巧

2025-12-02 09:12:25 0浏览收藏

学习文章要努力，但是不要急！今天的这篇文章《Excel将工作表拆分为独立工作簿的方法》将会介绍到等等知识点，如果你想深入学习文章，可以关注我！我会持续更新相关文章的，希望对大家都能有所帮助！

可通过VBA宏、Power Query或第三方插件将Excel多区域数据拆分为独立工作簿。首先推荐使用VBA宏，按分类列自动创建文件；其次可用Power Query分组导出；最后可借助Kutools等插件一键拆分，提升效率。

Excel如何将一个工作表拆分成多个独立的工作簿文件_Excel工作表拆分为独立工作簿方法

如果您需要将一个包含多个数据区域的Excel工作表拆分为多个独立的工作簿文件，以便于分发或归档，可以通过多种方式实现自动化处理。手动复制粘贴不仅耗时且容易出错，因此推荐使用更高效的方法完成拆分任务。

本文运行环境：Dell XPS 13，Windows 11

一、使用VBA宏代码自动拆分工作表

通过编写VBA宏代码，可以根据某一列（如部门、地区等）的唯一值自动将数据拆分为多个独立工作簿，并为每个工作簿命名保存。

1、按下 Alt + F11 打开VBA编辑器，在项目资源管理器中右键点击工作簿名称，选择“插入” > “模块”。

2、将以下代码粘贴到模块窗口中：

Sub SplitSheetToWorkbooks()
Dim LastRow As Long, i As Long
Dim ws As Worksheet
Dim dict As Object
Set ws = ThisWorkbook.Sheets(1) ' 修改为需要拆分的工作表
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 假设A列为分类字段
Set dict = CreateObject("Scripting.Dictionary")
For i = 2 To LastRow ' 假设第一行为标题行
If Not dict.Exists(ws.Cells(i, 1).Value) Then
dict.Add ws.Cells(i, 1).Value, Nothing
End If
Next i
Dim key As Variant
For Each key In dict.Keys
Dim newWb As Workbook
Set newWb = Workbooks.Add
ws.Rows(1).Copy Destination:=newWb.Sheets(1).Rows(1)
Dim j As Long
For j = 2 To LastRow
If ws.Cells(j, 1).Value = key Then
ws.Rows(j).Copy Destination:=newWb.Sheets(1).Cells(newWb.Sheets(1).Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Next j
newWb.SaveAs ThisWorkbook.Path & "\" & key & ".xlsx"
newWb.Close SaveChanges:=False
Next key
MsgBox "拆分完成！"
End Sub