基於主工作表創建工作表，然後重命名每個選項卡

Question

我想從主工作表的「項目」列表中創建工作表。當創建工作表時，我希望它從列表中重命名爲項目編號。

我發現了兩個可以完成這項工作的宏，但我需要它們一起工作。

這一個創建選項卡並重命名它們。

Sub CreateSheetsFromAList() 
    Dim MyCell As Range, MyRange As Range 

    Set MyRange = Sheets("Invoice Summary").Range("B11") 
    Set MyRange = Range(MyRange, MyRange.End(xlDown)) 

    For Each MyCell In MyRange 
     Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet 
     Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet 
    Next MyCell 
End Sub 

這一個複製母版標籤並創建另一個工作表。

Sub Test() 
    Dim ws1 As Worksheet 
    Set ws1 = ThisWorkbook.Worksheets("Master") 
    ws1.Copy ThisWorkbook.Sheets(Sheets.Count) 
End Sub 

Answer 1

假設沒有名爲工作表「大師（2）」在您的工作簿，該代碼應工作：

Sub CreateSheetsFromAList() 

    Dim ws1 As Worksheet 
    Set ws1 = ThisWorkbook.Worksheets("Master") 

    Dim MyCell As Range, MyRange As Range 

    Set MyRange = Sheets("Invoice Summary").Range("B11") 
    Set MyRange = Range(MyRange, MyRange.End(xlDown)) 

    For Each MyCell In MyRange 
     ws1.Copy ThisWorkbook.Sheets(Sheets.Count) 
     ThisWorkbook.Worksheets("Master (2)").Name = MyCell.Value 
    Next MyCell 

End Sub 

它似乎很奇怪，沒有工作表對象從工作表中返回。複製方法。

使用xlDown獲取結束範圍時需要注意的一件事情 - 如果您的範圍中有零個單元格或一個單元格，xlDown將一直延伸到工作表的最後一行，這會產生不良行爲。在這種情況下，嘗試重命名目標工作表時會出錯，但需要注意。