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
注意不要有重名，这里没有另外检查了。