Excel宏问题：隐藏区域仍插入分页符，仅打印可见区域异常

你的宏后半部分会给隐藏区域插入分页符，核心问题出在查找逻辑未限定可见范围以及缺少目标行可见性校验，具体如下：

1. Find方法未限定仅查找可见单元格
   原代码中Range("E:E").Find("TEXT1")会遍历整列（包括隐藏行），可能定位到隐藏区域内的匹配值；加上On Error Resume Next掩盖了错误，导致逻辑判断失效。

2. 未校验插入分页符的目标行状态
   即使找到的"XXX BREAK"所在行可见，Offset(-1,0)得到的上一行可能是隐藏的，此时插入分页符会直接加到隐藏行前，不符合需求。

修复后的代码 #

Sub PrintView()
    Application.ScreenUpdating = False

    Dim rng1 As Range
    Dim rng2 As Range
    Dim NewRng As Range
    Dim Cell As Range
    Dim i As Long
    Dim lastRow As Long
    Dim foundText1 As Range
    Dim foundText2 As Range
    Dim breakXXX As Range
    Dim breakYYY As Range
    
    ' 定位第一个区域范围
    Set rng1 = Range("A6")
    Set rng2 = Range("A:A").Find("XXX BREAK", LookIn:=xlValues, LookAt:=xlWhole)
    If Not rng2 Is Nothing Then
        Set NewRng = Range(rng1.Address & ":" & rng2.Address)
    End If
    
    With ActiveSheet
        .ResetAllPageBreaks
        
        ' 为第一个区域每70个可见行添加分页符
        If Not NewRng Is Nothing Then
            For Each Cell In NewRng.Columns(1).Cells ' 仅遍历A列，提升效率
                If Not Cell.EntireRow.Hidden Then
                    i = i + 1
                    If i Mod 70 = 0 Then
                        ' 确保插入分页符的行可见
                        If Not Cell.EntireRow.Hidden Then
                            .HPageBreaks.Add Before:=Cell
                        End If
                    End If
                End If
            Next Cell
        End If
    End With
    
    ' 查找TEXT1和对应的分页符位置（仅在可见单元格中查找）
    Set foundText1 = Range("E:E").SpecialCells(xlCellTypeVisible).Find("TEXT1", LookIn:=xlValues, LookAt:=xlWhole)
    Set breakXXX = Range("A:A").SpecialCells(xlCellTypeVisible).Find("XXX BREAK", LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not foundText1 Is Nothing And Not breakXXX Is Nothing Then
        ' 检查目标行是否可见
        If Not breakXXX.Offset(-1, 0).EntireRow.Hidden Then
            ActiveSheet.HPageBreaks.Add Before:=breakXXX.Offset(-1, 0)
        End If
    End If
    
    ' 查找TEXT2和对应的分页符位置（仅在可见单元格中查找）
    Set foundText2 = Range("E:E").SpecialCells(xlCellTypeVisible).Find("TEXT2", LookIn:=xlValues, LookAt:=xlWhole)
    Set breakYYY = Range("A:A").SpecialCells(xlCellTypeVisible).Find("YYY BREAK", LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not foundText2 Is Nothing And Not breakYYY Is Nothing Then
        If Not breakYYY.Offset(-1, 0).EntireRow.Hidden Then
            ActiveSheet.HPageBreaks.Add Before:=breakYYY.Offset(-1, 0)
        End If
    End If
    
    ' 设置打印区域和标题行
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$5"
        .PrintArea = Range("E6:CV" & lastRow).Rows.SpecialCells(xlCellTypeVisible).Address
    End With
    
    Application.ScreenUpdating = True
End Sub

关键修改说明 #

• 限定查找范围为可见单元格：通过SpecialCells(xlCellTypeVisible)先筛选可见区域，再执行Find，避免定位到隐藏行的内容。
• 添加可见性校验：插入分页符前，确认目标行处于可见状态，杜绝给隐藏区域添加分页符。
• 移除错误掩盖语句：用Is Nothing做明确的存在性判断，避免On Error Resume Next掩盖调试线索。
• 优化遍历效率：仅遍历第一个区域的A列单元格，减少不必要的循环操作。

内容的提问来源于stack exchange，提问作者jmsmtrvn