如何檢查Excel中的行是否被隱藏？

本文將介紹如何檢查Excel中指定區域或工作表中的行是否被隱藏。

使用VBA代碼檢查選擇區域中的行是否被隱藏
使用VBA代碼檢查工作表中的行是否被隱藏

使用VBA代碼檢查選擇區域中的行是否被隱藏

請按照以下步驟操作，檢查選擇區域中的行是否被隱藏並找到隱藏的行號。

1. 選擇要檢查隱藏行的區域。按下 Alt + F11 鍵打開 Microsoft Visual Basic for Applications 視窗背景色。

2. 在 Microsoft Visual Basic for Applications 視窗背景色中，點擊 插入 > 模組。然後將以下VBA代碼複製到代碼窗口中。

VBA代碼：檢查選擇區域中的隱藏行

Sub HiddenRowsInRange()
'Update by Extendoffice 2018/5/15
    Dim I As Long
    Dim xStr As String
    Dim xOne, xTwo As Long
    Dim xRg, xRgVsb, xRgItem As Range
    On Error Resume Next
    Set xRg = Range("A1:A100")
    Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
   If xRg.Count <> xRgVsb.Count Then
        For I = 1 To xRgVsb.Areas.Count - 1
            Set xRgItem = xRgVsb.Areas.Item(I)
            xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
            xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
            xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
        Next
        xStr = Left(xStr, Len(xStr) - 1)
        MsgBox "Hidden rows in selected range are:" & xStr
    Else
        MsgBox "No rows hidden"
    End If
End Sub

3. 按下 F5 鍵運行代碼。

隨後會彈出一個 Microsoft Excel 對話框，顯示如下截圖所示的隱藏行。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

使用VBA代碼檢查工作表中的行是否被隱藏

以下VBA代碼可以幫助您檢查Excel工作表中的隱藏行。請按照以下步驟操作。

1. 打開需要檢查隱藏行的工作表，按下 Alt + F11 鍵打開 Microsoft Visual Basic for Applications 視窗背景色。

2. 在 Microsoft Visual Basic for Applications 視窗背景色中，點擊 插入 > 模組。然後將以下VBA代碼複製到代碼窗口中。

VBA代碼：檢查工作表中的行是否被隱藏

Sub HiddenRowsInSheet()
'Update by Extendoffice 2018/5/15
    Dim I As Long
    Dim xStr As String
    Dim xOne, xTwo As Long
    Dim xRg, xRgVsb, xRgItem As Range
    On Error Resume Next
    Set xRg = ActiveSheet.UsedRange
    Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
    Debug.Print xRgVsb.Address
    If xRg.Count <> xRgVsb.Count Then
        For I = 1 To xRgVsb.Areas.Count - 1
            Set xRgItem = xRgVsb.Areas.Item(I)
            xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
            xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
            xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
        Next
        xStr = Left(xStr, Len(xStr) - 1)
        MsgBox "Hidden rows in active sheet are:" & xStr
    Else
        MsgBox "No rows hidden"
    End If
End Sub

3. 按下 F5 鍵運行代碼。

隨後會彈出一個 Microsoft Excel 對話框，顯示當前工作表中的隱藏行，如下截圖所示。

備註：如果選擇區域或工作表中沒有隱藏行，您將看到如下截圖所示的對話框。

相關文章：

• 如何檢查Excel單元格中的首個字符是字母還是數字？