想要创建新的 sheet 以根据 sheet 上的名称列表以特定顺序复制模板

Question

我想根据列表创建新的 sheet，并让所有这些新的 sheet 复制当前存在的 sheet 上的模板。我试过寻找示例，但我找到的所有示例都只创建了一个 sheet 列表，或者只是复制模板。我知道我很接近，但我似乎无法让它工作。

这是我目前所拥有的，并且有效，但是在创建 sheet 时，它们显示为 client3、client2、client1。我希望它以相反的顺序出现。我知道我需要在声明后更改副本，但每次尝试都会出错。任何帮助，将不胜感激我的工作表名称是 Clients 和 Scan

Option Explicit
Sub NewSheets()
Dim i As Integer
Dim ws As Worksheet
Dim sh As Worksheet
Dim sh2 As Worksheet
Set ws = Sheets("Scan")
Set sh = Sheets("Clients")
Set sh2 = Sheets("Scan")
Application.ScreenUpdating = 0

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        Sheets("Scan").Copy After:=sh2
        ActiveSheet.Name = sh.Range("A" & i).Value
Next i
End Sub

Answer 1

像下面这样的东西怎么样：

Option Explicit
Sub NewSheets()
Dim ws As Worksheet: Set ws = Sheets("Scan")
Dim sh As Worksheet: Set sh = Sheets("Clients")
Dim i As Long

Application.ScreenUpdating = False

For i = 2 To sh.Range("A" & sh.Rows.Count).End(xlUp).Row
    Sheets("Scan").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    ActiveSheet.Name = sh.Range("A" & i).Value
Next i

Application.ScreenUpdating = True
End Sub

想要创建新的 sheet 以根据 sheet 上的名称列表以特定顺序复制模板

Want to create new sheets that copy a template in a specific order based on a list of names on a sheet

excel

vba

excel-2007