11.Excel vba开发-根据已有名称，创建新建表格

1.需求：根据已有名称，创建新建表格

2.代码：

Sub 创建表格1() '不在一个表格里
Application.ScreenUpdating = False
r = [a1].CurrentRegion
For i = 1 To UBound(r)
    With Workbooks.Add
        ActiveWorkbook.SaveAs ThisWorkbook.Path & "/" & r(i, 1) & ".xlsx"
        ActiveWorkbook.Close False
    End With
Next
Application.ScreenUpdating = True
End Sub

Sub 创建表格2() '在一个表格里
Application.ScreenUpdating = False
r = [a1].CurrentRegion
For i = 1 To UBound(r)
 Sheets.Add.Name = r(i, 1)
Next
Application.ScreenUpdating = True
End Sub

3.效果