excel如何自动实现按序号双列打印

excel表格里只有序号和数据两列，为了减少打印版面，可以在一张纸上按双列来打印，但是序号不能变。比如：左边是1-50，右边是51-100，依次类推... 但是数据太多，用“剪切-粘贴”的方法太麻烦，求最快、最简单的方法!!

其实很多方法都可以办到的。

我将:)HE的代码进行了修改和优化。

Sub Macro1()
Dim rr%, i%
rr = 50
For i = 1 To Range("A65536").End(xlUp).Row / rr / 2
Range(Cells(rr * i + 1, "A"), Cells(rr * (i + 1), "B")).Copy Cells(rr * (i - 1) + 1, "D")
Range(Cells(rr * i + 1, "A"), Cells(rr * (i + 1), "A")).EntireRow.Delete
Next
End Sub
( 同样注意，若每隔67行，就将rr=50的50改为67，若源数据列序号不是A列和B列，就改成相应的列名称，不是粘贴到D列就将里面的D改为其他的就是了。）

工具，宏，VBA编辑器，右键点左上窗口中的VBAProject，插入，模块，在右边新出来的窗口粘贴一下代码 ( 注意，若每隔67行，就将rr=50的50改为67，若总共有5000行，就将1 to 20改为1 to100） Sub Macro1() rr = 50 For i = 1 To 20 Range(Cells(rr * i + 1, 1), Cells(rr * (i + 1), 2)).Select Selection.Copy Cells(rr * (i - 1) + 1, 4).Select ActiveSheet.Paste Range(Cells(rr * i + 1, 1), Cells(rr * (i + 1), 1)).Select Selection.EntireRow.Delete Next i End Sub 然后运行此宏（回到Excel窗口，工具，宏，宏，macro1，运行）

首先选取并复制Excel 中要打印的部分，粘贴到Word 里，选择“ 格式” 菜单下的“ 分栏” 选项，选择要分割的栏数（如2）。 　　接着选标题行，并选择“ 表格” 菜单下的“ 标题行重复”同，每一栏表头都会出现标题行，然后再打印。如果想保存到Excel 里，只要分栏后将其复制并粘贴到Excel 里就可以了。

在Excel里，全选数据并复制。

打开word，格式，分栏（设为2栏），然后粘贴，打印

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息