excel怎么按内容批量拆分表格插件 (excel如何批量拆分纵列内容)

Excel工作表有多种多样的表格，如果想随心所欲地拆分工作表，进行打印怎么办呢？

其实，也有好办法，本节就介绍一下，如何对工作表进行拆分打印。

拆分打印并不是把工作表给分解了，而是给表格加一些分页标识，这些标识在普通视图下并不能明显地观察到，可以切换到分页预览，如下图样式，第一页都看明白了。

有什么好处呢？

也就是说当我们的表格记录了一些数据块的时候，就有用了。一个数据块打印到一份纸上。

如下图所示，分别打印出三行二列的表内容，如果这三行二列为某一个相关单元的信息，那么就相对来说有意思了。

具体应用，根据自己的工作内容来理解，接下来看一下代码实现方法：

Private Sub CommandButton1_Click()
Dim ir As Integer, ic As Integer, i As Integer
ir = 15
ic = 6
ActiveSheet.ResetAllPageBreaks '重新设置分页符
For i = 2 To ic
    If i Mod 2 = 1 Then'每两列插入一个分页符
        ActiveSheet.Columns(i).PageBreak = xlPageBreakManual
    End If
Next i
For i = 1 To ir
    If i Mod 3 = 0 Then
        ActiveSheet.Rows(i).PageBreak = xlPageBreakManual
    End If
Next i
Application.PrintCommunication = False
With ActiveSheet.PageSetup
    .PrintTitleRows = "$1:$1"'设置标题行
End With
Application.PrintCommunication = True
End Sub

代码很简单，重点是下面一句：

ActiveSheet.Rows(i).PageBreak = xlPageBreakManual

设置一下PageBreak属性就可以了。

如果要打印标题行，也就是每页都要打印的标题，需要设置如下属性：

PageSetup.PrintTitleRows = "$1:$1"

本节就讲这些，多练习之后，会看到神奇效果。

欢迎关注、收藏。

---END---