如果在在excel中批量插入水平分页符

工具》宏》Visual Basic编辑器,添加以下代码:

Sub Page_Break()
Dim Rng As Range
For Each Rng In Range("A3:A7000")
       If Rng.Value = "标记名称" Then
                ActiveSheet.HPageBreaks.Add Rng
        End If
Next
End Sub

注意,A3:A7000,是指定要插入水平分页符的范围,其中单元格A3的值为“标记名称”,就是按指定的标记名称插入分布符,保存后,执行该宏即可。



© 活着的博客 - 李权辉的个人博客:人,终究是生活在现实之中,是为了活着而生活.