0
点赞
收藏
分享

微信扫一扫

将Sheet页拆分成独立的Excel文件

上古神龙 2023-11-20 阅读 42

1.新建一个文件夹,在文件夹中放入需要切分的Excel文件

将Sheet页拆分成独立的Excel文件_拆分

2.打开Excel文件

将Sheet页拆分成独立的Excel文件_excel_02

3.按Alt+F11把代码【文章末尾可见】粘贴进去

将Sheet页拆分成独立的Excel文件_拆分_03

4.选中代码,单击▶运行

将Sheet页拆分成独立的Excel文件_效率_04

5.随后会自动拆分,拆分结束后显示如下的画面

将Sheet页拆分成独立的Excel文件_拆分_05

6.去文件夹中查看,sheet已经被拆分成独立的Excel文件

将Sheet页拆分成独立的Excel文件_excel_06

拆分代码:

Private Sub split()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal 'EXCEL
ActiveWorkbook.Close
Next
MsgBox "Cut Finished!"
End Sub

举报

相关推荐

0 条评论