Excel多sheet拆分Excel多sheet拆分

160 阅读 0 评论 106 点赞

我是靠谱客的博主怕孤单飞鸟，这篇文章主要介绍Excel多sheet拆分Excel多sheet拆分，现在分享给大家，希望可以做个参考。

Excel多sheet拆分

文章目录

Excel多sheet拆分
- 前言
- 实现方法

前言

由于一个Excel的sheet页过多，不方便查找对应资料，于是领导让我把sheet页拆分成单个Excel方便查找，但是我一看一个excel居然有40多个sheet页，如果一个个复制出来，可能半小时就过去了，效率太低了，于是我就上网查找了一下，发现可以通过脚本的方式实现sheet页的拆分，现将脚本和过程分享出来

实现方法

Excel版本: 2010

首先，打开要拆分的Excel下任意一个sheet页,选择查看代码

进入VB代码界面后，选择插入->模块

将以下脚本输入后，选择执行，就可以实现拆分了,记得要修改路径

Sub 拆分工作簿()

Dim mybook As Workbook

Dim i As Integer

Set mybook = ActiveWorkbook

For i = 1 To mybook.Worksheets.Count

mybook.Worksheets(i).Copy

ActiveWorkbook.SaveAs Filename:="D:UsersDesktop测试拆分" & mybook.Worksheets(i).Name & ".xlsx"

ActiveWindow.Close

Next i

End Sub