Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

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

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

doc автоматично приховувати рядки 1

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

2. Потім поверніться до робочого аркуша і тепер, коли ви двічі клацнете будь-яку клітинку та натисніть вводити ключ, рядки, які містять порожні комірки в стовпці A, були відразу приховані, і якщо ви очистите будь-який вміст комірок у зазначених клітинках стовпця A, рядки будуть автоматично приховані.

doc автоматично приховувати рядки 2


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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
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?
  • 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?
    • 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.
  • 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?
  • 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 ?
    • 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!
  • To post as a guest, your comment is unpublished.
    فتحى السعيد · 3 years ago
    بسم الله وجزاكم الله خيرا هذا الكود رائع ولكن حين قمت بتطبيق كود حذف الصف يبطأ الشيت بطريقة طويلة جدا فما العمل؟
  • 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
    • 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!
  • 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?
    • 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.
      • To post as a guest, your comment is unpublished.
        Koop · 3 years ago
        anyone come up with the answer yet?
        • To post as a guest, your comment is unpublished.
          andrea · 3 years ago
          same question here
          • 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!
  • 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???
  • 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?
    • 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?