[已解决]如何按条件批量分页

xiayin

如何按“本人”批量分页，也就是一个户主一页，谢谢了

最佳答案

月排行榜 / 总排行榜

lisongmei

2021-9-18 12:02

Sub d()
Dim i As Integer
ActiveSheet.ResetAllPageBreaks
For i = 4 To [c100000].End(xlUp).Row
    If Range("c" & i).Value = "本人" Then
        Sheet1.HPageBreaks.Add Rows(i)
    End If
Next
End Sub

跳转到最佳答案楼层

lisongmei

Sub d()
Dim i As Integer
ActiveSheet.ResetAllPageBreaks
For i = 4 To [c100000].End(xlUp).Row
    If Range("c" & i).Value = "本人" Then
        Sheet1.HPageBreaks.Add Rows(i)
    End If
Next
End Sub

xiayin

lisongmei 发表于 2021-9-18 12:02
Sub d()
Dim i As Integer
ActiveSheet.ResetAllPageBreaks

谢谢了！