Jak usunąć puste kolumny z nagłówkiem w programie Excel?
Jeśli masz duży arkusz roboczy, który zawiera wiele kolumn, ale niektóre kolumny zawierają tylko nagłówek, a teraz chcesz usunąć te puste kolumny, które mają tylko nagłówek, aby uzyskać następujący zrzut ekranu. Czy można to szybko i łatwo rozwiązać w programie Excel?
Usuń puste kolumny z nagłówkiem za pomocą kodu VBA
Usuń wiele pustych kolumn w zakresie / arkuszu / skoroszycie za pomocą Kutools for Excel
Usuń puste kolumny z nagłówkiem za pomocą kodu VBA
W programie Excel nie ma bezpośredniej metody radzenia sobie z tym zadaniem, z wyjątkiem usuwania ich ręcznie jeden po drugim, ale tutaj mogę wprowadzić kod dla Ciebie, wykonaj następujące czynności:
1. Przytrzymaj przycisk ALT + F11 klucze, a następnie otwiera Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Usuń puste kolumny z nagłówkiem:
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a pojawi się okno zachęty przypominające, że puste kolumny z nagłówkiem zostaną usunięte, patrz zrzut ekranu:
4. A następnie kliknij OK przycisk, wszystkie puste kolumny z tylko nagłówkiem w bieżącym arkuszu są usuwane jednocześnie.
Note: Jeśli istnieją puste kolumny, zostaną one również usunięte.
Usuń wiele pustych kolumn w zakresie / arkuszu / skoroszycie za pomocą Kutools for Excel
Czasami wystarczy usunąć tylko puste kolumny, rozszerzenie Kutools dla programu Excel'S Usuń ukryte (widoczne) wiersze i kolumny narzędzie może pomóc w łatwym wykonaniu tego zadania.
| Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. |
Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:
1. Wybierz zakres kolumn, który zawiera puste kolumny do usunięcia.
2. Następnie kliknij Kutools > Usuń > Usuń ukryte (widoczne) wiersze i kolumnyzobacz zrzut ekranu:
3, w Usuń ukryte (widoczne) wiersze i kolumny W oknie dialogowym możesz wybrać zakres usuwania z listy rozwijanej Szukaj w, jeśli potrzebujesz, wybierz kolumny z Usuń typ sekcji, a następnie wybierz Puste kolumny z Szczegółowy typ sekcja, patrz zrzut ekranu:
4. Następnie kliknij Ok i jednocześnie usuwane są tylko puste kolumny. Zobacz zrzut ekranu:
Tips: Dzięki tej potężnej funkcji możesz także usuwać puste wiersze, widoczne kolumny lub wiersze, ukryte kolumny lub wiersze według potrzeb.
Kliknij Bezpłatne pobieranie Kutools dla programu Excel teraz!
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
