求教：批量新建Excel工作表

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请问又谁会批量新建Excel工作表吗？
具体意思：能否一次性新建50个Excel工作表，将他们分别命名为1-50。由于要分组较多，期待有人能解答。谢啦

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL xcel exce cel 工作表 工作表 Excel 新建

shift+F11 建立多个工作表，但是重命名好像只能一个一个来，帮顶吧~

社会学徒 发表于 2011-11-17 10:52
shift+F11 建立多个工作表，但是重命名好像只能一个一个来，帮顶吧~

找到另一种解决方式了，多谢

http://blog.sina.com.cn/s/blog_436dc2b8010117kh.html
这里有更简单更详细的介绍，方便，简介，快速！

有时候在使用excel时需要批量插入sheet表，并按照要求进行命名，这种情况下，我们可采取控件编程的方式：

如上图中，要建立25个sheet，命名分为为a1-a25，这样我们可以用控件中的按钮，并且在按钮中输入以下代码：

For i = 1 To 22
Worksheets.Add
Next

这样就生成22个sheet，加上默认的3个共25个

如需要统一修改名称，则可输入以下代码：
For i = 1 To 25
Sheets(i).Name = Cells(i, 1)
next

其结果如下所示：

批量新建工作表并命名，还是需要用到宏代码。
假设将需要新建的工作表名列在sheel1的B列，A列为序号。如下
      A        B
1   序号 表名
2    1      表1
3    2      表2
……
宏代码如下
Sub Macro1()
'时间: 2012/11/6
'变量S为需要设置的当前表名，S0为已有Sheets的数目，N为最大表数量（这里取200），I为当前表的序号。
Dim S, S0, N, I
N = 200
S0 = Sheets.Count
For I = S0 To N
    S = Sheet1.Cells(I - S0 + 2, 2)
    If S = "" Then
        Exit For
    Else
        Sheets.Add
        Sheets("Sheet" & I).Name = S
    End If
Next
End Sub
注意不要有重名，这里没有另外检查了。