在VBA中，如何拆分成工作簿？

1、在工作表中，点击菜单栏【开发工具】，在其工具栏里，点击【visual basic】,进入VBA界面！

2、在VBA界面，点击菜单栏【插入】，在其下拉菜单中，点击【模块】！

3、在VBA界面，点击菜单栏【插入】，在其下拉菜单中，点击【模块】！

4、在代码编辑窗口，输入以下代码！

Sub 拆分到工作簿()

Dim wk As Workbook, pt$, k%

Application.DisplayAlerts = False

For Each sht In Workbooks("VB工作表0.xlsm").Sheets

  k = k + 1

  Set wk = Workbooks.Add

  Workbooks(1).Sheets(k).copy Workbooks(2).Sheets(1)

  pt = thisworkbook.Path & "\" & sht.Name & ".xlsx"

  wk.SaveAs pt

  wk.Close

Next

Application.DisplayAlerts = True

MsgBox "拆分工作簿完成"

End Sub

5、点击VBA窗口下工具栏中的[运行]按钮！

6、在目录下，增加了三个工作簿！