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