1枚のセルに異なる値のExcelシートを印刷するマクロ

Question

印刷中に各コピーの指定セルの値を変更するExcelマクロを検索しています。これは、たとえば、異なる生徒名の20の学校の課題を印刷するために使用できます。これらの名前は、範囲A1：A20の列Aの2番目のシートに格納されます。どうもありがとうございました！！！

Answer 1

ような何かしてみてください：

Option Explicit 
Sub test() 
    Dim i As Integer 
    i = 1 
    While Sheets(2).Cells(i, 1).Value <> "" 
     Sheets(1).Cells(1, 1).Value = Sheets(2).Cells(i, 1).Value 
     Sheets(1).PrintOut 
     i = i + 1 
    Wend 
End Sub 

を