excel 怎样把一组数据分两列显示?

发布网友发布时间：2022-04-26 16:46

共3个回答

热心网友时间：2023-10-15 03:50

用宏处理，准备工作：把标题去掉，即第一行数据在第一行，右击工作表标签，查看代码，把下面的代码贴过去，按F5运行 // 操作完成后，在前面插入空行，输入标题，设置打印标题行，每页即自动在打印时加标题。

Sub chiefzjh()
Dim i%, t%
i = 1
t = 5 '每面行数，自己改

Application.ScreenUpdating = False
Do While i < ([a65536].End(3).Row) / 2 / t + 1
Cells(i * t + 1, 1).Resize(t, 3).Cut Cells(t * (i - 1) + 1, 4)
Cells(i * t + 1, 1).Resize(t, 3).Delete (xlUp)
i = i + 1
Loop
Application.ScreenUpdating = True
End Sub

热心网友时间：2023-10-15 03:51

先手动调整数据，然后设置打印范围。

热心网友时间：2023-10-15 03:51

word中有分栏，Excel不行的