提高Excel工作效率的两段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

Next

Application.ScreenUpdating = True

End Sub

导出的效果如下面所示：

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

方法1：使用宏表函数

定义KKK=GET.WORKBOOK(4)

在单元格输入KKK

方法2：使用一句VBA代码

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

MsgBox Sheets.Count

End Sub