1、在工作表中，点击菜单栏【开发工具】，在其工具栏里，点击【visual basic】,进入VBA界面！
2、在VBA界面，点击菜单栏【插入】，在其下拉菜单中，点击【模块】！
3、在VBA界面，点击菜单栏【插入】，在其下拉菜单中，点击【模块】！
4、在代码编辑窗口，输入以下代码！Sub 拆分到工作簿()Dim wk As Workbook, pt$, k%Application.DisplayAlerts = FalseFor 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.CloseNextApplication.DisplayAlerts = TrueMsgBox "拆分工作簿完成"End Sub
5、点击VBA窗口下工具栏中的[运行]按钮！
6、在目录下，增加了三个工作簿！
