エクセルで印刷時に「段組み」はできますか？？？

質問

列がＡ．Ｂの２列で、行が５００行以上に渡るデータを作成しました。このデータをA4用紙に印刷すると、右側に余白がたくさん出ます。WORDのように「段組み」の機能はないのでしょうか？
A列、B列に入力しているデータは簡単な数値のため、幅は小さくて十分です。何もしないと、20ページにわたりそうな印刷をなんとか10ページにする方法はないでしょうか？
よろしくお願いします。

回答No.4

gkrsnama

標準機能は出できませんがいくつか方法が考えられます。

１）ワードに張り付け、そちらで段組み印刷する

２）スクリプトを作成し、2列にわたるデータを作る

例　一ページ69行で5列のデータを２段組みにする（右側がないページの方はオートフィルタで隠して印刷、ヘッダはめんどうなのでなし）
Option Explicit

Sub WLine()
On Error GoTo Error

Dim OnMyo As Boolean
Dim N As Integer
Dim C As Integer
Dim Lin As Long

Lin = 1
OnMyo = False

Do Until Cells(Lin, 1) = ""

For N = 1 To 69
If OnMyo = True Then
For C = 1 To 4
Cells(Lin - 69, C + 5) = Cells(Lin, C)
Next
End If

Lin = Lin + 1
Next

If OnMyo = False Then
OnMyo = True
Else
OnMyo = False
End If
Loop

Exit Sub
Error:
MsgBox (Error$)
MsgBox ("行は" & Lin)

End Sub

３）こんなのも見かけました

ベストアンサーに選ばれた回答

sp15xさん

A1セルからC300セルまでデータが入っているのを、３段×２ページにレイアウトして印刷したいということでしょうか？
印刷設定で制御できないので、印刷用に別シートを追加し、そこにリンク貼り付けでデータを貼り付けて、そのシートを
印刷すればよいと思います。

リンク貼り付けは下記ページが判りやすいです。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/benri.htm#rinku

リンク貼り付けで注意することは枠線も貼り付けられるので、
メニューの「ツール」→「オプション」→「表示」タブ→「枠線」のチェックを外す→「OK」をクリックして
枠線を非表示にしておくと良いでしょう。

回答No.3

imogasi

自動的ではないですが、関数の働きを使って、似たことが
出来ます。
A列に５００行データがあるとします。
B列にもA列とペアーのデータがあるとして、
C１セルに
=OFFSET($A$1,ROW()+19,0)といれ２０行まで複写
E1のセルに
=OFFSET($A$1,ROW()+39,0)といれ２０行まで複写
－－－
Ｂ列も同じくD１に
=OFFSET($B$1,ROW()+19,0)といれ２０行まで複写
します。
次ぎはF列に式を設定します。
そしてA1:○２０を印刷します。
何列まで印刷できるかは、見当をつけてください。
その後は右端列に持っていった、最終行に降りていって、そこで上記と同じことを繰り返してください。
折り返した行は削除するのも良いでしょう。
●２０行でやりましたが、縦４０行でやるときは
C１セルに
=OFFSET($A$1,ROW()+39,0)といれ４０行まで複写
となります。

回答No.2

takkuni

それぞれを図形としてコピーし、印刷用としてシート２に同じく図形として貼り付けてみてはどうでしょうか。
間には適当な間隔を設ければ段組みたいになります。
「SHIFTキ＋編集」メニューから図形としてコピー＆ペーストができます。
でも、ページ数が多いのでかえって面倒かもわかりませんね。

回答No.1

Hageoyadi

そいつはExcelの機能ではなく、プリンタの機能に左右されます。改ページプレビューで1ページあたりの列幅を押さえた上で、1枚に2ページとか4ページとかを印刷できるドライバを採用なさっていれば（DTPみたいな複雑なことは無理ですが）可能です。

Excelは表計算ソフトですから、あまり印刷機能に期待しちゃイケません。