Excel取消隐藏行代码异常：末尾隐藏行无法添加红边框及被统计

嘿，你猜得没错——问题确实出在最后一行的查找逻辑上！大多数Excel VBA里常用的获取最后行的方法（比如Cells(Rows.Count, 1).End(xlUp).Row或者UsedRange.Rows.Count）只会识别可见行，如果最后几行是隐藏状态，这些方法会直接跳过它们，导致你的循环根本没遍历到这些行，自然就不会添加红边框、也不会把它们加入MsgBox的统计里。

解决方法：用Find方法获取包含隐藏行的最后行 #

要覆盖所有行（包括隐藏的），你需要用Cells.Find来定位最后一个有数据的单元格，不管它是否隐藏。这个方法会遍历整个工作表的单元格（包括隐藏区域），找到最后一个非空单元格所在的行。

修正后的核心代码示例 #

假设你原来的代码是这样的（简化版）：

Sub UnhideAndFormatRows()
    Dim lastRow As Long
    Dim i As Long
    Dim hiddenRows As String
    
    ' 原来的错误写法：只识别可见行
    ' lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 修正后的写法：包含所有行（包括隐藏）
    lastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    
    hiddenRows = ""
    
    For i = 1 To lastRow
        If Rows(i).Hidden = True Then
            Rows(i).Hidden = False
            Rows(i).Borders.Color = vbRed ' 添加红边框
            Rows(i).RowHeight = 15
            hiddenRows = hiddenRows & i & ", "
        End If
    Next i
    
    If hiddenRows <> "" Then
        MsgBox "已处理隐藏行：" & Left(hiddenRows, Len(hiddenRows)-2)
    Else
        MsgBox "未发现隐藏行"
    End If
End Sub

关键说明 #

• Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)：从工作表的最后一个单元格开始向上查找第一个非空单元格，不管这个单元格所在的行是否隐藏，所以能准确获取到真正的最后行。
• 如果你是在指定区域内处理（不是整个工作表），可以把Cells换成你的目标区域，比如Range("A1:D100").Find(...)。

为什么原来的方法会失效？ #

• Cells(Rows.Count, 1).End(xlUp).Row：这个操作就像你手动按Ctrl+Up，只会在可见行里移动，隐藏行会被直接跳过，所以如果最后几行隐藏，它会停在上面的可见行。
• UsedRange：这个属性依赖Excel的内部缓存，有时候隐藏行的单元格如果没有被编辑过，Excel可能不会把它们纳入UsedRange，导致范围不准确。

替换成Find方法后，你的代码就能覆盖所有隐藏行，包括最后几行，完美解决边框和统计的问题啦！

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