Как проверить, скрыта ли строка в 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, показывающее вам скрытые строки, как показано на скриншоте ниже.

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование 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?