Багато користувачів Excel приховують рядки та стовпці, коли у них є певні дані, які їм не потрібні.
Це спосіб зберегти видимі лише корисні дані, і в той же час не потрібно видаляти дані, які вам не потрібні.
І якщо у вас багато таких прихованих рядків/стовпців, знайти та видалити ці приховані рядки та стовпці (у випадку, коли вони вам не потрібні) буде дуже неприємно.
У цьому підручнику я покажу вам кілька способів легко видалити приховані рядки та стовпці в Excel.
Існує вбудований метод, який дозволяє видаляти всі приховані рядки та стовпці за один раз, і ви також можете використовувати макрокоди VBA, якщо ви хочете застосувати це до вибраного нами діапазону клітинок.
Тож почнемо!
Видалити всі приховані рядки та стовпці в Excel
Якщо ви хочете видалити всі приховані рядки та стовпці у всій книзі в Excel, можна скористатися методом, показаним тут.
Пам’ятайте, що ці приховані рядки та стовпці будуть видалені з усієї книги, а не лише з активного аркуша.
Нижче наведено кроки, щоб видалити всі приховані рядки та стовпці з книги в Excel:
- Натисніть на опцію Файл
- У параметрах зліва натисніть "Інформація"
- Натисніть на опцію «Перевірити проблеми»
- Натисніть на опцію «Перевірити документ». Відкриється діалогове вікно Інспектор документів
- У діалоговому вікні «Інспектор документів» натисніть кнопку «Перевірити». Це перевірить всю книгу та надасть вам інформацію про книгу
- Прокрутіть униз до опції "Приховані рядки та стовпці". Ви побачите, що він показує загальну кількість прихованих рядків і стовпців, які він знайшов у книзі.
- Натисніть кнопку «Видалити все»
Вищезазначені кроки видалять усі приховані рядки та стовпці у книзі.
Зауважте, що вам потрібно зберегти цю книгу перед запуском опції Інспектор документів. Якщо книга ще не збережена, Excel спочатку змусить її зберегти. Крім того, він покаже вам попереджувальний запит із проханням зберегти файл один раз, оскільки дані, змінені цими кроками, неможливо відновити.
Якщо немає прихованих рядків і стовпців, перед опцією «Приховані та рядки та стовпці» (у діалоговому вікні «Інспектор документів») ви побачите зелену галочку.
Крім прихованих рядків і стовпців, діалогове вікно «Інспектор документів» також містить багато іншої корисної інформації - наприклад, кількість коментарів або прихованих аркушів, вбудованих документів тощо.
Примітка: Ви не можете скасувати зміни, внесені Інспектором документів. Тому переконайтеся, що у вас є резервна копія вихідних даних (на випадок, якщо вона вам може знадобитися в майбутньому)Це чудовий метод, якщо ви хочете видалити всі приховані стовпці та рядки для всієї книги.
Але якщо ви хочете видалити його лише на певному аркуші або в певному діапазоні, то ви не можете використовувати цей параметр.
У цьому випадку ви можете скористатися описаним далі методом VBA.
Видалити приховані рядки та стовпці за допомогою VBA
Якщо у вас є лише кілька прихованих рядків і стовпців, їх можна показати вручну, а потім видалити.
Але якщо це те, що вам потрібно робити досить часто, або якщо у вас є великий набір даних із великою кількістю прихованих рядків/стовпців, найкраще скористатися кодами макросів VBA для автоматизації цього процесу.
Давайте розглянемо різні сценарії, коли ви можете використовувати VBA для видалення цих прихованих рядків і стовпців.
З цілого аркуша (використовується діапазон)
Хоча я можу змусити код VBA перевірити весь аркуш, починаючи з номера останнього рядка та номера останнього стовпця на аркуші, це означало б марнування ресурсів.
Кращим методом було б подивитися, який використовується діапазон, а потім лише перевірити цей використаний діапазон для будь -яких прихованих рядків і стовпців.
Нижче наведено код VBA, який би видалив усі приховані рядки у використаному діапазоні:
Sub DeleteHiddenRows () Dim sht як аркуш Dim Dim LastRow Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count) .Row For i = LastRow До 1 кроку -1 Якщо рядки (i) .Hidden = True Потім Rows (i) .EntireRow.Delete Next End Sub
Наведений вище код VBA спочатку визначає номер останнього рядка у використовуваному діапазоні та призначає цей номер рядка змінній «LastRow».
Цей останній номер рядка потім використовується в циклі For Next, де він починається з останнього рядка і перевіряє, прихований він чи ні.
Якщо він прихований, весь рядок видаляється. І якщо він не прихований, код залишає цей рядок таким, яким він є, і переміщається до рядка над ним. Цей цикл перевіряє наявність усіх рядків і видаляє будь -який прихований рядок, з яким він стикається в процесі.
Якщо ви хочете видалити всі приховані стовпці у використаному діапазоні, використовуйте код VBA нижче:
Sub DeleteHiddenColumns () Dim sht As Worksheet Dim LastCol as Integer Set sht = ActiveSheet LastCol = sht.UsedRange.Columns (sht.UsedRange.Columns.Count) .Column For i = LastCol До 1 кроку -1 Якщо стовпці (i). = Правда Тоді стовпці (i) .EntireColumn.Delete Next End Sub
Це знову працює так само, коли замість рядків ми перевіряємо наявність стовпців.
Таким чином, він з'ясовує номер останнього стовпця у використаному діапазоні, призначає його змінній, а потім використовує цикл для переходу від останнього стовпця до першого стовпця та видалення всіх прихованих стовпців у процесі.
І якщо ви хочете мати код, який би видалив усі приховані рядки, а також приховані стовпці, використовуйте код VBA нижче:
Sub DeleteHiddenRowsColumns () Dim sht As Worksheet Dim LastRow як Integer Dim LastCol як Integer Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count) .Row LastCol = sht.UsedRange.Columns. Columns.Count) .Column For i = LastRow To 1 Step -1 If Rows (i) .Hidden = True then Rows (i) .EntireRow.Delete Next For i = LastCol To 1 Step -1 If Columns (i) .Hidden = Правда Тоді стовпці (i) .EntireColumn.Delete Next End Sub
Це просто комбінований код для рядків і стовпців і працює однаково.
Замість однієї петлі, тут використовуються дві окремі петлі, де вона спочатку проходить усі рядки, а потім - усі стовпці. При цьому він видаляє всі приховані рядки та стовпці, з якими стикається.
Зауважте, що вам потрібно розмістити цей код VBA у звичайному модулі у редакторі Visual Basic. Потім ви можете запустити код безпосередньо з редактора VB за допомогою діалогового вікна макросу або додавши цей макрос на панель швидкого доступу.
Якщо вам потрібно це робити досить часто, ви також можете додати цей код до особистої книги з макросами, щоб мати доступ до неї з усіх робочих книг у вашій системі.
З певного діапазону клітин
Якщо у вас є певний діапазон, з якого ви хочете видалити приховані рядки та стовпці, вам потрібно вказати це у коді.
Це гарантує, що код обводить лише рядки та стовпці у зазначеному діапазоні, а інші області на аркуші залишає недоторканими
Нижче код VBA, який буде робити це:
Sub DeleteHiddenRowsColumns () Dim sht як робочий аркуш Dim Rng як діапазон Dim LastRow як ціле значення Dim RowCount As Integer Set sht = ActiveSheet Set Rng = Діапазон ("A1: K200") RowCount = Rng.Rows.Count LastRow = Rng.Rows (Rng. Rows.Count) .Row ColCount = Rng.Columns.Count LastCol = Rng.Columns (Rng.Columns.Count) .Column For i = LastRow To LastRow - RowCount Step -1 If Rows (i) .Hidden = True Тоді рядки ( i) .EntireRow.Delete Next For j = LastCol To LastCol - ColCount Крок -1 Якщо стовпці (j) .Hidden = True Тоді стовпці (j).
У наведеному вище коді я вказав діапазон як A1: K200.
Це змушує код проходити всі рядки та стовпці у зазначеному діапазоні та видаляти всі приховані рядки та стовпці, з якими він стикається.
Якщо у вас є приховані рядки або стовпці за межами цього діапазону, це не зміниться.
Отже, ось як можна видалити приховані рядки та стовпці в Excel.
Якщо ви хочете зробити це у всій книзі, ви можете скористатися опцією Інспектор документів. І якщо вам потрібен більший контроль, ви можете використовувати коди VBA, як показано вище.
Сподіваюся, вам цей підручник був корисним!
