使用Excel里的VBA拆分多个工作表的方法

在Excel中，当我们需要处理包含大量数据的工作表时，有时候我们需要将一个工作薄拆分成多个工作薄，以方便数据的管理和分析。在这种情况下，使用VBA宏可以帮助我们快速、自动地完成这一任务。本文将介绍如何使用VBA拆分多个工作表。

首先，我们需要打开Excel并按下ALT+F11组合键，进入VBA编辑器。

然后，依次点击"插入"->“模块”，在模块中编写以下VBA代码：

Sub 拆分工作表()
Dim sht As Worksheet '
For Each sht In Sheets '
sht.Copy '
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sht.Name & ".xlsx" '
ActiveWorkbook.Close
Next
MsgBox "文件已拆分完毕" '
End Sub