[已解决]根据输入信息批量复制工作表

traknox · 发表于 2015-12-25 11:06

本帖最后由 traknox 于 2015-12-25 12:44 编辑

各位好，寻求各位帮助：

我想在"汇总表"中输入以下信息，点击按钮，自动复制“设备1”工作表，新生成工作表的名称为B列中输入的名称。
生成前：
无标题1.png

生成后：

不知能否实现。谢谢各位，祝大家圣诞快乐！

设备统计依据.rar (35.65 KB, 下载次数: 3)

gufengaoyue · 发表于 2015-12-25 11:25

本帖最后由 gufengaoyue 于 2015-12-25 11:27 编辑

文档有密码。。。

建一个宏，用下面代码，一次生成全部工作表（B列第3行开始到最后一个）

sub NewSheets()
on error resume next
dim a%
for a = 3 to sheets("汇总表").cells(rows.count,2).end(3).row
if trim(sheets("汇总表").cells(a,2))<>"" then sheets.add.name = sheets("汇总表").cells(a,2)
next
end sub

复制代码

traknox · 发表于 2015-12-25 12:54

gufengaoyue 发表于 2015-12-25 11:25
文档有密码。。。

建一个宏，用下面代码，一次生成全部工作表（B列第3行开始到最后一个）

您好。

我刚使了下，发现不是复制的工作表"设备1“，而是生成的新表。另外，怎么能出现在工作表"设备1"的右边，现在顺序由有些问题。

我把文档的密码删除了，重新上传了，请再帮忙看看。多谢！

设备统计依据.rar (35.65 KB, 下载次数: 4)

tzjx200521 · 发表于 2015-12-25 13:24

traknox 发表于 2015-12-25 12:54
您好。

我刚使了下，发现不是复制的工作表"设备1“，而是生成的新表。另外，怎么能出现在工作表"设备1 ...

你的需求是生成还是什么复制什么内容？？？

traknox · 发表于 2015-12-25 14:03

tzjx200521 发表于 2015-12-25 13:24
你的需求是生成还是什么复制什么内容？？？

您好。

我是希望将"设备1"整个工作表复制。因为我这个表里有非常多的数据和公式，由于保密，我把内容都删除了。

gufengaoyue · 发表于 2015-12-25 15:57

复制代码

tzjx200521 · 发表于 2015-12-25 20:58

traknox 发表于 2015-12-25 14:03
您好。

我是希望将"设备1"整个工作表复制。因为我这个表里有非常多的数据和公式，由于保密，我把内容都 ...

设备1整个工作表复制到哪？

traknox · 发表于 2015-12-28 09:23

tzjx200521 发表于 2015-12-25 20:58
设备1整个工作表复制到哪？

复制生成新的工作表，名称为汇总表中输入的"设备2"、"设备3"等等。

traknox · 发表于 2015-12-28 09:25

gufengaoyue 发表于 2015-12-25 15:57

谢谢，运行可以了。能否帮忙生成一个按钮”生成新的工作表“，点击进行"设备1"工作表"的复制。

		自动登录	找回密码
密码			注册