要将Excel工作簿中的多个工作表拆分成单独的表格,您可以使用以下几种方法:
方法一:使用“另存为”功能
1. 打开Excel工作簿。
2. 选择“文件”菜单,然后点击“另存为”。
3. 在“另存为”对话框中,选择一个文件夹来保存拆分后的文件。
4. 在“文件名”框中输入新文件名。
5. 在“保存类型”下拉菜单中,选择“Excel工作簿(.xlsx)”。
6. 点击“保存”。
7. Excel会提示您是否要保存更改。选择“是”。
8. 然后Excel会提示您选择要拆分的工作表。选择您想要拆分的工作表,然后点击“确定”。
9. Excel会为每个选定的工作表创建一个新的工作簿。
方法二:使用“复制和粘贴”
1. 打开Excel工作簿。
2. 选择您想要拆分的工作表。
3. 右键点击选中的工作表,然后选择“移动或复制”。
4. 在弹出的对话框中,勾选“创建一个副本”。
5. 选择您想要保存新工作簿的文件夹,然后点击“确定”。
6. 重复步骤2-5,直到所有工作表都被拆分。
方法三:使用VBA宏
如果您熟悉VBA(Visual Basic for Applications),可以使用以下宏来拆分工作表:
1. 打开Excel,然后按 `Alt + F11` 打开VBA编辑器。
2. 在“插入”菜单中选择“模块”,在打开的模块窗口中粘贴以下代码:
```vba
Sub SplitSheets()
Dim ws As Worksheet
Dim newWorkbook As Workbook
Dim sheetName As String
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Sheets
If ws.Name <> "Sheet1" Then ' Skip the first sheet if you want
Set newWorkbook = Workbooks.Add
sheetName = ws.Name
ws.Copy newWorkbook.Sheets(1)
newWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & sheetName & ".xlsx"
newWorkbook.Close SaveChanges:=False
End If
Next ws
Application.ScreenUpdating = True
End Sub
```
3. 关闭VBA编辑器,然后按 `Alt + F8`,选择“SplitSheets”,然后点击“运行”。
以上方法可以根据您的具体需求进行选择。