VBA エクセルでセル値を結合セルにコピー

ＶＢＡにて購入品注文書の印刷を一括で出来ないかの相談です。

シートが２枚あります。

1枚は(1)購入品注文書でＦＡＸする為の用紙です。(手配する商品の欄のみ１０箇所ほどあります。)

もう１枚の方に(2)表があり、購入品先・件名・注番・手配する商品が行単位に複数行並んでいます。

１行目から検索して購入品先・件名が同じで手配する商品が複数ある場合は購入品注文書の

手配する商品の２段目以降に転記していきます。

購入品注文書の転記するセルが結合セルになっています。

(2)表に３０行程度入力したあとで(購入品先・件名別単位で１０枚印刷)、マクロ釦１個で完了

させたいのですが可能でしょうか。

尚、出来ればシートは現在のシートを転記・印刷・クリアー⇒転記・印刷・クリアー⇒という

形にしたいです。

そもそも可能かどうかでも回答を頂きたいので宜しくお願いします。

No.1 回答者： xls88 回答日時： 2013/01/19 15:21

極簡単な例です。

Dim c As Range, m As Range

Sheets("Sheet1").Range("A:A").ClearContents
Set m = Sheets("Sheet1").Range("A1")
With Sheets("Sheet2")
With .Range("A1", .Range("A" & Rows.Count).End(xlUp))
For Each c In .Cells
m.value = c.value
Set m = m.Offset(1)
Next
End With
End With

Sheets("Sheet1").PrintOut to:=1, Copies:=1