【Excel·VBA示例】将所有工作表另存为工作薄

这个世界，唯一让我觉得公平的是我们每个人一天的时间都是24小时

因为我们每个人用这个时间做的事情不一样，我们利用这个时间的方式决定了我们成为什么样的人

你羡慕别人多么牛闪闪的时候，往往忽略了别人那熬夜奋战的时光，而你恰恰在和周公谈笑风生，指点江山

各位小伙伴们是否遇到过这样的需求？将一个工作薄中的N个工作表另存成单独的工作薄

昨晚锤子科技的老罗最后一直在讲如何提高效率，能两步完成的尽量不要用十几步

Excel中要论提高效率的必杀器，唯VBA莫属啦

示例代码：另存所有工作表为工作薄 Sub 另存所有工作表为工作簿()

Dim sht As Worksheet，ipath as string

Application.ScreenUpdating= False'关闭屏幕刷新 ipath = ThisWorkbook.Path& '\\''获取工作薄的路径 以下是利用循环，三种另存工作表为工作薄时命名的方式 For Each sht In Sheets sht.Copy

ActiveWorkbook.SaveAs ipath & sht.Name& '.xlsx' '(工作表名称为文件名）

'ActiveWorkbook.SaveAs

ipath

&

sht.Name&

Trim(sht.range('d10') & '.xlsx' '（文件名称 & D10单元内容）

'ActiveWorkbook.SaveAs ipath &Trim(sht.range('d10')) & '.xlsx' '（文件名称为D15单元内容）

ActiveWorkbook.Close

Next

Application.ScreenUpdating= True'开启屏幕刷新 End Sub

我是张小懒 一个爱偷懒的家伙

一个要变得越来越自信的家伙 一个正在积极努力让自己变好的家伙

“ 转给那些喜欢的小伙伴吧 ” 大讲堂 |让我们有态度的学习Excel 编辑 |爱“偷懒”的张小懒 转载请注明出处