想要根據工作表上的名稱列表創建以特定順序復制模板的新工作表

Question

我想根據列表創建新工作表，並讓所有這些新工作表在當前現有工作表上復制一個模板。 我試過尋找示例，但我找到的所有示例都只創建工作表列表，或者只是復制模板。 我知道我很接近，但我似乎無法讓它發揮作用。

這是我目前所擁有的，並且有效，但是當創建工作表時，它們顯示為 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