在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
在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