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

Як швидко видалити кілька порожніх стовпців у Excel?

Іноді, коли ви імпортуєте дані до Microsoft Excel з якогось джерела, наприклад веб-сторінки, CSV, тексту тощо, з ними може бути багато порожніх стовпців. Видалення кожного порожнього стовпця по черзі має зайняти багато часу. Тому деякі з нас шукають простих шляхів вирішення цієї проблеми. У цій статті зібрано кілька хитрих порад, які допоможуть швидко видалити кілька порожніх стовпців.

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

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

Видаліть кілька порожніх стовпців у виділеному / активному аркуші / цілій книзі з корисною функцією

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


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

В Excel ви можете застосувати формулу, щоб визначити, порожні стовпці чи ні, а потім використовувати сортувати функція, щоб сортувати всі порожні стовпці разом, а потім видаляти їх відразу. Будь ласка, зробіть так:

1. Додайте новий рядок у верхній частині діапазону даних, див. Знімок екрана:

2. Потім введіть формулу нижче в клітинку A1, а потім перетягніть маркер заповнення в праву сторону, щоб застосувати цю формулу до інших комірок. Якщо стовпець порожній, відобразиться TRUE, інакше відображається FALSE, див. Знімок екрана:

=COUNTA(A2:A1048576)=0

3. Потім виберіть діапазон даних, включаючи допоміжний рядок, а потім натисніть дані > сортувати, див. скріншот:

4. В вискочив сортувати діалогове вікно натисніть кнопку опції , у наступному Параметри сортування діалог, виберіть Сортувати зліва направо варіант, див. скріншоти:

5. Клацання OK кнопку, щоб повернути сортувати діалогове вікно, а потім виберіть Рядок 1 від Сортувати за і виберіть Значення комірок від Сортувати за розділ, вибрати Від найбільшого до найменшого від замовлення розділ, див. знімок екрана:

6. Потім усі порожні стовпці були відсортовані зліва від ваших даних, і тепер вам просто потрібно вибрати всі стовпці, а потім клацнути правою кнопкою миші, вибрати видаляти щоб одразу видалити ці порожні стовпці, див. знімок екрана:


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

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

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

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

Код VBA: Видалити кілька порожніх стовпців у виділенні:

Sub DeleteEmptyColumns () 'Оновлення Extendoffice
Dim rng As Range Dim InputRng As Range xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox ("Range:", xTitleId, InputRng.Address, Type: = 8) Application.ScreenUpdating = False For i = InputRng.Columns.Count To 1 Крок -1 Встановіть rng = InputRng.Cells (1, i) .EntireColumn If Application.WorksheetFunction.CountA (rng) = 0 Потім rng.Delete End If Next Application.ScreenUpdating = True End Sub

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

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


Видаліть кілька порожніх стовпців у виділеному / активному аркуші / цілій книзі з корисною функцією

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

чайові:Щоб застосувати це Видалити приховані (видимі) рядки та стовпці По-перше, вам слід завантажити Kutools для Excel, а потім швидко та легко застосувати функцію.

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

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

2, в Видалити приховані (видимі) рядки та стовпці у діалоговому вікні вкажіть область, з якої потрібно застосувати операцію Заглядати випадаючий список. (Якщо ви вирішите У вибраному діапазоні, спочатку потрібно вибрати діапазон, який потрібно використовувати.) А потім перевірити Колони при Тип видалення. І виберіть Пусті стовпці від Детальний тип. Дивіться знімок екрана:

3. Потім натисніть OK. І порожні стовпці були видалені з вибраного діапазону. Дивіться знімок екрана:


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

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

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

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

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

Sub deleteblankcolwithheader()
'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 column(s) with only a header row have 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, щоб запустити цей код, і з’явиться підказка з нагадуванням, що пусті стовпці із заголовком будуть видалені, див. Знімок екрана:

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


Більше відносних статей:

  • Видалити всі зображення або інші об'єкти в Excel
  • Якщо ви хочете видалити всі зображення з Microsoft Excel, це може зайняти багато часу, щоб вибрати кожне зображення та видалити їх одне за одним. Наступні трюки можуть полегшити вам роботу з видалення всіх зображень.
  • Видалення рядків на основі кольору фону в Excel
  • Як можна видалити цілі рядки на основі кольору тла? У цьому прикладі мені потрібно видалити всі рядки, клітини яких заповнені синім кольором тла, як показано на наступному знімку екрана. У цій статті ви отримаєте деякі коди для досягнення цього завдання в 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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (8)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Мені стало набагато простіше перейти до рядка після мого останнього рядка даних, ввести «Shift-Ctrl-End», щоб виділити всі порожні рядки, які йдуть за цим (набагато швидше), клацнути правою кнопкою миші та ввести «видалити всі рядки/стовпці». Система не витрачала так багато часу на пошук таким чином, тому вона була чистою в мить, а файли розміром 20 МБ були зменшені до розміру 20 Кб.
Цей коментар був мінімізований модератором на сайті
наведені вище деталі дуже корисні для мого особистого використання. Дякую за вказівки. М.КАРТИКЕЯН :-)
Цей коментар був мінімізований модератором на сайті
Дуже корисна сторінка. Дякую. :-) Моя проблема полягає в тому, що у мене є стовпці із заголовками, але немає даних у цьому стовпці. Присутній лише заголовок. Як можна видалити стовпці, де немає даних, але є заголовок? :o
Цей коментар був мінімізований модератором на сайті
Привіт, річ, про яку ви згадали, дуже корисна. Я хочу невеликої допомоги з вашого боку. Щодня завантажую деякі файли та за допомогою pivot готував звіти. Для мене це щоденне завдання і рутинний процес. Як я можу це зробити без використання pivot. Наприклад: якщо я підготував звіти вчора у файлі Excel "A". Наступного дня у файлі Excel "A" просто я заміню нові дані файлу Excel "B". За допомогою цього звіт буде створений автоматично? Це можливо?
Цей коментар був мінімізований модератором на сайті
Привіт, чи може хтось підказати, як я можу видалити порожні клітинки в рядку або стовпці... зверніть увагу на цілі порожні стовпці або рядки... лише пусті клітинки, які мені потрібно видалити в стовпці
Цей коментар був мінімізований модератором на сайті
Здравствуйте,


спробуйте реалізувати код нижче
Цей коментар був мінімізований модератором на сайті
Дякую, дуже корисна сторінка з основними параметрами Excel :)
Цей коментар був мінімізований модератором на сайті
Він видалив усі мої імена в стовпці мого імені! Ого!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця