将一个excel表中的多个sheet表进行拆分

168 阅读 0 评论 111 点赞

我是靠谱客的博主舒适夏天，这篇文章主要介绍将一个excel表中的多个sheet表进行拆分，现在分享给大家，希望可以做个参考。

1.打开需要拆分sheet表的excel文件
2.在sheet表上鼠标右键，选择【查看代码】
在这里插入图片描述
3.在打开的界面中点击【插入】------>选择【模块】

4.在空白窗口中粘贴如下的代码：

Sub slip()
    Dim sht As Worksheet, folder As String
    folder = ThisWorkbook.Path
    Application.DisplayAlerts = False
    For Each sht In Worksheets
        sht.Copy
        ActiveSheet.Name = "sheet1"
        ActiveWorkbook.SaveAs folder & "" & sht.Name & ".xlsx"
        ActiveWorkbook.Close
    Next
    Application.DisplayAlerts = True
End Sub

5.点击运行—>运行过程/用户窗体
在这里插入图片描述