テーブルのコピー数を動的に作成するVBA

Question

私はこの問題を克服して壁を打っています。私は、テンプレートのテーブルをコピーして、動的な数のそれを背中合わせにコピーしようとしています。私は、各テーブルのタイトルを顧客の名前にしたい、私は別のテーブルから引き出す。ここに私が意味するものは次のとおりです。

何か助けが非常に高く評価されるでしょう。私の説明が意味をなさないことを願っていますが、私が何を意味するのかを明確にする必要があるかどうかを教えてください。

Answer 1

あなたは列Hに顧客リストを配置した場合、あなたが望んでいたとして、これはシート2にテーブルをコピーするには：

Sub foo() 
LastRow = Sheet1.Cells(Sheet1.Rows.Count, "H").End(xlUp).Row ' Count Column H as that's where the customer list is 
For i = 2 To LastRow 'loop from row 2 to the last on column H 
    NewCustomer = Sheet1.Cells(i, 8).Value 'get the customer Name 8 being Column H 
    LastRow2 = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row + 1 'find the next free row in Sheet2 
    Sheet1.Range("A1:C4").Copy Destination:=Sheet2.Range("A" & LastRow2) 'paste the range into Sheet2 
    Sheet2.Range("A" & LastRow2).Value = NewCustomer 'Replace the Customer Name 
Next i 
End Sub