Excel 怎么打印2列 很多行的数据表

Question

我有个Excel表 要打出来。但是表格只有两列，1000行左右。一张纸只能打印50行。有什么办法打印时吧更多的数据打印到一张纸上。如果我手动调的话一张纸可以装下200行的数据（吧多出来的行移到右边）有没有自动的方法？

Answer 1

用宏比较快。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：

Sub test()
Dim i, j As Integer
Application.ScreenUpdating = False
For i = 1 To 5
For j = 1 To 4
Range("A" & 50 * (j - 1) + 200 * (i - 1) + 1 & ":B" & 50 * (j - 1) + 200 * (i - 1) + 50).Cut Cells(200 * (i - 1) + 1, j * 2 - 1)
Next j
Next i
For i = 5 To 1 Step -1
Rows(200 * (i - 1) + 51 & ":" & 200 * i).Delete
Next i
Application.ScreenUpdating = True
End Sub

在此界面直接按F5运行此宏，完成。