多个工作表如何批量按条件插入分页符

joy_fruit

一个工作簿中有N个工作表，怎样根据指定条件批量插入分页符？如附件，希望根据列A中的序号1来插入分页符，该怎么做？

爱疯

http://www.excelpx.com/thread-340220-1-1.html

对于无法上传附件，可参考这个

joy_fruit

爱疯 发表于 2015-12-1 11:24
http://www.excelpx.com/thread-340220-1-1.html

对于无法上传附件，可参考这个

谢谢，是没有压缩导致的

爱疯

Sub test()
    Dim A, i, j

    For i = 1 To Sheets.Count
        With Sheets(i)
            .ResetAllPageBreaks
            A = .Range("a1").CurrentRegion
            For j = 5 To UBound(A)
                If A(j, 1) = 1 Then .HPageBreaks.Add Range("a" & j)
            Next j
        End With
    Next i
End Sub
2.rar (60.52 KB, 下载次数: 23)

2015-12-1 15:09 上传

点击文件名下载附件

joy_fruit

爱疯 发表于 2015-12-1 15:09
Sub test()
    Dim A, i, j

太感谢了，高手[em23]