excel如何设置每列都打印成一页？

来源：百度知道 编辑：UC知道 时间：2024/06/04 02:22:34
遇到一个棘手的问题，现在有如下一个文档：
id name age
1 aa 10
2 bb 11
3 cc 10
4 dd 12
5 ee 11
6 aa 10
7 bb 11
8 cc 10
9 dd 12
10 ee 11
11 aa 10
12 bb 11
我想把它们每一行都设置成一页，而且显示的效果是
id 1
name aa
age 10
（一页）
id 1 2
name aa bb
age 10 11
（第二页）
...
哪位高手知道啊，把步骤写具体点，如果成功了，我再加赏更多点的分，谢谢了！急急！！

我给编了个VBA小程序
Sub 转置()
Sheets("Sheet1").Select
hang = Range("A1").End(xlDown).Row
AR = "A1:A" & Trim(Str(3 * hang))
MsgBox AR
'Exit Sub
Range("A1:C1").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A1:A3").Select
Application.CutCopyMode = False

Selection.AutoFill Destination:=Range(AR), Type:=xlFillDefault
'Range("A1:A3").Select

For i = 1 To hang
Sheets("Sheet1").Select
Range(Cells(i, 1), Cells(i, 3)).Select
Selection.Copy
Sheets("Sheet2").Select
Range(Cells(3 * i - 2, 2), Cells(3 * i - 2, 2)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, Sk