Как автоматически скрыть строки с пустыми ячейками в столбце в Excel?

Если у вас есть набор данных в Excel с пустыми ячейками в столбце, вы можете захотеть автоматически скрыть строки, содержащие эти пустые ячейки. В этом руководстве мы покажем вам, как автоматически скрывать строки с пустыми ячейками с помощью простого кода VBA, что облегчит управление вашими данными без необходимости вручную фильтровать или скрывать строки.

Используйте код VBA для автоматического скрытия строк при наличии пустых ячеек в столбце

Используйте код VBA для автоматического скрытия строк при наличии пустых ячеек в столбце

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

1. Щелкните правой кнопкой мыши на вкладке листа, где вы хотите автоматически скрыть строки с пустыми ячейками в столбце, затем выберите "Вид Кода" из контекстного меню. В открывшемся окне "Microsoft Visual Basic for Applications" скопируйте и вставьте следующий код в пустой "Модуль":

Код VBA: Автоматическое скрытие строк при наличии пустых ячеек в столбце:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("A1:A20")
            If xRg.Value = "" Then
                xRg.EntireRow.Hidden = True
        
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub

Примечание: В приведенном выше коде "A1:A20" — это диапазон данных, который содержит пустые ячейки, которые вы хотите автоматически скрыть.

2. Теперь вернитесь к рабочему листу. Когда вы дважды щелкаете любую ячейку и нажимаете клавишу "Enter", строки, содержащие пустые ячейки в столбце A, будут скрыты немедленно. Кроме того, если вы очистите содержимое любой ячейки в указанном диапазоне столбца A, строки также будут скрыты автоматически.