领导将一份工作簿文件交到了我的手中，他希望我能够将其中每个独立的工作表单独保存出来。面对这样的任务，若是工作表数量不多，或许我们可以选择逐一手动复制粘贴，但这无疑会耗费我将近半个小时的时间。幸运的是，我的同事分享了一个小技巧，他仅用了一分钟就完成了这项工作。
下面是操作的具体步骤：
- 首先点击“开发工具”选项卡，然后选择“Visual Basic”。
- 在弹出的“Visual Basic”编辑器中，新建一个模块。
- 在模块中输入以下代码：
```vb Sub 拆分工作簿() Dim wk As Workbook, i As String, j As Integer Application.DisplayAlerts = False
For Each sht In Workbooks(1).Sheets
Set wk = Workbooks.Add
j = j + 1
Workbooks(1).Sheets(j).Copy Workbooks(2).Sheets(1)
i = ThisWorkbook.Path & "\" & sht.Name & ".xlsx"
wk.SaveAs i
wk.Close
Next
Application.DisplayAlerts = True
MsgBox "拆分完成！"
End Sub ```
这段代码正是模拟了手动复制粘贴的过程，它是一个通用的解决方案，下次遇到类似情况时可以直接使用。
- 完成代码输入后，关闭“Visual Basic”编辑器，回到Excel界面。
- 再次点击“开发工具”选项卡，选择“宏”，然后执行刚才创建的宏。
请注意，在运行此宏之前，您需要确保所有其他工作簿都已关闭，否则可能会出现错误。
下次当您需要将众多工作表拆分为独立工作簿时，只需运行这段代码即可轻松完成任务！