1. 在Excel VBA中，新建工作表可以通过下面的代码实现。
Sub 新建工作表()
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "test"
End Sub
以上情况是在新建工作表的动作完成后直接给表命名。
2. 根据已有名字新建工作表，如图所示，在Sheet1中有一个E班的学生成绩需要新建工作表对其统计。
上面的代码只需要稍微调整便可完成此要求：引用Sheet1工作表中的B4单元格的值。
Sub 新建工作表()
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheet1.Range("B4")
End Sub
3. 但是，以上两种情况针对的是没有重名的工作表新建，如果第二次执行以上代码时就会报错，如图所示。
4. 如何避免以上报错出现，可以在新建工作表之前添加一个循环判断，当新建工作表的名称和已有工作表名称相同时，设置一个条件；再利用该条件对新建表的动作进行判断。
Sub 新建工作表()
Dim sht As Worksheet
Dim i As Integer
For Each sht In Sheets
If sht.Name = Sheet1.Range("B4") Then
i = 1
End If
Next
If i = 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheet1.Range("B4")
End If
End Sub
1）For Each sht In Sheets：在所有工作表中进行循环；
2）If sht.Name = Sheet1.Range("B4") Then：如果工作表名称和新建的工作表名称相同
3）i = 1：则设定 i 为1（默认情况下已定义的整数 i 为0）；
4）If i = 0 Then：如果 i 为0，则执行新建工作表的动作，否则就不执行。
5. 再次执行以上代码时，先判断是否有重名，没有重名，则会新建工作表；第二次执行以上代码也不会再报错。
6. 如果要根据已有的多个名称新建表，且已有工作表名称在这些名称之中。
7. 需要在上面的代码外层再使用一个for循环。
Sub 新建工作表()
Dim sht As Worksheet
Dim i, j As Integer
For j = 4 To 6
For Each sht In Sheets
If sht.Name = Sheet1.Range("B" & i) Then
i = 1
End If
Next
If i = 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheet1.Range("B" & i)
End If
Next
End Sub
8. 执行以上代码后，并未新建“F班”和“G班”的工作表：这是因为在执行第一次循环后，变量i已经变为1，而新建表的动作需要在i为0的条件才会执行，所以需要在for each循环之前添加一个恢复i为0的语句。
Sub 新建工作表()
Dim sht As Worksheet
Dim i, j As Integer
For j = 4 To 6
i = 0
For Each sht In Sheets
If sht.Name = Sheet1.Range("B" & j) Then
i = 1
End If
Next
If i = 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheet1.Range("B" & j)
End If
Next
End Sub
以上示例只是用于演示，实际应用场景请根据自己的需要进行相应的设计或调整。
