如何将一个word表格垂直拆分成两个表格?

1、耦嘀扔硇怎么拆分一个Excel工作簿中的多个工作表？首先我们在我们的电脑桌面上我们打开一个excel的工作表，里面有很多个不同的工作表。

3、在空皈寿凿几白处粘贴复制以下内容Private Sub 分拆工作表()Dim sht As WorksheetDim MyBook As WorkbookSet MyBook = ActiveWorkbookFor Each sht In MyBook.Sheetsht.CoActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式ActiveWorkbook.CloseNextMsgBox "文件已经被分拆完毕!"End Sub。