Excel 在同一个工作薄内选择任意个工作表另存为一个工作薄

阅： 2705 | 回： 6

在同一个工作薄内选择任意个工作表另存为一个工作薄全部 , 编号:0241

m8273621413

发表于2015/9/5 10:10:55 楼主

回复楼主

等级:初学者

积分:1

财富值:1.0

身份:普通用户

最近遇到一个问题我的一个工作薄内有多张工作表，我需要选取部分工作表另存为一个新的工作薄，如果是连续的我按shift从第几个到第几个操作一下就完了可惜现在是不连续的我得按着crtl 一个个的选数量比较多有时候容易出错。想到用VBA来编个小程序，可惜功力不够，请各位大大帮忙解决一下呗

见附件

悬赏：1 财富值
下载Excel文件

我的个性签名

首席打杂

发表于 2015/9/5 10:29:27

回复2楼

等级:学者

积分:99

财富值:250

身份:普通用户

请看方案1，选中单元格后，点击按钮就行了，支持多区域选择。

我只是一个打工仔..

m8273621413

发表于 2015/9/5 10:43:06

回复3楼

等级:初学者

积分:1

财富值:1

身份:普通用户

回复：2楼

另存为之后表格的顺序发生了变化

我的个性签名

首席打杂

发表于 2015/9/5 10:54:18

回复4楼

等级:学者

积分:99

财富值:250

身份:普通用户

回复：楼主

排序问题已经改好了，请重新下载

我只是一个打工仔..

m8273621413

发表于 2015/9/5 10:58:03

回复5楼

等级:初学者

积分:1

财富值:1

身份:普通用户

回复：4楼

OK了谢谢大神

我的个性签名

m8273621413

发表于 2015/9/5 14:39:28

回复6楼

等级:初学者

积分:1

财富值:1

身份:普通用户

回复：5楼

格子大神再增加3个功能

1另存为的时候删除新建工作薄内的按钮控件及VBA代码。

2另存为的时候另存的过程中，每个新建表格的B2：BB5 公式变成数据。

3另存为的时候另存的过程中，提示输出保存文件名。文件名可以自己输入（保留默认文件名）。

附件: 下载在线编辑

我的个性签名

首席打杂

发表于 2015/9/5 15:56:56

回复7楼

等级:学者

积分:99

财富值:250

身份:普通用户

回复：6楼

按你的要求改了，请下载附件。

附件: 下载在线编辑

我只是一个打工仔..

快速回复