Как проверить, скрыта ли строка в Excel?

В этой статье говорится о проверке, скрыта ли строка в указанном диапазоне или на листе в Excel.

Проверьте, скрыта ли строка в выбранном диапазоне с кодом VBA
Проверьте, скрыта ли строка на листе с кодом VBA

Проверьте, скрыта ли строка в выбранном диапазоне с кодом VBA

Пожалуйста, сделайте следующее, чтобы проверить, скрыты ли строки в выбранном диапазоне, и найдите номер скрытой строки.

1. Выберите диапазон, в котором вы будете проверять наличие скрытых строк. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте ниже код 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. Откройте рабочий лист, который нужно проверить на наличие скрытых строк, нажмите кнопку другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте ниже код 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?