批量新建指定名称的工作表

本文为《别怕，Excel VBA其实很简单（第3版）》随书问题参考答案

：

Sub 新建工作表()
Dim Irow As Integer, Sht As Worksheet
Irow = 2
Set Sht = Worksheets("数据")
On Error Resume Next
Do While Sht.Cells(Irow, "A").Value <> ""
If Worksheets(Sht.Cells(Irow, "A").Value) Is Nothing Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Sht.Cells(Irow, "A").Value
End If
Irow = Irow + 1
Loop
End Sub

以上过程供参考。