EXCEl中根据某一列的情况分页处理

发布网友发布时间：2022-04-23 00:51

共5个回答

热心网友时间：2023-07-02 21:45

“视图”-->分页预览-->选一个单元格,单击右键,选重设打印区域或者重设分页符-->其它就看,拖动蓝色的实线和虚线,想怎么设就怎么设,另外要注意在打印预览时设置“缩放比例”,因为它关系到打印出来的页面大小。

1、选定要已该列为标准的任一个单元格（excel会自动搜索到连续范围内的表格），点工具栏的升序、降序图标即可。
2、选定整个需要排序的表格，数据--排序--主要关键字（选择要以此为标准的列标题）。

热心网友时间：2023-07-02 21:45

两种方法：
1、选定要已该列为标准的任一个单元格（excel会自动搜索到连续范围内的表格），点工具栏的升序、降序图标即可。
2、选定整个需要排序的表格，数据--排序--主要关键字（选择要以此为标准的列标题）。

热心网友时间：2023-07-02 21:46

用宏吧：

Sub 分页()

For i = 3 To Cells(65536, 1).End(xlUp).Row
If Cells(i, 1) <> Cells(i - 1, 1) Then ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, 1)
Next

End Sub

热心网友时间：2023-07-02 21:46

在每一类仓库名称后添加分割符就可以，excel 2007：页面布局-->分割符，因为系统上没装2003，你找一下，插入之后打印的时候会自动分页打印

热心网友时间：2023-07-02 21:47

A列是排序好的吗？
遇到不同的仓库，就自动放到下一页打印是吧？追问A列是排序好的，遇到不同的仓库名称就分页。

追答

要想自动插入分页符。需要用程序来实现。

ALT+F11——F7——粘贴如下代码——运行

Sub aa()
Dim i&
For i = 2 To [a65536].End(xlUp).Row
    If Range("A" & i) <> Range("A" & i - 1) Then
       HPageBreaks.Add before:=Range("A" & i)
   End If
Next
End Sub