如何将Excel每一张工作表转换成单独的工作薄?

发布网友发布时间：2022-04-24 07:33

共3个回答

热心网友时间：2022-05-04 23:54

　　将Excel每一张工作表转换成单独的工作薄的方法：
右击工作表名，点选“移到或复制”；
选择“新工作簿”，如果是复制则勾选“建立副本”；
确定后，即建立了一个仅包含移动或复制的工作表的新工作簿，可依次右击其它工作表标签，用同样的方法得到其它新工作簿。

热心网友时间：2022-05-05 01:12

这个需要使用代码来拆分比较快一些。
在你需要拆分的工作簿中新建一个模块，将下面的代码复制模块中，然后执行就行。

Sub 拆分到工作簿()
Dim wk As Workbook, ss$, k%
Application.DisplayAlerts = False
For Each sht In ThisWorkbook.Sheets
Set wk = Workbooks.Add
k = k + 1
ThisWorkbook.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

热心网友时间：2022-05-05 02:46

点击要转成单独的excel的表---右健点标签------点“移动或复制工作表”----点工作薄下拉“新工作薄”----确定即可