エクセルで作成した縦に長い表をA４に2列で印刷

締切済

質問者：katsunof
質問日時：2012/05/24 12:59
回答数：3件

エクセル2007で作成した縦に長い表をA４縦方向に2列づつ印刷していくにはどうすればよいのでしょうか？

表は顧客リストなのですが、縦に長い表をエクセルで作成しました。
表は新しい顧客情報をどんどん下に入力していくので表はどんどん縦に長くなります。

また、データをおいうえお順で並べ変えたりするので
この縦に長い表のフォーマットは便宜上くずしたくないのです。

細長い表なので印刷する場合はA4用紙縦方向に2列づつ印刷していきたいのです。
そういうことは可能でしょうか？

割り付け印刷ではうまく表を2列に配置できず見栄えがよくなく、
何か良い方法があれば教えてください。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

最新から表示
回答順に表示

No.3

回答者： MackyNo1
回答日時：2012/05/24 17:44

エクセルのデータを2段組みで印刷したい場合は、編集はエクセルで、印刷はワードで行うのがお勧めです。

エクセルのデータ範囲を（今後のデータの追加に対応できるように少し大きめに）選択し、右クリック「コピー」、ワードで新規文書を開き、ページレイアウトタブの段組みから2段を選択しておき、右クリック「形式を選択して貼り付け」で「リンク貼り付け」にチェックを入れます。

このワード文書のレイアウトを適宜整えておき、エクセルでデータを変更したらこのワード文書で右クリックして「リンク先の更新」をすれば最新のエクセルデータを2段組みで印刷できます。

この回答への補足

回答ありがとうございます。

しかし、この場合、貼り付け位置が思うようにいきません。

形式を選択してリンク貼り付けすると、
張り付けたい位置より、なぜか一段落下に張り付けられてしまいます。

二段組みにしたレイアウトでは左の段組みが一段落下に張り付けられてしまうので、
右の段組みと段が一段ずれてしまいます。

普通に張り付ける場合は問題がなく張り付けたい位置にきちんと貼り付けられるのですが、
なぜ形式を選択してリンク貼り付けを行うと一段落下に張り付けられてしまうのでしょうか？

補足日時：2012/05/28 10:50

通報する

- 19
- 件

通報する

No.2

回答者： KURUMITO
回答日時：2012/05/24 14:27

シート１のＡ列にデータがあるとして、印刷のためのシートを例えばシート２に用意します。

Ａ４の１ページ当たり４０行で２列の表にするとしたらシート２のＡ１セルには次の式を入力してＢ１セルまでドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(INDEX(Sheet1!$A:$A,IF(COLUMN(A1)=1,ROUNDDOWN((ROW(A1)-0.1)/40,0)*80+MOD(ROW(A1)-1,40)+1,ROUNDDOWN((ROW(A1)-0.1)/40,0)*80+40+MOD(ROW(A1)-1,40)+1))=0,"",INDEX(Sheet1!$A:$A,IF(COLUMN(A1)=1,ROUNDDOWN((ROW(A1)-0.1)/40,0)*80+MOD(ROW(A1)-1,40)+1,ROUNDDOWN((ROW(A1)-0.1)/40,0)*80+40+MOD(ROW(A1)-1,40)+1)))

印刷の際は４０行を１ページになるように改ページプレビューなどで設定して印刷すればよいでしょう。

仮にシート１でデータがＡ列およびＢ列に合ってシート２では４列として４０行のページにするのでしたらシート２のＡ１セルには次の式を入力してＤ１セルまでドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(INDEX(Sheet1!$A:$B,IF(COLUMN(A1)<=2,ROUNDDOWN((ROW(A1)-0.1)/40,0)*80+MOD(ROW(A1)-1,40)+1,ROUNDDOWN((ROW(A1)-0.1)/40,0)*80+40+MOD(ROW(A1)-1,40)+1),MOD(COLUMN(A1)-1,2)+1)=0,"",INDEX(Sheet1!$A:$B,IF(COLUMN(A1)<=2,ROUNDDOWN((ROW(A1)-0.1)/40,0)*80+MOD(ROW(A1)-1,40)+1,ROUNDDOWN((ROW(A1)-0.1)/40,0)*80+40+MOD(ROW(A1)-1,40)+1),MOD(COLUMN(A1)-1,2)+1))

なお４０行以外で設定する場合には上記の式を参考にしてください。