[[20030304231334]]　『セルに文字の打出し』（名無し１５３）　ページの最後に飛ぶ

『セルに文字の打出し』（名無し１５３）

エクセルで、A1～Z1の各セルに入れた名前を

別のエクセルシートでA1のセル一つにに各A1～Z1名前を

一枚一枚に入れ、印刷できるか教えて下さい。

具体的に言うと、

　A1 　　　B1 　　　C1 　　D1

 山田　　鈴木　　　田中　　畑中

このデータを

_____＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

 山田

1枚目

_____＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

 鈴木

2枚目

と言う風に出きるかということなのですが・・・。

 仮にデータの入っているシート名を「原稿」とします。

 AからZまでの２６枚のシートを作成し、AシートのA1のセルに =原稿!A1

 BシートのA1のセルに =原稿!B1、CシートのA1のセルに =原稿!C1 とZシートまで

 指定して、メニューの「ファイル」→「印刷」→「印刷対象」の「ブック全体」に

 チェックを入れて印刷すればできると思います。

 もし質問の意味を取り違えていたら、ごめんなさい。（すーさん）

すーさんたぶん質問の意味を取り違えていると思います。

 ２６枚のシートを作成し，各シートのA1にデータを設定すること自体が大変なので

そういうことではないような気がします。

   この質問はよくこの掲示版にもある「差し込み印刷」に関する質問になるかと思います。

数日前にも似た質問がありました。「差し込み印刷」「差込」等で検索したらどうでしょうか。（なお）

  単純なのでこの場合の差込印刷機能を作ってみました。

 データシートを表示して，下記VBAを実行すると，シート２（左から２枚目のシート）に差し込んで

１枚ずつ，データの最後まで印刷をします。

（途中空欄があっても，空欄をいれて印刷してしまいます。）

  途中の停止機能はありませんので，最後まで待つか，CTRL+BREAK で止めてください。（なお）

    Sub test()

 lastcol = Cells(1, Columns.Count).End(xlToLeft).Column

 For i = 1 To lastcol

   Worksheets(2).Cells(1, 1) = Cells(1, i)

  ' 差込データが多い場合は上とおなじような感じで並べる。

  '差込データが多い場合は上とおなじような感じで並べる。

 Worksheets(2).PrintOut

 Next

 End Sub

  蛇足です。

よくある差込印刷的な機能は，差込印刷のレイアウトを別にすれば，大体上記のような

単純なVBAで実現可能と思います。

  データ数（差込数）が多い場合は差し込むコードを同じように並べればいいだけです。

コメント返信：