excel里如何当满足固定条件时插入分页符

来源：百度知道 编辑：UC知道 时间：2024/06/27 06:22:08
我手里有个excel表
其中一列为数字
类似如下
600001
600002
600004
600005
.....
600100
中间序号可能间断 我想在每整百个序号 例600001-600100 后插入一个分页符
注： 序号可能断开 记录条数可能不会会为整百条..
有可能实现么？怎么实现？
请各位达人指教
60001
60002
60004
60006
.....
60100
分页符
600101
600103
....
600200
分页符

类似以上情况

最近用基本操作回答的问题都被VBA回答的抢了最佳,我也用VBA了。

Excel中alt+F11进入VBA编辑页面,插入-模块,将代码复制到主窗口.将Range("A2:A200")修改为你的数字所在的区域,要从第二行开始。即B2:B1000或者C2：C65536这样的

Sub VBA_AD()
Dim Rng As Range

'删除原来的分页符号

If ActiveSheet.HPageBreaks.Count > 0 Then
For i = ActiveSheet.HPageBreaks.Count To 1 Step -1
ActiveSheet.HPageBreaks(i).Delete
Next
End If

'如果上一个单元格最后2位是“00”，那么插入分页符号。

For Each Rng In Range("A2:A200")
If Right(Rng.Offset(-1, 0), 2) = "00" Then
ActiveSheet.HPageBreaks.Add Rng
End If
Next

End Sub