在excel中批量插入分页符

在excel中批量插入分页符

Sub VBA_AD()
Dim Rng As Range
For Each Rng In Range("A2:A4445")
       If Rng.Value = "标记" Then
                ActiveSheet.HPageBreaks.Add Rng
        End If
Next
End Sub