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

本文为《别怕，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 LoopEnd Sub

以上过程供参考。