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

周末好！我是小雅！

今天为大家分享两段简短的VBA代码，一起来看看案例。

第一，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

Application.ScreenUpdating = True

End Sub

导出的效果如下面所示：

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

方法1：使用宏表函数

定义KKK=GET.WORKBOOK(4)

在单元格输入KKK

方法2：使用一句VBA代码

Sub 统计工作簿有多少张工作表()

MsgBox Sheets.Count

End Sub

如果您对VBA感兴趣，不妨关注小奇老师的《零基础玩会VBA》课程。

课程咨询QQ：800094815

另外，您想学习Excel函数公式，也请关注滴答老师刚录制的Excel函数公式视频教程，一共17集，包含配套练习课件。长按下面二维码立即开始学习：