Як автоматично приховати рядки, якщо порожні клітинки в стовпці?

Якщо у вас є діапазон даних, який заповнює кілька порожніх комірок у стовпці, і зараз, ви хочете автоматично приховати рядки, які містять порожні клітинки в цьому стовпці. Чи є якісь хороші способи вирішити цю роботу в Excel швидко і легко?

Автоматично приховувати рядки, якщо порожні клітинки в стовпці з кодом VBA

Автоматично приховувати рядки, якщо порожні клітинки в стовпці з кодом VBA

Наступний код може допомогти вам приховати всі рядки, якщо порожні клітинки в певному стовпці одночасно, і якщо ви видалите вміст комірки в цьому стовпці, рядки також будуть автоматично приховані. Будь ласка, виконайте наступне:

1. Клацніть правою кнопкою миші на вкладці аркуша, яку потрібно автоматично приховати, якщо в стовпці є порожні клітинки, а потім виберіть Переглянути код з контекстного меню, що з’явиться Microsoft Visual Basic для додатків вікно, скопіюйте та вставте наступний код у порожнє Модулі:

Код 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. Потім поверніться до робочого аркуша і тепер, коли ви двічі клацнете будь-яку клітинку та натисніть вводити ключ, рядки, які містять порожні комірки в стовпці A, були відразу приховані, і якщо ви очистите будь-який вміст комірок у зазначених клітинках стовпця A, рядки будуть автоматично приховані.

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ...

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...

17 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
Ken · 4 months ago
What is the simplest way to undo the auto-hide?
- Reply
To post as a guest, your comment is unpublished.
Kacha · 11 months ago
What I want is something like this to work in the active sheet:

If cells D2:D55 = ""
Then Hide.EntireRow

If cells D2:D55 = "has any value"
Then Show.EntireRow

How?
- Reply
- To post as a guest, your comment is unpublished.
  skyyang · 11 months ago
  
  Hello, Kacha,
  You just need to change the cell reference in the code to your own cell range as below:
  Private Sub Worksheet_Change(ByVal Target As Range) 'Updateby Extendoffice Dim xRg As Range Application.ScreenUpdating = False For Each xRg In Range("D2:D55") If xRg.Value = "" Then xRg.EntireRow.Hidden = True Else xRg.EntireRow.Hidden = False End If Next xRg Application.ScreenUpdating = True End Sub
  After inserting the code, please remember to double click any cell and press Enter key to make the code take effect.
  
  Reply
To post as a guest, your comment is unpublished.
Josh · 2 years ago
The formula works to hide cells based on information, at the beginning, but does not re-reveal cells if their content changes. I want it to reveal any new cells that have been filled with information (which occurs via a cell lookup). How do I do this?
- Reply
To post as a guest, your comment is unpublished.
ACHINTA PANDE · 2 years ago
I want to know whether the code will work If the cell is blank as a result of Formula ?
- Reply
- To post as a guest, your comment is unpublished.
  skyyang · 2 years ago
  
  Hello, ACHINTA,
  The above VBA code is also applied to the blank cells as a result of formula, you could try it, thank you!
  
  Reply
To post as a guest, your comment is unpublished.
فتحى السعيد · 3 years ago
بسم الله وجزاكم الله خيرا هذا الكود رائع ولكن حين قمت بتطبيق كود حذف الصف يبطأ الشيت بطريقة طويلة جدا فما العمل؟
- Reply
To post as a guest, your comment is unpublished.
chinmay salpe · 3 years ago
how to Auto hide rows if blank cells in 2 different columns with VBA code
- Reply
- To post as a guest, your comment is unpublished.
  skyyang · 3 years ago
  
  Hi, salpe,
  To hide the rows if blank cells in 2 different columns automatically, please apply the following code:
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim xRg, xCell As Range
  Dim xRgs, xRgArea As Range
  Set xRgs = Range("A1:A22,D1:D22")
  Application.ScreenUpdating = False
  On Error GoTo Ctn
  For Each xRgArea In xRgs.Areas
  Debug.Print xRgArea.Address
  For Each xRg In xRgArea.Columns
  For Each xCell In xRg.Rows
  If xCell.Value = "" Then
  xCell.EntireRow.Hidden = True
  GoTo Ctn
  ElseIf Not xCell.EntireRow.Hidden Then
  xCell.EntireRow.Hidden = False
  End If
  Ctn:
  Next
  Next
  Next
  Application.ScreenUpdating = True
  End Sub
  
  You can change the cell references to your need.
  Please try it!
  
  Reply
To post as a guest, your comment is unpublished.
alex · 4 years ago
Can I stop this macro from running automatically after hitting enter? Could I attach it to a button to only hide the cells when I click?
- Reply
- To post as a guest, your comment is unpublished.
  devin · 3 years ago
  
  did anyone ever figure this out? I too would like to know.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Koop · 3 years ago
  
  anyone come up with the answer yet?
  
  Reply
  
  To post as a guest, your comment is unpublished.
  andrea · 3 years ago
  
  same question here
  
  Reply
  
  To post as a guest, your comment is unpublished.
  skyyang · 3 years ago
  
  Hello, guys,
  To hide the rows which a specific column contains blank cells by using a button, please do as this:
  First, you should insert a Command Button from the Developer tab.
  And then apply the following VBA code for the Command Button, (Note: please change the cell reference a1:a20 to your own)
  
  Private Sub CommandButton1_Click()
  Dim rng As Range, x As Range
  Set rng = Range("a1:a20")
  Application.ScreenUpdating = False
  For Each x In rng
  If Len(x.Text) = 0 Then
  x.EntireRow.Hidden = True
  Else
  x.EntireRow.Hidden = False
  End If
  Next x
  Application.ScreenUpdating = True
  End Sub
  
  Please try it, hope it can help you!
  
  Reply
To post as a guest, your comment is unpublished.
Lars · 4 years ago
I get a Run-time error ´13´:

Type mismatch

Someone who can help???
- Reply
To post as a guest, your comment is unpublished.
Ant · 4 years ago
Hi, i am using excel 2016 and it s not working. I get a sintax error message. can you help?
- Reply
- To post as a guest, your comment is unpublished.
  skyyang · 4 years ago
  
  Hello, Ant,
  
  The above code works well in my Excel 2016, have you change the cell reference in the code to your need?
  
  Reply

Увійти в свій акаунт

Скидання пароля