经典问题EXCEL如何一次性插入900个工作表，汇总式提问

好牛简历 · 发表于 2010-9-9 14:17

Private Sub CommandButton1_Click()
b = InputBox("请输入你要复制表的数量")
If b = "" Then End
Sheets("原表").Select

For n = b To 1 Step -1
ActiveSheet.Copy before:=Sheets(1) '当前表可以为任意名称
ActiveSheet.Name = n
Next n
Application.DisplayAlerts = False
Sheets("sheet1").Delete

End Sub

王岳泽 · 发表于 2010-9-9 15:00

建议你用勤哲excel服务器吧，最近新开发了2010版，功能和代码都是新的，我用的感觉还不错

chenpeijie · 发表于 2010-9-9 15:04

楼主是中组部的

dqymzy · 发表于 2010-9-9 16:55

这么大的数据整理，换个方法好了

好牛简历 · 发表于 2010-9-9 17:13

会的，陆续就会碰到问题，有的人，都可以猜测一些，经典必问

好牛简历 · 发表于 2010-9-9 17:16

功能不错

可惜，你们没有，专业的工程师，作，用户引导哇

就是少掉这一块，再好的东西，也没办法用

xinyisafin · 发表于 2010-9-9 17:40

太恐怖了！

a18332652 · 发表于 2010-9-9 18:08

900张表，确实厉害。。。。

name004 · 发表于 2010-9-9 18:49

人有多大胆--地有多高产。回到了文化大革命

yvhgydn · 发表于 2010-9-9 19:59

原帖由 masterexcel 于 2010-9-8 15:22 发表
一次性插入900张表，除VBA外，似乎没有更好的办法。
建议考虑更改数据管理的方法。

如果是255个工作表以内，可以在工具，选项，常规下设置工作表的默认数为255个
如果要求900个，2007版本可以在上面的设置基础上，使用在工作表标签右键，插入工作表，确定，然后按住F4
感觉就象执行VBA代码一样，看着工作表一直增加，并且可以看到工作表的数量，象加汽油一样。

[ 本帖最后由 yvhgydn 于 2010-9-9 20:13 编辑 ]

用户名		自动登录	找回密码
密码			免费注册

[求助] 经典问题EXCEL如何一次性插入900个工作表，汇总式提问

回复 41楼 zjdh 的帖子

走过啊，走过啊，号奇怪的要求

回复 50楼 leroy 的帖子

回复 53楼王岳泽的帖子

浏览过的版块