ワークシート内の列からワークシートを作成し、テンプレートここ

Question

として別のワークシートを使用してコードです：これは私がように使用する必要が私は2番目の部分を持っている今、私の列に基づいて、新しいワークシートを作成し

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

    Set MyRange = Sheets("Company").Range("B2") 
    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 Wsh_PasteSpecial() 
Dim WshSrc As Worksheet 
Dim WshTrg As Worksheet 

Rem Set working worksheets 
Set WshSrc = ThisWorkbook.Worksheets("RecordsTemplate") '<-- my template 

Set WshTrg = ThisWorkbook.Worksheets("Target") '<-- QUESTION IS HOW DO I SET THE TARGET. 

    WshSrc.Cells.Copy 
    With WshTrg.Cells 
     .PasteSpecial Paste:=xlPasteColumnWidths 
     .PasteSpecial Paste:=xlPasteFormats 
     .PasteSpecial Paste:=xlPasteFormulasAndNumberFormats 
     Application.CutCopyMode = False 
    End With 
End Sub 

Answer 1

私はあなたの2つのコードをマージ：

Sub CreateSheetsFromAList() 
    Dim MyCell As Range, MyRange As Range 
    Dim WshSrc As Worksheet 
    Dim WshTrg As Worksheet 

    Set MyRange = Sheets("Company").Range("B2") 
    Set MyRange = Range(MyRange, MyRange.End(xlDown)) 
    Set WshSrc = ThisWorkbook.Worksheets("RecordsTemplate") '<-- my template 

    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 
     Set WshTrg = ThisWorkbook.Worksheets(MyCell.Value) 
     WshSrc.Cells.Copy 
     With WshTrg.Cells 
      .PasteSpecial Paste:=xlPasteColumnWidths 
      .PasteSpecial Paste:=xlPasteFormats 
      .PasteSpecial Paste:=xlPasteFormulasAndNumberFormats 
      Application.CutCopyMode = False 
     End With  
    Next MyCell 
End Sub