Sub 剪贴成多栏()r = [a65536].End(3).Row - 1n = Int(r / 3 - 1 / 3) + 1Cells(n + 2, 1).Resize(n, 4).Cut [e2]Cells(n * 2 + 2, 1).Resize(n, 4).Cut [i2][a1:d1].Copy [e1:l1]End Sub这个应该是在打印机选项中设置的办法很简单。先开一个excel,就有一个窗口。如果这时还要看另一个excel文件,就再开一个excel,然后点选文件打开,第2个文件就再第2个窗口打开,这时就有2个excel窗口了,更多的可以依次类推。当然也可以了,你可以先设置好一份,复制一下,在它的右边隔一列粘贴过去。。。。在学校打学生成绩我就是这样用的