[原创]批量新建/复制工作表（10楼3.0升级版）

纤纤素手 · 发表于 2007-8-12 00:50

版版真强人也,下载学习了.

feelxue · 发表于 2007-8-12 11:33

是要用到宏的吗?本人对宏还一窍不通,先下载了,慢慢再学习.

todate · 发表于 2007-8-12 21:33

功能很棒，只是每次加载，似乎麻烦多多。

andysky · 发表于 2007-8-12 23:14

添加繁体版 bQpeVl5u.rar (18.57 KB, 下载次数: 119)

[此贴子已经被作者于2007-8-20 12:53:47编辑过]

三戒 · 发表于 2007-10-1 20:21

版主的奉献精神值得学习[em17]

jflin1000 · 发表于 2007-10-1 23:46

你的这个东西还真是不错哦。。赞一个。。。。。。

wshcw · 发表于 2007-10-15 10:34

复制后的工作表顺序还是颠倒.

[此贴子已经被作者于2007-10-15 10:37:37编辑过]

andysky · 发表于 2007-10-15 12:25

QUOTE:

以下是引用wshcw在2007-10-15 10:34:58的发言：
复制后的工作表顺序还是颠倒.

改几个字母即可

If Me.OptionButton2 Then
    With Sheets(sht_name).Copy(after:=Sheets(sht_name))
      i = i + 1
   ActiveSheet.Name = rng.Text
    End With

其中sht_name改为 i

[此贴子已经被作者于2007-10-15 19:34:30编辑过]

seabosom · 发表于 2008-12-3 13:04

看看
找了好久

bobij · 发表于 2008-12-3 23:21

不错啊，努力！！！

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