我刚好做了一个员工遣散前2个月的全部货币收入表sheet1，每人一行，每行有135列，我
1、用VBA将标题行复制到表sheet2的50行，逐一将每个人的资料（一行内容）复制到51行，
2、将51~52行的1~45列内容剪切，选择性粘贴-转置到A1单元格，
3、将51~52行的46~90列内容剪切，选择性粘贴-转置到C1单元格，
4、将51~52行的91~135列内容剪切，选择性粘贴-转置到E1单元格，
5、把全部内容的行高调整至1 页，
6、打印，
7、重复~6.
内容全部来源于网络收集，如有侵权，请联系网站删除！