Spis treści
W tutorialu dowiesz się, jak usunąć puste kolumny w Excelu za pomocą makra, formuły i kliknięcia przycisku.
Jakkolwiek trywialnie to brzmi, usuwanie pustych kolumn w programie Excel nie jest czymś, co można osiągnąć za pomocą jednego kliknięcia myszką. Nie da się tego zrobić również za pomocą dwóch kliknięć. Perspektywa przeglądania wszystkich kolumn w arkuszu i ręcznego usuwania pustych kolumn jest zdecydowanie czymś, czego chciałbyś uniknąć. Na szczęście program Microsoft Excel oferuje wiele różnych funkcji, a dzięki wykorzystaniu tychcechy w kreatywny sposób poradzisz sobie z niemal każdym zadaniem!
Szybki sposób na usunięcie pustych kolumn, których nigdy nie powinieneś używać
Jeśli chodzi o usuwanie pustych miejsc w programie Excel (niezależnie od tego, czy są to puste komórki, wiersze czy kolumny), wiele zasobów internetowych polega na. Przejdź do działu specjalnego > Blanki polecenie. Nigdy tego nie rób. w swoich arkuszach!
Metoda ta (. F5 > Specjalne... > Blanki ) znajduje i wybiera wszystkie puste komórki w zakresie:
Jeśli teraz klikniesz prawym przyciskiem myszy na wybrane komórki i wybierzesz Usuń > Cała kolumna wszystkie kolumny, które zawierają co najmniej jedną pustą komórkę Jeśli nieumyślnie to zrobiłeś, naciśnij Ctrl + Z, aby odzyskać wszystko.
Teraz, gdy znasz zły sposób usuwania pustych kolumn w Excelu, zobaczmy, jak zrobić to dobrze.
Jak usunąć puste kolumny w Excelu za pomocą VBA
Doświadczeni użytkownicy Excela znają tę zasadę kciuka: aby nie tracić godzin na robienie czegoś ręcznie, zainwestuj kilka minut w napisanie makra, które zrobi to za Ciebie automatycznie.
Poniższe makro VBA usuwa wszystkie puste kolumny w wybranym zakresie. I robi to bezpiecznie - usuwane są tylko absolutnie puste kolumny. Jeśli kolumna zawiera wartość pojedynczej komórki, nawet pusty ciąg zwracany przez jakąś formułę, to taka kolumna pozostanie nienaruszona.
Makro Excel: usuń puste kolumny z arkusza Excel Public Sub DeleteEmptyColumns() Dim SourceRange As Range Dim EntireColumn As Range On Error Resume Next Set SourceRange = Application.InputBox( _ "Wybierz zakres:" , "Usuń puste kolumny" , _ Application.Selection.Address, Type :=8) If Not (SourceRange Is Nothing ) Then Application.ScreenUpdating = False For i = SourceRange.Columns.Count To 1Krok -1 Set EntireColumn = SourceRange.Cells(1, i).EntireColumn If Application.WorksheetFunction.CountA(EntireColumn) = 0 Then EntireColumn.Delete End If Next Application.ScreenUpdating = True End If End SubJak używać makra Usuń puste kolumny
Oto kroki, aby dodać makro do swojego Excela:
- Naciśnij Alt + F11, aby otworzyć edytor Visual Basic.
- Na pasku menu kliknij Wkładka > Moduł .
- Powyższy kod wklejamy w oknie Code.
- Naciśnij F5, aby uruchomić makro.
- Po wyświetleniu wyskakującego okna dialogowego przełącz się na interesujący Cię arkusz, wybierz żądany zakres i kliknij OK:
Jeśli nie chcesz dodawać makra do swojego arkusza, możesz je uruchomić z naszego przykładowego skoroszytu.Oto jak:
- Pobierz nasz przykładowy skoroszyt do usuwania pustych kolumn w programie Excel, otwórz go i włącz zawartość, jeśli zostanie wyświetlony monit.
- Otwórz własny skoroszyt lub przełącz się do już otwartego.
- W swoim skoroszycie naciśnij Alt + F8 , wybierz DeleteEmptyColumns makro, a następnie kliknij Uruchom .
- W wyskakującym oknie dialogowym wybierz zakres i kliknij OK .
Tak czy inaczej, wszystkie puste kolumny w wybranym zakresie zostaną usunięte:
Identyfikowanie i usuwanie pustych kolumn w programie Excel za pomocą formuły
Powyższe makro usuwa puste kolumny szybko i bezgłośnie, ale jeśli jesteś osobą, która "trzyma wszystko pod kontrolą" (jak ja :), możesz chcieć wizualnie zobaczyć kolumny, które zostaną usunięte. W tym przykładzie najpierw zidentyfikujemy puste kolumny za pomocą formuły, abyś mógł je szybko przejrzeć, a następnie wyeliminować wszystkie lub niektóre z tych kolumn.
Uwaga. Przed trwałym usunięciem czegokolwiek, zwłaszcza przy użyciu nieznanej techniki, zdecydowanie zalecam wykonanie kopia zapasowa swojego skoroszytu, aby być po bezpiecznej stronie, jeśli coś pójdzie nie tak.
Mając kopię zapasową w bezpiecznym miejscu, wykonaj następujące czynności:
Krok 1. Wstawienie nowego wiersza
Dodaj nowy wiersz na górze tabeli. W tym celu kliknij prawym przyciskiem myszy nagłówek pierwszego wiersza i kliknij Wkładka Nie należy się przejmować zmianą struktury/układu danych - można usunąć ten wiersz później.
Krok 2. Zidentyfikuj puste kolumny
W najbardziej wysuniętej na lewo komórce nowo dodanego wiersza wprowadź następującą formułę:
=COUNTA(A2:A1048576)=0
A następnie skopiuj formułę do pozostałych kolumn, przeciągając uchwyt wypełnienia.
Logika formuły jest bardzo prosta: COUNTA sprawdza liczbę pustych komórek w kolumnie, od wiersza 2 do wiersza 1048576, który jest wierszem maksymalnym w Excelu 2019 - 2007. Porównujesz tę liczbę z zerem i w rezultacie masz TRUE w pustych kolumnach i FALSE w kolumnach, które zawierają co najmniej jedną niepustą komórkę. Ze względu na użycie względnych odniesień do komórek, formuła poprawnie dostosowuje się do każdej kolumnygdzie jest kopiowany.
W przypadku, gdy ustawiasz arkusz dla kogoś innego, możesz chcieć oznaczyć kolumny w bardziej znaczący sposób. Nie ma problemu, można to łatwo zrobić za pomocą instrukcji IF podobnej do tej:
=IF(COUNTA(A2:A1048576)=0, "Pusty", "Nie pusty")
Teraz formuła wyraźnie wskazuje, które kolumny są puste, a które nie:
Wskazówka. W porównaniu z makrem, ta metoda daje większą elastyczność w określaniu, które kolumny powinny być uznane za puste. W tym przykładzie sprawdzamy całą tabelę, łącznie z wierszem nagłówkowym. Oznacza to, że jeśli kolumna zawiera tylko nagłówek, nie jest ona uznawana za pustą i nie jest usuwana. Jeśli chcesz sprawdzić tylko wiersze danych ignorowanie nagłówków kolumn , usuń wiersz (wiersze) nagłówka z zakresu docelowego (A3:A1048576). W rezultacie kolumna, która ma nagłówek i nie ma w niej żadnych innych danych, zostanie uznana za pustą i będzie podlegać usunięciu. Ponadto możesz ograniczyć zakres do ostatniego użytego wiersza, który w naszym przypadku byłby A11.
Krok 3. Usuń puste kolumny
Mając odpowiednią liczbę kolumn, możesz po prostu wybrać te, które mają "Puste" w pierwszym wierszu (aby wybrać wiele kolumn, przytrzymaj klawisz Ctrl podczas klikania liter kolumn). Następnie kliknij prawym przyciskiem myszy dowolną wybraną kolumnę i wybierz Usuń z menu kontekstowego:
Jeśli w twoim arkuszu są dziesiątki lub setki kolumn, ma sens przynieść wszystkie puste do widoku.W tym celu wykonaj następujące czynności:
- Zaznacz górny rząd z formułami, przejdź do Dane tab> Sortowanie i filtrowanie grupę, a następnie kliknij przycisk Sortuj przycisk.
- W wyświetlonym oknie dialogowym z ostrzeżeniem wybierz Rozwiń wybór i kliknij Sortuj...
- Spowoduje to otwarcie Sortuj okno dialogowe, w którym należy kliknąć Opcje... przycisk, wybierz Sortuj od lewej do prawej, i kliknąć OK .
- Skonfiguruj tylko jeden poziom sortowania jak pokazano poniżej i kliknij OK:
- Sortuj według: Wiersz 1
- Sortowanie na podstawie: wartości komórek
- Zamówienie: od A do Z
W rezultacie puste kolumny zostaną przeniesione do lewej części twojego arkusza:
- Zaznacz wszystkie puste kolumny - kliknij pierwszą literę kolumny, naciśnij Shift, a następnie kliknij literę ostatniej pustej kolumny.
- Kliknij prawym przyciskiem myszy na wybrane kolumny i wybierz Usuń z menu podręcznego.
Gotowe! Pozbyłeś się pustych kolumn i nic nie stoi teraz na przeszkodzie, aby usunąć górny wiersz z formułami.
Najszybszy sposób na usunięcie pustych kolumn w Excelu
Na początku tego poradnika napisałem, że nie ma wbudowanego sposobu na usuwanie pustych kolumn w Excelu za pomocą jednego kliknięcia. W rzeczywistości nie jest to do końca prawda, powinienem był powiedzieć, że nie ma wbudowanego sposobu. Użytkownicy naszego pakietu Ultimate Suite mogą usuwać puste kolumny w Excelu dosłownie za pomocą kilku kliknięć :)
W arkuszu docelowym przejdź do Narzędzia Ablebits zakładka, kliknij Usuń puste miejsca i wybrać Puste kolumny :
Aby upewnić się, że nie było to przypadkowe kliknięcie myszką, dodatek poprosi Cię o potwierdzenie, że naprawdę chcesz usunąć puste kolumny z tego arkusza:
Kliknij OK , a za chwilę wszystkie puste kolumny zniknęły!
Podobnie jak makro omówione powyżej, narzędzie to usuwa tylko te kolumny, które są całkowicie pusty Kolumny, które mają dowolną pojedynczą wartość, w tym nagłówki, są zachowane.
Usuń puste miejsca to tylko jedna z dziesiątek wspaniałych funkcji, które mogą ułatwić Ci życie jako użytkownikowi Excela. Aby dowiedzieć się więcej, zapraszamy do pobrania wersji próbnej naszego pakietu Ultimate Suite for Excel.
Puste kolumny nie są usuwane! Dlaczego?
Wydanie : Wypróbowałeś wszystkie powyższe metody, ale w Twoim arkuszu utknęła jedna lub więcej pustych kolumn Dlaczego?
Najprawdopodobniej dlatego, że te kolumny tak naprawdę nie są puste. W arkuszach Excela, zwłaszcza jeśli importowałeś informacje z zewnętrznego źródła, może czaić się wiele różnych znaków niewidocznych dla ludzkiego oka. Może to być zwykły pusty ciąg znaków lub znak spacji, spacja niełamana lub jakiś inny znak niedrukujący.
Aby przypiąć winowajcę, wybierz pierwszą komórkę w problematycznej kolumnie i naciśnij Ctrl + strzałka w dół . Na przykład kolumna C na poniższym zrzucie ekranu nie jest pusta z powodu pojedynczego znaku spacji w C6:
Kliknij dwukrotnie komórkę, aby zobaczyć, co faktycznie się w niej znajduje, lub po prostu naciśnij klawisz Delete, aby pozbyć się nieznanego czegoś. A następnie powtórz powyższy proces, aby dowiedzieć się, czy istnieją inne niewidoczne rzeczy w tej kolumnie. Możesz także chcieć wyczyścić swoje dane, usuwając wiodące, ciągnące się i niełamiące się spacje.
Dziękuję za przeczytanie i mam nadzieję, że zobaczymy się na naszym blogu za tydzień!
