excel怎么设置每列都打印成一页?

VBA

我给编了个VBA小程序Sub 转置() Sheets(Sheet1).Se毫让形灯宣早切生问酒乎lecthang = Range(A1).End(xlDown).RowAR = 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, SkipBlanks:= _ False, Transpose:=TrueNextEnd Sub运行成功节黄后，需要的数据保存在第二个表格Sheet2里，原始数据在Sheet1里。VBA使用方法知道吗？网上有很多介绍。