VBA代码实例---批量新建工作表模板

在工作中，经常需要用到一个操作：批量生成工作表，工作表名字指定。下面写一个VBA，希望能达成如下功能：

1、转移性好，可以直接复制使用；

2、不限制重复，并且以此排序；

3、批量新建工作表；

¤操作步骤¤

第一步：打开工作表，并把需要新建的工作表名字放在第一列，并且A1单元格为标题；

第二步：菜单—开发工具—VisualBasic--召唤VBE（Alt+F11/Fn+Alt+F11）

第三步：新建模块（在工程资源管理器中右键单击，插入模块）

第四步：把代码复制到右侧的编辑栏（这是新建过程）

第五步：开发工具—宏--执行

¤主要知识点¤

1、新建工作表，并命名；

2、判断工作表是否存在的方式

¤代码实例¤

Option Explicit

Sub 批量新建工作表()

    Dim i As Integer
    Dim sh As Worksheet
    Dim sName As String
    
    Dim sYuan As String
    sYuan = ActiveSheet.Name
    
    '第一行为标题，所以从第二行开始，如果无标题应该i=1
    For i = 2 To Worksheets(sYuan).Range("A1").CurrentRegion.Rows.Count
    
        sName = Worksheets(sYuan).Range("A" & i).Value
        
        '判断工作表是否存在，如果不存在就新建
        On Error Resume Next
        Set sh = Worksheets(sName)    '如果工作表不存在，报错并返回非零值给Err.Number

        If Err.Number <> 0 Then
            Set sh = Worksheets.Add(, Worksheets(Worksheets.Count))
            sh.Name = sName
        End If
    
    Next i

    Worksheets(sYuan).Select

End Sub