格式化页面以打印2列
有谁知道如何在Excel中移动页面基本上分裂一半电子表格？
例如，电子表格中有390,000行。
如果要用12号字体以纵向格式打印电子表格，那么在每页接近8800页的情况下，每页将会出现大约44行。
我想削减一半。
我有3列。 我想要做的就是把偶数页拿到奇数页，那里有足够的空间。 任何人都可以告诉我，我能做什么？
打印时，将打印机设置设置为“2 UP”或“每页2页”。 或者尝试双面打印。 或两者。 我在这里开玩笑，但打印4400页真的比打印8800更理想？ 很难想象任何人试图通过任何桩来sorting。
试试这个macros（最好保存文件后）。
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