ERP软件导出到EXCEL的数据有2列2000行，要求一页满50行自动换列

Question

ERP软件导出到EXCEL的数据有2列2000行，如果不换列一页就只能打印两列，要求一页满50行自动换列。
谢谢各位，我已经想到办法了，其实很简单，如果一页要50行的话，在C1单元格输入“＝A51”，右拉到第一页结束，再下拉到第一页结束。这样就可以了，然后全选－选择性粘贴－数值，把下面列里重复的值删掉，下页以此类推。 谢谢wangxf9209的答案，虽然没用到，但给了我启发 .

上面有的地方说错了，是下拉到第最后一行，要不然公式出不来

Answer 1

这个要用VBA解决了。
原数据要放在A列与B列中，执行“工具－宏－宏”中的“换列”宏，就会重新分配原始列，新列从D、E列开始，满50行自动向右分。

操作方法：
按ALT+F11调出VBA窗口，插入一个模块，把下面代码复制进去。
回到在excel窗口，按“工具－宏－宏”，从中选择“换列”这个宏即可。
Sub 换列()
s = 1
y1 = 4
y2 = 5
For i = 1 To 2000 '共2000行
If s > 50 Then s = 1: y1 = y1 + 2: y2 = y2 + 2
Cells(s, y1) = Cells(i, 1)
Cells(s, y2) = Cells(i, 2)
s = s + 1
Next
End Sub

Answer 2

=INDEX($A:$B,(INT(ROW(E50)/50)+ROUND(COLUMN(E50)/2,)-1)*50+ROW(E50),MOD(COLUMN(F50),2)+1)
有点长哦，将公式输入C1，下拉至C50，右拉本回答被提问者采纳

Answer 3

满50行插入分页符即可。插入---分页符。 想快速些的话，在插入第一个分页符之后，选到100行，F4.如此类推。回答完毕。