一列を自動的に1枚の紙に印刷する方法ってありますか？

質問

エクセルの使い方について教えてください。
エクセルの名簿から氏名の列だけを抜き出して、
それを一つの用紙に印刷する方法はあるのでしょうか？

氏名の列だけを抜き出して印刷すると、普通は

┌－－－－－－┐
｜Ａ子　　
｜Ｂ子　　
｜Ｃ子　　
｜Ｄ子　
└－－－－－－┘

┌－－－－－－┐
｜Ｅ子　　
｜Ｆ子　　
｜Ｇ子　　
｜Ｈ子　　
└－－－－－－┘

というようにひたすら下へ続いていて右側は空白で、
1ページめに入りきらなかったら２ページめに続きますよね。

┌－－－－－－┐
｜Ａ子　Ｅ子　Ｉ子　
｜Ｂ子　Ｆ子　Ｊ子
｜Ｃ子　Ｇ子　Ｋ子
｜Ｄ子　Ｈ子　Ｌ子
└－－－－－－┘
↑こういう風に自動的に1ページ内の空白が埋まってから
次のページへいくように印刷する方法というのはないのでしょうか？

ネット検索してみても短縮印刷の方法しか見つけられませんでした。
字の大きさはそのままがいいんです。

今は自分でコピペを繰り返して3列にしています。
データが膨大で大変なので、
もし、なにか簡単な方法があれば教えてください。

回答No.3

jo-zen · ベストアンサー

別シートに名前の列だけ関数を使って抜き出してあげることはできます。１ページの行数を５０とかに決めてあげないといけませんが。

例えばシート１のＡ列に名前が入っているとして、別シート（例えばシート２）のＡ１セルに次のように数式を入れます。

　=OFFSET(Sheet1!$A$1,(COLUMN()-1)*50+ROW()-1,0)

Ａ１セルをＡ２：Ａ５０にコピーし、それからＡ１：Ａ５０をＢ列、Ｃ列などにもコピーしてあげればＯＫです。シート２は改ページプレビューなどを使って、５０行ごとに区切れるよう設定してください。印刷設定で１ページの行数を５０に設定してあげてもいいかと思います。

なお、文字の大きさのからみで１ページ３０行にしたい場合は上の式の50を30に変えてあげればＯＫです。

１ページ３列設定だと、１５０件表示されると思いますが、１５１件目は下ではなく、Ｄ列にしてください。横長になりますが、改ページプレビューで改ページの位置を指定してあげれば、印刷時ちゃんと印刷されます。

なお、シート１にデータがない場合は、０が表示されてしまいますので、それをさけるためには、

=IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*50+ROW()-1,0)<>"",OFFSET(Sheet1!$A$1,(COLUMN()-1)*50+ROW()-1,0),"")

としてあげれば、０が表示されることはありません。

お礼

回答ありがとうございました。
試してみました！すごいすごい！元データを編集してもちゃんと反映されるんですね。
便利な方法を教えてくれてありがとうございました。

回答No.2

keirika

VBAや関数を駆使すれば出来るとは思いますが、

もし、Wordをお持ちであれば、Excelのデータを元に

Wordの差込印刷機能を利用し、宛名ラベルを印字する要領で

用紙に印刷されてはどうでしょうか。

見当違いの回答だった場合はご容赦下さい。

参考URL：

http://office.microsoft.com/ja-jp/word/HA010349201041.aspx

お礼

回答ありがとうございます。
なるほど。Wordと組み合わせるという方法もあるのですね。
差込印刷を使うなんて思いつきもしませんでした。

回答No.1

mshr1962

データベース系のソフトならそういう設定もありますけど
エクセルではありません。
下記の方法しか考え付きません。
１．別シート（印刷用）にリンク貼り付けで参照して1枚に印刷
２．プリンタに縦長の用紙設定をして、複数ページを一枚に印刷する。

お礼

回答ありがとうございます。
エクセルでは印刷時に設定できる方法ってないんですね・・・。