如图所示
Sub 增加表()For i = 1 To [a65536].End(3).RowWorksheets.Add after:=Sheets(Sheets.Count)ActiveSheet.Name = Cells(i, 1)NextEnd Sub
