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

其实很多方法都可以办到的。我将:)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，运行）