Excel多个工作表，快速拆分成单个

最新推荐文章于 2024-05-16 21:22:33 发布

Hazelxcf

最新推荐文章于 2024-05-16 21:22:33 发布

阅读量1k

点赞数

分类专栏： excel 文章标签：其他

本文链接：https://blog.csdn.net/xcfkaixin/article/details/127261348

版权

excel 专栏收录该内容

1 篇文章

订阅专栏

Alt+F11 调出VBA代码窗口
ThisWorkbook
在这里插入图片描述
输入代码

Sub 拆分工作表()

    Dim i

    Dim sht As Worksheet

    Application.DisplayAlerts = False

    For Each sht In Sheets

        sht.Copy

        i = ThisWorkbook.Path & "\" & sht.Name & ".xlsx"

        ActiveWorkbook.SaveAs i

        ActiveWorkbook.Close

    Next

    Application.DisplayAlerts = True

    MsgBox "工作表生成文件完成！", vbOKOnly, "提示"

End Sub

单击运行