各位，本人新建了分页符，现在如何才能批量删除~

冰封气流

各位兄弟们，本人新建了分页符，现在如何才能批量删除~
新建的分页符
Sub 新建分页符()
    Dim i, ws As Worksheet
    Set ws = ActiveSheet
    For i = 1 To 1000 Step 30
        ws.HPageBreaks.Add before:=Range("k" & i)
    Next i
End Sub

先求个批量删除分页符的方法

chxw68

        ActiveSheet.ResetAllPageBreaks

一指禅62

1. ActiveSheet.ResetAllPageBreaks

复制代码

冰封气流

chxw68 发表于 2024-1-13 16:45
ActiveSheet.ResetAllPageBreaks

不行大佬，这句重置了分页符，系统自动生成了分页符，打印时，由于空白的表也有分页符，空白表也会打印出来

冰封气流

一指禅62 发表于 2024-1-13 17:02

不行大佬，这句重置了分页符，系统自动生成了分页符，打印时，由于空白的表也有分页符，空白表也会打印出来

剑指E

手动插入的分页符可以删除（第一句），系统自动分页符是删不掉的，只能不显示（第二句）

冰封气流

剑指E 发表于 2024-1-13 18:49
手动插入的分页符可以删除（第一句），系统自动分页符是删不掉的，只能不显示（第二句）

多谢，明天了我试试