Excel教程：提高Excel工作效率的两段VBA代码送给您

微信扫码观看全套Excel、Word、PPT视频

哈喽，大家周末好！今天为大家分享两段简短的VBA代码，一起来看看案例。

1
Excel工作簿中有多张工作表
如何将所有工作表一次导出成多个独立文件？

比如这样一个工作簿包含下面这些工作表：

按Alt+F11打开VBA编辑器，插入新的模块，复制下面的内容到里面，按F5运行即可。

Sub SaveSeparately()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path &"\"
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name& ".xls"
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub

导出的效果如下面所示：

2
如何统计出一个工作簿里有多少张工作表?

方法1：使用宏表函数
定义KKK=GET.WORKBOOK(4)
在单元格输入KKK
方法2：使用一句VBA代码

Sub 统计工作簿有多少张工作表()
MsgBox Sheets.Count
End Sub

这两段VBA代码你学会了吗？欢迎在评论区留言告诉小编哦~

扫一扫，微信咨询Excel课程

Excel教程相关推荐
到期日计算，EDATE甩DATE函数两条街！能做条件判断的文本函数，你见过吗？Excel教程：你遇到的那些Excel打印问题都在这儿了想要跟随滴答老师全面系统学习Excel，不妨关注《一周Excel直通车》视频课或者《Excel极速贯通班》。

《一周Excel直通车》视频课
包含Excel技巧、函数公式、
数据透视表、图表。
一次购买，永久学习。
[iframe]https://v.qq.com/iframe/preview.html?width=500&height=375&auto=0&vid=b05674i0j3h[/iframe]
最实用接地气的Excel视频课
《一周Excel直通车》
风趣易懂，快速高效，带您7天学会Excel
38 节视频大课
（已更新完毕，可永久学习）
理论+实操一应俱全

主讲老师：滴答

Excel技术大神，资深培训师；
课程粉丝100万+；
开发有《Excel小白脱白系列课》
《Excel极速贯通班》。

原价299元
限时特价 99 元，随时涨价
少喝两杯咖啡，少吃两袋零食
就能习得受用一生的Excel职场技能！

长按下面二维码立即购买学习

购课后，加客服微信：blwjymx3领取练习课件

让工作提速百倍的「Excel极速贯通班」
↓ 点击阅读原文，可直接购买。