くるくるマクロ

名簿を参照して宛名を1つずつ差し込んでいく。

sheet1"A1"にsheet2A列のデータを差し込む。

'sheet2A列の最終行番号を取得 。

Dim LastRow As Long

LastRow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row

'ForNextで最終行まで差し込みを繰り返す。都度印刷。

Dim i As Long

For i = 2 To LastRow

Worksheets("Sheet1").Range("A1").Value _

　= Worksheets("Sheet2").Range("A" & i).Value

Worksheets("Sheet1").PrintOut

Next

Sheet2の名簿データを参照。

Sheet1.Range("A1")に順番に挿入していく。

LastRowを取得。

Dim LastRow As Long

LastRow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row

abv72.hatenablog.com

Worksheets("Sheet1").Range("A1")へ

Worksheets("Sheet2")の二行目から最終行（6）まで繰り返し挿入されていく。

Dim i As Long

For i = 2 To LastRow Worksheets("Sheet1").Range("A1").Value _

　= Worksheets("Sheet2").Range("A" & i).Value

最終行（6）でForNextが終了。