如何在<em>Excel</em>里面实现<em>折行打印</em>-e

• 你在第一行的CD 两列分别列入容积  体积
  

• 你把A里面最后面的一个数+1列入到第二行C里面就可以

• 依次这样做

• 然后在excel里面加入框线就可以  

是每一行，都要复制成多行吗？

表一

表二，公式向右复制，再向下复制。公式里的2换成3或别的，就能变成更多行。

现在有很多百excel工具，我用过那个叫 随手发 的，是一个宏程序，需要降低excel的宏安度全级别问，倒也不是什么病毒。另外，支持的答03版本的excel。这个软件，现在可能没人维专护，不过挺好用，主要用来打工资条，可以插表头，属和折行。望采纳。

第一种答案：用一个VBA来做一个复制。我对VBA不是很熟，尤其对于VBA复杂的对象体系感到头晕，因此花了一天半的时间来看文档，还翻了一本叫《Excel 2003高级VBA编程宝典》的书，才写出这么几句。VBA基本的语法其实不麻烦，麻烦还在于找到正确的对象和属性。现代语言似乎都是这样？应用层面上体系比算法重要。
　　Sub SheetToPrint()
Application.ScreenUpdating = False
' 停止屏幕刷新
For i = 1 To Worksheets("Sheet1").Range("a1", Range("a65535").End(xlUp)).Count
' 这个是从第一行到最后一行的遍历，VBA的这个写法
　　第一种答案：用一个VBA来做一个复制。我对VBA不是很熟，尤其对于VBA复杂的对象体系感到头晕，因此花了一天半的时间来看文档，还翻了一本叫《Excel 2003高级VBA编程宝典》的书，才写出这么几句。VBA基本的语法其实不麻烦，麻烦还在于找到正确的对象和属性。现代语言似乎都是这样？应用层面上体系比算法重要。

　　Sub SheetToPrint()
　　Application.ScreenUpdating = False
　　' 停止屏幕刷新
　　For i = 1 To Worksheets("Sheet1").Range("a1", Range("a65535").End(xlUp)).Count
　　' 这个是从第一行到最后一行的遍历，VBA的这个写法是挺奇怪的。
　　Worksheets("Sheet1").Cells(i, 1).Copy Worksheets("Sheet2").Cells((i - 1) * 3 + 1, 1)
　　' 然后采用单元格对单元格的拷贝，以便于控制。虽然麻烦，其实复制一下就OK了。
　　' 省略单元格拷贝操作若干
　　Next i
　　Application.ScreenUpdating = True
　　End Sub

　　第二种答案，只需要用排序就搞定了。步骤如下：
　　1、如果是折两行的话，构造e69da5e887aae799bee5baa6e79fa5e98193365一个包含1, 3, 5, … , 2n-1, 2, 4, 6, …, 2n 的列。 n和要拷贝的行数相同。
　　2、把要折行的两部分前后分别拷贝到这个构造的列的后面。
　　3、按照构造的列排序。
　　两分钟就搞定了！
　　是挺奇怪的。
Worksheets("Sheet1").Cells(i, 1).Copy Worksheets("Sheet2").Cells((i - 1) * 3 + 1, 1)
' 然后采用单元格对单元格的拷贝，以便于控制。虽然麻烦，其实复制一下就OK了。
' 省略单元格拷贝操作若干
Next i
Application.ScreenUpdating = True
End Sub
　　第二种答案，只需要用排序就搞定了。步骤如下：
1、如果是折两行的话，构造一个包含1, 3, 5, … , 2n-1, 2, 4, 6, …, 2n 的列。 n和要拷贝的行数相同。
2、把要折行的两部分前后分别拷贝到这个构造的列的后面。
3、按照构造的列排序。
两分钟就搞定了！