Як видалити всі приховані елементи в Excel

Досить часто люди приховують будь-які дані у табличках.

Це хороший варіант залишити видимими лише ті дані, які важливі (наприклад, у звіті), а решту (наприклад, допоміжний стовпчик для розрахунків) просто приховати.

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

У цій статті ми розглянемо швидкі способи видалення прихованих стовпчиків та рядків.

Тож почнемо!

Видаляємо приховані стовпчики та рядки за допомогою вбудованих функцій Excel

Ми можемо використовувати вбудовану функцію Excel, щоб зробити це.

Але не забувайте, що за допомогою цієї функції ми видалимо їх з усіх аркушів. А не з якогось окремого.

Покрокова інструкція:

  • Клацніть “Головна”;

Як видалити всі приховані елементи в Excel

  • Далі – “Відомості”;

Як видалити всі приховані елементи в Excel

  • Далі – “Перевірка книги”;

Як видалити всі приховані елементи в Excel

  • Тиснемо «Перевірити документ»;

Як видалити всі приховані елементи в Excel

  • І просто натискаємо “Перевірити”;

Як видалити всі приховані елементи в Excel

  • Далі знайдіть Далі знайдіть «Приховані рядки та стовпці»;

Як видалити всі приховані елементи в Excel

  • І просто видаліть їх.

Як видалити всі приховані елементи в Excel

Готово! Таким чином, всі приховані елементи будуть видалені. Ось результат перевірки після видалення:

Як видалити всі приховані елементи в Excel

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

Як видалити всі приховані елементи в Excel

Крім того, що ми розглядаємо у цій статті, за допомогою цієї перевірки можна визначити купу інших корисних речей.

Обов'язково зробіть резервну копію файлу перед тим, як використовувати цей спосіб. Оскільки зміни, які ви зробите, неможливо відкотити.

Однак, цей спосіб не підійде, якщо потрібно видалити приховані елементи тільки з одного аркуша. А інші не чіпати.

У такому випадку ми можемо створити функцію за допомогою Visual Basic.

З допомогою Visual Basic

У цьому розділі статті ми створимо кілька функцій для різних цілей за допомогою Visual Basic.

Почнемо!

Видаляємо приховані елементи із виділеного діапазону осередків

Ми можемо створити функцію, яка видаляє приховані елементи з усього листа, але я вважаю, що це дурна витівка.

Найприйнятніший варіант — зробити так, щоб функція видаляла приховані елементи виділеного діапазону. А там уже можна виділити весь лист (CTRL + A), якщо це необхідно.

Код видалення прихованих рядків Visual Basic:

Sub DeleteHiddenRows() Dim sht As Worksheet Dim LastRow Set sht = ActiveSheet LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row For i = LastRow To 1 Step -1 If Rows() Then Rows(i).EntireRow.Delete Next End Sub

Lastrow — цій змінній надається номер останнього рядка у виділеному діапазоні.

Далі він перевіряє прихований чи ні цей рядок і так далі.

Якщо прихована – видаляється.

Код видалення прихованих стовпчиків Visual Basic:

Sub DeleteHiddenColumns() Dim sht As Worksheet Dim LastCol як Integer Set sht = ActiveSheet LastCol = sht.UsedRange.Columns(sht.UsedRange.Columns.Count).Column For i = LastCol To 1 Step -1 If = True Then Columns(i).EntireColumn.Delete Next End Sub

Працює так само, тільки для стовпчиків.

А цей код працює відразу для стовпчиків та рядків:

Sub DeleteHiddenRowsColumns() Dim sht As Worksheet Dim LastRow as Integer Dim LastCol as Integer Set sht = ActiveSheet LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).RowsCang Columns.Count).Column For i = LastRow To 1 Step -1 If Rows(i).Hidden = True Then Rows(i). = True Then Columns(i).EntireColumn.Delete Next End Sub

Це по суті об'єднані коди, які ми вже розглянули.

Тут працює 2 цикли – спочатку перевіряються і видаляються приховані рядки, а потім стовпчики.

Код потрібно вставити в Visual Basic -> правою кнопкою на будь-який аркуш -> Insert -> Module.

Видаляємо приховані елементи з певного діапазону осередків

Буває й таке, що часто видаляти приховані елементи з конкретного діапазону осередків.

У такому випадку ми можемо вказати, в якому діапазоні видаляти приховані елементи і зробити це прямо в функції!

Приклад такого коду:

Sub DeleteHiddenRowsColumns() Dim sht As Worksheet Dim Rng As Range Dim LastRow As Integer Dim RowCount As Integer Set sht = ActiveSheet Set Rng = Range(“A2:B300”) RowCount = Rng.Rows.Count LastRow = 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). i).EntireRow.Delete Next For j = LastCol To LastCol – ColCount Step -1 If Columns(j).Hidden = True Then Columns(j).EntireColumn.Delete Next End Sub

Ця функція видаляє всі приховані елементи A2:B300.

Сам код такий самий, як і ті, що ми розглянули раніше, але в ньому вказано конкретний діапазон.

От і все! Рекомендую використовувати вбудовану функцію перевірки документа, якщо потрібно видалити приховані елементи з усіх аркушів. А в інших випадках – використовуйте будь-який із кодів для Visual Basic.

Сподіваюся, ця стаття виявилася корисною для вас!

nBook
Додати коментар