Spis treści
Ten artykuł pokaże Ci, jak możesz usunąć puste kolumny w Excelu na trzy skuteczne i łatwe sposoby.
Pobierz Workbook
Zeszyt ćwiczeń można pobrać stąd.
Delete-Blank-Columns-in-Excel.xlsm3 Proste sposoby na usunięcie pustych kolumn w Excelu
Tutaj poznasz 3 sposoby usuwania pustych kolumn w Excelu za pomocą narzędzi edycyjnych Excela, za pomocą formuły oraz poprzez implementację kodu VBA.
1) Za pomocą narzędzi edycyjnych programu Excel
Krok 1: Wybierz zbiór danych.
Krok 2: Idź do Strona główna -> Znajdź & Wybierz -> Go To Special .
Krok 3: Z. Go To Special w wyskakującym okienku, wybierz Blanki , a następnie kliknij OK .
Krok 4: Zostaną wybrane tylko puste komórki z twojego zbioru danych. Kliknij prawym przyciskiem myszy, z podręcznej listy opcji wybierz Usuń .
Krok 5: Następnie, z wyskakującego okienka Usuń skrzynia, kilof Przesunięcie komórek w lewo z opcji. Kliknij OK.
Spowoduje to usunięcie wszystkich pustych kolumn ze zbioru danych.
Czytaj więcej: Jak usunąć nieużywane kolumny w programie Excel
2. poprzez zastosowanie wzoru
Możesz wykorzystać COUNTA() formuła do usuwania pustych kolumn w Excelu. co COUNTA() Formuła zrobi to, najpierw zidentyfikuje puste i nie-puste kolumny w twoim zestawie danych w Excelu, a następnie, stamtąd możesz łatwo wybrać i usunąć puste kolumny.
Jest to kolejny skuteczny sposób na usunięcie pustych kolumn w Excelu, zwłaszcza gdy masz dużo pustych kolumn do pracy.Dowiedzmy się, jak to zrobić.
Krok 1: Wstaw pusty wiersz tuż nad zbiorem danych klikając prawym przyciskiem myszy na nagłówek pierwszego wiersza i wybierając Wkładka z listy opcji, co spowoduje wstawienie nowego wiersza nad całym zbiorem danych.
Krok 2: W najbardziej wysuniętej na lewo komórce swojego arkusza napisz następującą formułę,
=COUNTA(A2:A1048576)=0
Tutaj,
A2 reprezentuje pierwszą komórkę zbioru danych,
A1048576 reprezentuje maksimum wiersza w programie Excel (2007-2019).
Krok 3: Naciśnij Wejdź na stronę Wyświetli się Prawdziwe jeśli kolumna jest pusta, lub Fałszywy jeśli w całej kolumnie znajduje się przynajmniej jedna niepusta komórka.
Krok 4: Zastosuj formułę do pozostałych kolumn, przeciągając pasek Uchwyt do napełniania .
Krok 5: Teraz przejdź do Strona główna -> Sortowanie & Filtr -> Custom Sort .
Krok 6: Z wyskakującego okienka Sortuj kliknij przycisk Opcje Następnie wybierz Sortuj od lewej do prawej od Opcje sortowania wyskakujące okienko i kliknij OK .
Krok 7: Kliknij pole rozwijane obok Sortuj według etykietę i stamtąd wybrać opcję Wiersz 1 .
Krok 8: Kliknąć na rozwijane pole pod Sortuj na etykietę i wybrać opcję Cell Values stamtąd.
Krok 9: Kliknąć na rozwijane pole pod Zamówienie etykietę i wybrać opcję Największy do najmniejszego . Kliknij OK .
Spowoduje to przesunięcie wszystkich pustych kolumn na lewą stronę arkusza.
Krok 10: Stamtąd wystarczy wybrać cały zestaw danych pustych kolumn, kliknąć prawym przyciskiem myszy, a następnie wybrać Usuń .
Krok 11: Z wyskakującego okienka Usuń pole, wybrać Cała kolumna z opcji. Kliknij OK .
Spowoduje to usunięcie wszystkich pustych kolumn ze zbioru danych.
Podobne Lektury:
- Jak usunąć wiele kolumn w programie Excel
- Usuń zduplikowane kolumny w Excelu (6 sposobów)
- Jak usunąć dodatkowe kolumny w programie Excel (7 metod)
- Usuwanie kolumn w Excelu bez wpływu na formułę (dwa sposoby)
3. za pomocą kodu VBA
Jeśli jesteś doświadczonym użytkownikiem Excela, to ta metoda jest specjalnie dla Ciebie. Wdrożenie kodu VBA jest najbezpieczniejszym sposobem na usunięcie pustych kolumn w Excelu. Usuwa on absolutnie puste kolumny tylko. Jeśli jakakolwiek kolumna zawiera pojedynczą wartość komórki, nawet jakakolwiek komórka zwraca pusty ciąg, nadal ta cała kolumna będzie całkowicie nienaruszona.
Poniżej przedstawiono zautomatyzowany sposób usuwania pustych kolumn w programie Excel.
Krok 1: Naciśnij Alt + F11 na klawiaturze lub przejdź do zakładki Deweloper -> Visual Basic aby otworzyć edytor Visual Basic.
Krok 2: Na pasku menu kliknij Wkładka -> Moduł .
Krok 3: Skopiuj poniższy kod i wklej go do okna kodu.
Public Sub DeleteBlankColumns() Dim SrcRange As Range Dim EntrColumn As Range On Error Resume Next Set SrcRange = Application.InputBox( _ "Wybierz zakres:", "Usuń puste kolumny", _ Application.Selection.Address, Type:=8) If Not (SrcRange Is Nothing) Then Application.ScreenUpdating = False For i = SrcRange.Columns.Count To 1 Step -1 Set EntrColumn = SrcRange.Cells(1, i).EntrColumn If.Application.WorksheetFunction.CountA(EntrColumn) = 0 Then EntrColumn.Delete End If Next Application.ScreenUpdating = True End If End Sub Krok 4: Naciśnij F5 na klawiaturze lub z paska menu wybrać Uruchom -> Uruchom Sub/UserForm Możesz też po prostu kliknąć na mały Ikona odtwarzania na pasku podmenu, aby uruchomić makro.
Krok 5: W wyskakującym oknie dialogowym przełącz się na interesujący Cię arkusz, wybierz żądany zakres i kliknij OK .
Spowoduje to usunięcie wszystkich pustych kolumn z bazy danych.
Wniosek
W tym artykule omówiono trzy łatwe sposoby usuwania pustych kolumn w programie Excel. Pokazaliśmy, jak używać narzędzi edycyjnych programu Excel do usuwania pustych kolumn, pokazaliśmy, jak stosować formuły do usuwania pustych kolumn, a także zaimplementowaliśmy kod VBA do usuwania pustych kolumn w programie Excel.
