excel - ページを 2 列で印刷するように書式設定する

Question

基本的にスプレッドシートを半分に分割するためにExcelでページを移動する方法を知っている人はいますか?

たとえば、スプレッドシートに 390,000 行あります。
スプレッドシートを 12 サイズのフォントで縦長の形式で印刷すると、8800 ページ近くで 1 ページあたり約 44 行になります。

それを半分に切りたい。

私は3つの列を持っています。私がやりたいのは、偶数ページを十分なスペースがある奇数ページに移動することだけです。私に何ができるか教えてくれる人はいますか？

Answer 1

印刷するときは、プリンターの設定を「2 UP」または「2 Pages per sheet」に設定してください。または、両面印刷をお試しください。または両方。冗談ですが、8800 ページを印刷するよりも 4400 ページを印刷する方が本当に望ましいのでしょうか? いずれかの山を分類しようとする人を想像するのは難しい.

Answer 2

このマクロを試してください（できればファイルを保存した後）。

Sub adsagrse()
Dim lRows As Long

'turn off updates to speed up code execution
With application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
    .DisplayAlerts = False
End With


lRows = 45

Do While Len(Cells(lRows, 1)) > 0
    Cells(lRows, 1).Resize(44, 3).Copy Cells(lRows, 1).Offset(-44, 4)
    Cells(lRows, 1).Resize(44, 3).ClearContents
    lRows = lRows + 88
llop

ActiveSheet.UsedRange.AutoFilter
ActiveSheet.UsedRange.AutoFilter 1, ""
ActiveSheet.UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.UsedRange.AutoFilter


With application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
    .DisplayAlerts = True
End With

End Sub