vba - 添加多个工作表，命名它们，并将粘贴动态范围复制到新工作表中

Question

我是 excel 新手，我正在尝试添加多张工作表，并为每张工作表命名。宏一次只添加一张表，例如我将单击“运行”，它将创建“价格调整”表，但不会创建其他表。当我再次单击“运行”时，它将仅创建下表，依此类推。

Sub NewSheets()

With Sheets.Add()
    .Name = "CustomerTable"
    .Name = "EmployeeTable"
    .Name = "OrdersTable"
    .Name = "ProductTable"
    .Name = "PriceAdjustment"
End With

End Sub

谢谢

Answer 1

对代码的最快改进是移动Add() method里面 With...End With像这样的声明:

Sub NewSheets()

With Sheets
    .Add().Name = "CustomerTable"
    .Add().Name = "EmployeeTable"
    .Add().Name = "OrdersTable"
    .Add().Name = "ProductTable"
    .Add().Name = "PriceAdjustment"
End With

End Sub