Question

怎么实现EXCEL表格 批量插入分页符 进行分页打印呢？

一个表格里，每到姓名就进行分隔，分页打印出来4张，每张包含一个姓名所对应的数据，因为数据会很多，不太好手动，一个一个添加分页符

Answer 1

目前EXCEL不支持批量定位且激活单元格，所以用筛选法来实现：
1、在你的表A1单元格上加一行，建立一个表头列1、列2...
2、数据---筛选---A列：姓名，
3、每一行进行插入分页符：页面设计---分隔符---分页符，注每一行重复。

4、释放筛选，就看到如意的效果。OK

Answer 2

Sub crfyf()

Dim i&, j&, r&

For i = 2 To Cells(Rows.Count, 1).End(3).Row

Cells(r + 1, 7) = [a1]

Cells(r + 1, 8) = Cells(i, 1)

r = r + 1

For j = 2 To 5

If Cells(i, j) <> "" Then

Cells(r + 1, 7) = Cells(1, j)

Cells(r + 1, 8) = Cells(i, j)

r = r + 1

End If

Next

Next

ActiveSheet.PageSetup.PrintArea = "$G$1:$H$" & r

For i = 2 To r

If Cells(i, 7) = [a1] Then

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, 7)

End If

Next

With Range("$G$1:$H$" & r)

.Borders(xlInsideVertical).LineStyle = xlContinuous  '

.Borders(xlInsideHorizontal).LineStyle = xlContinuous

.HorizontalAlignment = xlCenter

End With

End Sub

追问

好的，谢谢，这个之前，是一个横板的总表，可以调整成竖版后，最后再添加分页打印吗，万分感谢