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

发布网友发布时间：2022-04-27 08:15

共2个回答

热心网友时间：2022-05-22 03:59

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

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

热心网友时间：2022-05-22 05:17

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

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

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

.Borders(xlInsideVertical).LineStyle = xlContinuous '

.Borders(xlInsideHorizontal).LineStyle = xlContinuous

.HorizontalAlignment = xlCenter

End With

End Sub

追问

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

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