excel学习库

我们工作中，有时候会将一个文件拆分成多个工作表，手动复制粘贴也可以，但当工作表比较多时，就会很麻烦，今天给大家介绍一段代码，直接套用即可。

具体操作步骤如下：

1. 打开Excel表格，点击【开发工具】，我们选择【VisualBasic】按钮，也可以用快捷键Alt+F11，打开VBA代码窗口。

2、在打开的VBA窗口中，找到左侧列表的【ThisWorkbook】并点击，接着我们输入代码：

Sub 拆分工作表()

Dim i

Dim sht As Worksheet

Application.DisplayAlerts = False

For Each sht In Sheets

sht.Copy

i = ThisWorkbook.Path & "\" & sht.Name & ".xlsx"

ActiveWorkbook.SaveAs i

ActiveWorkbook.Close

Next

Application.DisplayAlerts = True

MsgBox "工作表生成文件完成！", vbOKOnly, "提示"

End Sub

3.最后我们点击上方的【运行】按钮，如图。

4.当运行执行结束后，我们可以看到每个工作表就拆分成了一个文件，并且保存在同一个文件夹下，如图。