芮和
分享更多关于Office的知识

Excel如何快速将工作表拆分成独立文件 10秒搞定

芮和给大家分享一段非常实用的VBA代码,用来快速将Excel文档里的工作表拆分成多份工作簿,用于快速拆分文件,不懂VBA也不要紧,代码都贴给大家了~

今天分享的仍然是VBA自定义小插件,最近有挺多位小伙伴都在问「Excel快速拆分工作表」的教程,今天福利来了,芮和给大家写了一份非常简单的VBA代码,可以快速将文档中的多份工作表拆分成独立的文件,并保存到当前目录下,先来简单看下效果吧~

拆分工作表文档

简单的贴下代码,就不具体解释了,VBA教程面向有一定基础的学员,是Excel中效率最高的功能,没有之一~

Sub generate_book()
    Dim sht As Worksheet, mypath$
    mypath = ThisWorkbook.Path & "\"
    If Right(mypath, 1) <> "\" Then mypath = mypath & "\"
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    For Each sht In Worksheets
        sht.Copy
        With ActiveWorkbook
            .SaveAs mypath & sht.Name, xlWorkbookDefault
        End With
    Next

    MsgBox "处理完成。", , "提醒"
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

文中代码获取方式:点击文末「下载按钮」。

——END——

相关文件下载地址
本站无任何弹出广告,若有浏览器(ADblocker)拦截,请添加本站白名单!
赞(0)
未经允许不得转载:芮和 » Excel如何快速将工作表拆分成独立文件

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

买域名,就上缘分域名!

立即前往联系卖家