Як видалити порожні стовпці із заголовком у Excel?
Якщо у вас є великий аркуш, який містить кілька стовпців, але деякі з них містять лише заголовок, і тепер ви хочете видалити ці порожні стовпці, які мають лише заголовок, щоб отримати наступний знімок екрана. Чи можна це швидко і легко вирішити в Excel?
Видаліть порожні стовпці заголовком за допомогою коду 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 клавішу для запуску цього коду, і з'явиться підказка з нагадуванням про те, що порожні стовпці із заголовком будуть видалені, див. знімок екрана:
4. А потім клацніть OK кнопки, усі порожні стовпці з лише заголовком на поточному аркуші видаляються одночасно.
примітки: Якщо є порожні стовпці, вони також будуть видалені.
Видаліть кілька порожніх стовпців у діапазоні/аркуші/книзі за допомогою Kutools для Excel
Іноді потрібно лише видалити порожні стовпці Kutools для ExcelАвтора Видалити приховані (видимі) рядки та стовпці утиліта допоможе вам легко виконати це завдання.
| Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. |
після установки Kutools для Excel, будь ласка, виконайте наступне:
1. Виберіть діапазон стовпців, який включає порожні стовпці, які потрібно видалити.
2. Потім натисніть Кутулс > видаляти > Видалити приховані (видимі) рядки та стовпці, див. скріншот:
3, в Видалити приховані (видимі) рядки та стовпці діалоговому вікні, ви можете вибрати область видалення зі спадного списку Шукати, коли вам потрібно, виберіть Колони від Тип видалення розділ, а потім виберіть Пусті стовпці від Детальний тип розділ, див. знімок екрана:
4. Потім натисніть Ok і відразу видаляються лише порожні стовпці. Дивіться знімок екрана:
Tips : Завдяки цій потужній функції ви також можете видаляти порожні рядки, видимі стовпці або рядки, приховані стовпці або рядки, як вам потрібно.
Натисніть Безкоштовно завантажити Kutools для Excel зараз!
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
