excel VBA 一覧表印刷 個別氏名表示

質問

成績一覧表で40名分の番号と氏名を1名のみ表示し，それ以外を
空白にし連続40名分印刷したいです．マクロの知識が少なく，
ネットで調べましたがありません。vlookup関数は使えません。
表一枚を個人番号と氏名での連続印刷となります。すいませんが，
教えて下さい。よろしくお願いいたします。

回答No.2

HohoPapa

添付画像のように、
印刷したいフォームを2枚目のシートに用意し
後記コードを実行する解はいかがでしょうか。

Option Explicit

Sub sample()
　Dim r As Long
　r = 1
　With ThisWorkbook
　　Do
　　　If .Sheets(1).Cells(r, 1).Value = "" Then Exit Do
　　　.Sheets(2).Cells(2, 3).Value = .Sheets(1).Cells(r, 1).Value
　　　.Sheets(2).Cells(3, 3).Value = .Sheets(1).Cells(r, 2).Value
　　　.Sheets(2).PrintOut Copies:=1, Collate:=True, _
　　　　IgnorePrintAreas:=False
　　　r = r + 1
　　Loop
　End With

End Sub

回答No.1

cicibo

Wordの差し込み印刷を使うことをお勧めします。
「Word 差し込み印刷」でweb検索してみてください。
たくさん、検索結果が表示されます。

お礼

ご回答ありがとうございます。
excel　VBA　でのプログラムについてです。
よろしくお願いいたします。