情報の一覧にマクロを使用します。各情報行に新しいワークシートが必要

Question

私はこのすべてのマクロのことを初めて使いました。以前は使用していなかったので、少し助けてもらえます。

テンプレートと情報の一覧から新しい見積もりを作成するためにマクロを設定しました。顧客情報などを含むSummeryという名前のシートがあり、このすべての情報は見積もりテンプレートに追加する必要があります。私は基本的なマクロを作成し、それは仕事をしますが、私は今それが各顧客のために同じを行う必要があります。現時点では、最初の行でのみ実行されます。 誰かが私がそれを顧客のリスト全体で実行するために必要なコードを助けてくれますか？

Sub Macro2() 
' 
' Macro2 Macro 
' Create New Quote for each customer 
' 
' Keyboard Shortcut: Ctrl+q 

    Sheets("Master").Select 
    Sheets("Master").Copy After:=Sheets(2) 
    Range("A13").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-9]C[1]" 
    Range("A15").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-11]C[2]" 
    Range("E13").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-9]C[-1]" 
    Range("E15").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-11]C" 
    Range("B19").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-15]C[5]" 
    Range("B20").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-16]C[6]" 
    Range("B21").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-17]C[7]" 
    Range("B22").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-18]C[8]" 
    Range("B23").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-19]C[9]" 
    Range("B24").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-20]C[10]" 
    Range("B25").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-21]C[11]" 
    Range("B26").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-22]C[12]" 
    Range("B27").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-23]C[13]" 
    Range("B28").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-24]C[14]" 
    Range("B30").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-26]C[15]" 
    Range("B31").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-27]C[16]" 
    Range("B32").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-28]C[17]" 
    Range("B33").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-29]C[18]" 
    Range("B34").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-30]C[19]" 
    Range("B35").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-31]C[20]" 
    Range("B36").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-32]C[21]" 
    Range("B37").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-33]C[22]" 
    Range("B38").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-34]C[23]" 
    Range("B39").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-35]C[24]" 
    Range("A40:D40").Select 
    ActiveWindow.SmallScroll Down:=9 
    Range("B41").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-37]C[25]" 
    Range("B42").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-38]C[26]" 
    Range("B43").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-39]C[27]" 
    Range("B45").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-41]C[28]" 
    Range("B47").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-43]C[29]" 
    Range("B48").Select 
    ActiveWindow.SmallScroll Down:=-9 
    Range("C19").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-15]C[30]" 
    Range("C20").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-16]C[31]" 
    Range("C21").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-17]C[32]" 
    Range("C22").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-18]C[33]" 
    Range("C23").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-19]C[34]" 
    Range("C24").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-20]C[35]" 
    Range("C25").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-21]C[36]" 
    Range("C26").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-22]C[37]" 
    Range("C27").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-23]C[38]" 
    Range("C28").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-24]C[39]" 
    Range("C30").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-26]C[40]" 
    Range("C31").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-27]C[41]" 
    Range("C32").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-28]C[42]" 
    Range("C33").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-29]C[43]" 
    Range("C34").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-30]C[44]" 
    Range("C35").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-31]C[45]" 
    Range("C36").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-32]C[46]" 
    Range("C37").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-33]C[47]" 
    Range("C38").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-34]C[48]" 
    Range("C39").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-35]C[49]" 
    Range("A40:D40").Select 
    ActiveWindow.SmallScroll Down:=15 
    Range("C41").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-37]C[50]" 
    Range("C42").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-38]C[51]" 
    Range("C43").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-39]C[52]" 
    Range("C45").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-41]C[53]" 
    Range("C47").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-43]C[54]" 
    Range("C48").Select 
    ActiveSheet.Name = Range("A13").Value 


End Sub 

おかげ

Answer 1

あなたの要件が非常に不明確であると私たちも、あなたの「夏らしい」シートが（そこにおそらくタイプミス）のように見えるのか分かりません。だから私はこのコードを書いて、あなたがこれをどのように達成できるかのアイデアを与えています。あなたの要求に応じて「サマーシート」への参照を変更するか、動的にするだけです。

Sub do_random() 
last_row = ThisWorkbook.Worksheets("Summery").Cells(1, 1).End(xlDown).Row 

For i = 1 To last_row 

    Sheets("Master").Select 
    Sheets("Master").Copy After:=Sheets(2) 
    Range("A13").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-9]C[1]" 
    Range("A15").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-11]C[2]" 
    Range("E13").Select 
    ActiveCell.FormulaR1C1 = "=Summery!R[-9]C[-1]" 
    .... 
    'Do what ever you want in here. 

Next i 
End Sub