怎么拆分一个Excel工作簿中的多个工作表【通用2篇】
手中有一个EH文件,工作簿中含几百个工作表,每个工作表现要怎样快速分解成单个EH文件?今天小编就教你如何利用函数将一个excel工作簿中的多个工作表拆分成为单独的工作簿文件。希望对你有帮助!
excel合并多个工作表的步骤
打开Excel表格,为了举例,分别在两个表格中输入不同的数据。
按住ALT键不放,再按F11键,打开VBE编辑器。
右键点击工程窗口下的Microsoft Excel对象,再指向插入。
插入一栏的旁边出现了列表,点击模块。
出现了模块的界面。
输入以下代码:
Option Explicit
Sub hbgzb()
Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integer
flag = False
For i = 1 To Sheets.Count
If Sheets(i).Name = "合并数据" Then flag = True
Next
If flag = False Then
Set sh = Worksheets.Add
sh.Name = "合并数据"
Sheets("合并数据").Move after:=Sheets(Sheets.Count)
End If
For i = 1 To Sheets.Count
If Sheets(i).Name <> "合并数据" Then
hrow = Sheets("合并数据").UsedRange.Row
hrowc = Sheets("合并数据").UsedRange.Rows.Count
If hrowc = 1 Then
Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow, 1).End(xlUp)
Else
Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow + hrowc - 1, 1).Offset(1, 0)
End If
End If
Next i
End Sub
退回到工作表界面,按住ALT键不放,再按F8键,打开宏对话框,点击执行hbgzb宏。
工作表合并完成。
拆分一个Excel工作簿中的多个工作表的方法步骤
打开需要编辑的Excel文档。如图所示,工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。
拆分一个Excel工作簿中的多个工作表步骤图1
右键任意一个工作表标签,在弹出的下拉列表中选择查看代码。即弹出代码窗口。如下图所示。
拆分一个Excel工作簿中的多个工作表步骤图2
拆分一个Excel工作簿中的多个工作表步骤图3
点击菜单插入-模块 在弹出的模块对话框中 输入以下代码:
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub
拆分一个Excel工作簿中的多个工作表步骤图4
拆分一个Excel工作簿中的多个工作表步骤图5
单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕” 如下图所示
拆分一个Excel工作簿中的多个工作表步骤图6
拆分一个Excel工作簿中的多个工作表步骤图7
返回Excel工作簿文件所在路径 查看 如下图所示 原先工作簿中的工作表已经成为单独的工作簿了!
拆分一个Excel工作簿中的多个工作表步骤图8