質問: ws2.cells(i, 1) '←sheet1のa1セルに名前を表示 ws1.printout next i end sub 'この行まで
回答: b列のデータ数がa列と同じかそれより少ない場合。 その他の場合は、どうなのか質問に示しておかないと。 sub test() 'この行から dim i as long dim ws1, ws2 as worksheet set ws1 = worksheets("sheet1") '←sheet名は適宜変更してください set ws2 = worksheets("sheet2") '←こちらのsheet名も適宜変更 for i = 1 to ws2.cells(rows.count, 1).end(xlup).row ws1.range("a1") = ws2.cells(i, 1) '←sheet1のa1セルに名前を表示 ws1.range("b1") = ws2.cells(i, 2) '←sheet1のb1セルに**を表示 ws1.printout next i end sub 'この行まで