简单粗暴-根据指定的名称批量生成sheet页命名

新建excel ，在sheet1 A列设置待批量命名的sheet名称，右键sheet1查看代码，插入下面代码

Sub 批量添加工作表()

    Dim Sh As Worksheet, i As Long

    Sheets.Add After:=Sheets(Sheets.Count), 
    Count:=Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row - 1

    For i = 2 To Sheets.Count
    Worksheets(i).Name = Worksheets(1).Cells(i, 1).Value
    Next
    MsgBox "已将指定名称sheet生产完毕！", vbInformation, "提示"

End Sub

代码参考 http://www.360doc.com/content/17/1126/13/30583536_707252962.shtml