Note: The other languages of the website are Google-translated. Back to English

Як видалити порожні стовпці із заголовком у Excel?

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

doc видалити порожні стовпці із заголовком 1

Видаліть порожні стовпці заголовком за допомогою коду VBA

Видаліть кілька порожніх стовпців у діапазоні / аркуші / книзі за допомогою Kutools для Excel


стрілка синя права міхур Видаліть порожні стовпці заголовком за допомогою коду VBA

В Excel немає прямого методу вирішення цієї роботи, за винятком видалення їх по одному вручну, але тут я можу ввести вам код, будь ласка, виконайте наступне:

1. Утримуйте клавішу ALT + F11 клавіші, потім відкриється Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код VBA: Видалити порожні стовпці із заголовком:

Sub Macro1()
'updateby Extendoffice
    Dim xEndCol As Long
    Dim I As Long
    Dim xDel As Boolean
    On Error Resume Next
    xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    If xEndCol = 0 Then
        MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For I = xEndCol To 1 Step -1
        If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
            Columns(I).Delete
            xDel = True
        End If
    Next
    If xDel Then
        MsgBox "All blank and column(s) with only a header row have now been deleted.", vbInformation, "Kutools for Excel"
    Else
        MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

3. Потім натисніть F5 клавішу для запуску цього коду, і з'явиться підказка з нагадуванням про те, що порожні стовпці із заголовком будуть видалені, див. знімок екрана:

doc видалити порожні стовпці із заголовком 2

4. А потім клацніть OK кнопки, усі порожні стовпці з лише заголовком на поточному аркуші видаляються одночасно.

примітки: Якщо є порожні стовпці, вони також будуть видалені.


стрілка синя права міхур Видаліть кілька порожніх стовпців у діапазоні / аркуші / книзі за допомогою Kutools для Excel

Іноді потрібно лише видалити порожні стовпці Kutools для ExcelАвтора Видалити приховані (видимі) рядки та стовпці утиліта допоможе вам легко виконати це завдання.

Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. 

після установки Kutools для Excel, будь ласка, виконайте наступне:

1. Виберіть діапазон стовпців, який включає порожні стовпці, які потрібно видалити.

2. Потім натисніть Кутулс > видаляти > Видалити приховані (видимі) рядки та стовпці, див. скріншот:

3, в Видалити приховані (видимі) рядки та стовпці діалоговому вікні, ви можете вибрати область видалення зі спадного списку Шукати, коли вам потрібно, виберіть Колони від Тип видалення розділ, а потім виберіть Пусті стовпці від Детальний тип розділ, див. знімок екрана:

doc видалити порожні стовпці із заголовком 4

4. Потім натисніть Ok і відразу видаляються лише порожні стовпці. Дивіться знімок екрана:

doc видалити порожні стовпці із заголовком 5

чайові: Завдяки цій потужній функції ви також можете видаляти порожні рядки, видимі стовпці або рядки, приховані стовпці або рядки, як вам потрібно.

Клацніть безкоштовно завантажити Kutools для Excel зараз!


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

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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (10)
Оцінено 5 з 5 · рейтинги 1
Цей коментар був мінімізований модератором на сайті
Привіт, дякую за гарний код вище. Чи безкоштовне використання?
Цей коментар був мінімізований модератором на сайті
Ой, це геній!!! Дякую
Цей коментар був мінімізований модератором на сайті
Працює ідеально. Дуже цінується
Цей коментар був мінімізований модератором на сайті
Чи можна це зберегти в одній електронній таблиці та запустити в інших файлах?
Цей коментар був мінімізований модератором на сайті
Усе, що я постійно отримую, це «Немає стовпців для видалення, оскільки кожен із них містить більше даних (рядків), ніж просто заголовок». Проте я точно знаю, що маю близько 700 стовпців із заголовком і без даних. У мене є електронна таблиця з понад 900 стовпцями, і лише 200 мають дані під заголовком. Інший макрос спрацював, але мені довелося видалити рядок заголовка. Тому я знаю, що цей макрос не працює належним чином. Як справи?
Цей коментар був мінімізований модератором на сайті
Привіт, Павле
Код VBA добре працює, якщо на аркуші є лише один рядок заголовків, якщо є два чи більше рядків заголовків, з’явиться запит, який ви сказали.
Тож вам потрібно перевірити, чи є у ваших даних приховані рядки заголовків.
Дякую!
Цей коментар був мінімізований модератором на сайті
Дивовижний! Ви праві. Мабуть, було щось приховане. Зараз все працює чудово. Дуже дякую за швидку відповідь.
Цей коментар був мінімізований модератором на сайті
Привіт, у мене така сама проблема. Я точно знаю, що у мене є багато стовпців, які мають лише заголовки, але однакову помилку «Немає стовпців для видалення, оскільки кожен із них містить більше даних (рядків), ніж лише заголовок». і я перевірив, що в даних немає прихованих рядків.
Хтось може мені допомогти?
Цей коментар був мінімізований модератором на сайті
Привіт, Сімоч
У цьому випадку ви можете завантажити вкладений файл Excel тут, щоб ми могли допомогти перевірити проблему, якщо ви не заперечуєте.
Дякую!
Цей коментар був мінімізований модератором на сайті
Шановний skyyang, немає потреби, тепер це спрацювало ідеально!! велике спасибі за цей код VBA!
Оцінено 5 з 5
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця