一个Excel工作簿中的多个工作表怎么拆分成独立表格

Question

如题所述

Answer 1

使用代码拆分比较准确而且速度也快

Sub 拆分到工作簿()
Dim wk As Workbook, ss$, k%
Application.DisplayAlerts = False
For Each sht In Worksheets
Set wk = Workbooks.Add
k = k + 1
Workbooks(1).Sheets(k).Copy Workbooks(2).Sheets(1)
ss = ThisWorkbook.Path & "\" & sht.Name & ".xlsx"
wk.SaveAs ss
wk.Close
Next
Application.DisplayAlerts = True
MsgBox "拆分工作簿完成！"
End Sub

alt+f11打开vbe编辑窗口，新建一个模块，将代码复制进去，然后按执行按钮即可运行代码。