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

Jak szybko usunąć wiele pustych kolumn w programie Excel?

Czasami podczas importowania danych do programu Microsoft Excel z jakiegoś źródła, takiego jak strona internetowa, plik CSV, tekst itp., Może zawierać wiele pustych kolumn. Usuwanie każdej pustej kolumny po kolei musi być czasochłonne. Dlatego niektórzy z nas szukają łatwych sposobów rozwiązania tego problemu. W tym artykule zebrano kilka trudnych wskazówek, które pomogą Ci szybko usunąć wiele pustych kolumn.

Usuń wiele pustych kolumn w arkuszu z formułą

Usuń wiele pustych kolumn w arkuszu z kodem VBA

Usuń wiele pustych kolumn w zaznaczeniu / aktywnym arkuszu / całym skoroszycie z przydatną funkcją

Usuń wiele pustych kolumn z nagłówkiem za pomocą kodu VBA


Usuń wiele pustych kolumn w arkuszu z formułą

W programie Excel możesz zastosować formułę, aby określić, czy kolumny są puste, czy nie, a następnie użyć Sortuj funkcja, aby posortować wszystkie puste kolumny razem, a następnie usunąć je jednocześnie. Zrób tak:

1. Dodaj nowy wiersz u góry zakresu danych, zobacz zrzut ekranu:

2. Następnie wprowadź poniższą formułę do komórki A1, a następnie przeciągnij uchwyt wypełniania w prawą stronę, aby zastosować tę formułę do innych komórek, PRAWDA zostanie wyświetlona, ​​jeśli kolumna jest pusta, w przeciwnym razie zostanie wyświetlony FALSE, patrz zrzut ekranu:

=COUNTA(A2:A1048576)=0

3. Następnie wybierz zakres danych, w tym wiersz pomocnika, a następnie kliknij Dane > Sortujzobacz zrzut ekranu:

4. W wyskoczył Sortuj okno dialogowe, kliknij Opcje w następujący sposób Sortuj opcje dialog, wybierz Sortuj od lewej do prawej opcja, zobacz zrzuty ekranu:

5, Kliknij OK aby powrócić do pliku Sortuj dialog, a następnie wybierz Wiersz 1 z Sortuj według listę rozwijaną i wybierz Wartości komórek od Sortuj według Sekcja, wybierz Od największego do najmniejszego z Zamówienie sekcja, patrz zrzut ekranu:

6. Następnie wszystkie puste kolumny zostały posortowane po lewej stronie danych, a teraz wystarczy zaznaczyć wszystkie kolumny, a następnie kliknąć prawym przyciskiem myszy, wybrać Usuń aby usunąć te puste kolumny naraz, zobacz zrzut ekranu:


Usuń wiele pustych kolumn w arkuszu z kodem VBA

Jeśli chcesz używać makra VBA, wszystko idzie o wiele łatwiej. Poniższy kod VBA może ci pomóc, wykonaj następujące czynności:

1. Przytrzymaj inny + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujące makro w Moduł Okno.

Kod VBA: Usuń wiele pustych kolumn w zaznaczeniu:

Sub DeleteEmptyColumns () 'Updateby Extendoffice
Dim rng As Range Dim InputRng As Range xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Ustaw InputRng = Application.InputBox ("Range:", xTitleId, InputRng.Address, Type: = 8) Application.ScreenUpdating = False For i = InputRng.Columns.Count To 1 Step -1 Set rng = InputRng.Cells (1, i) .EntireColumn If Application.WorksheetFunction.CountA (rng) = 0 Then rng.Delete End If Next Application.ScreenUpdating = True End Sub

3, wciśnij F5 Aby uruchomić to makro, wybierz wymagany zakres roboczy w wyskakującym oknie dialogowym. Zobacz zrzut ekranu:

4. Kliknij OK, a następnie wszystkie puste kolumny w zaznaczeniu zostaną usunięte. Zobacz zrzut ekranu:


Usuń wiele pustych kolumn w zaznaczeniu / aktywnym arkuszu / całym skoroszycie z przydatną funkcją

Podróż Ruta de la Plata w liczbach Usuń ukryte (widoczne) wiersze i kolumny użyteczność Kutools dla programu Excel może pomóc w szybkim usunięciu wielu pustych wierszy lub kolumn jednocześnie.

Wskazówki:Aby to zastosować Usuń ukryte (widoczne) wiersze i kolumny Po pierwsze, należy pobrać plik Kutools dla programu Excel, a następnie szybko i łatwo zastosuj tę funkcję.

Po zainstalowaniu Kutools dla programu Excel, zrób tak:

1, Kliknij Kutools > Usuń > Usuń ukryte (widoczne) wiersze i kolumnyzobacz zrzut ekranu:

2, w Usuń ukryte (widoczne) wiersze i kolumny W oknie dialogowym określ zakres, z którego chcesz zastosować operację Zaglądać Lista rozwijana. (Jeśli wybierzesz W wybranym zakresie, musisz najpierw wybrać zakres, którego chcesz użyć). Następnie sprawdź kolumny dla Usuń typ. I wybierz Puste kolumny od Szczegółowy typ. Zobacz zrzut ekranu:

3. Następnie kliknij OK. Puste kolumny zostały usunięte z wybranego zakresu. Zobacz zrzut ekranu:


Usuń wiele pustych kolumn z nagłówkiem za pomocą kodu VBA

Czasami możesz chcieć usunąć wszystkie puste kolumny, które zawierają tylko nagłówek w arkuszu, poniższy kod VBA może wyświadczyć ci przysługę, wykonaj następujące czynności:

1. Przytrzymaj inny + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujące makro w Moduł Okno.

Kod VBA: Usuń wszystkie puste kolumny z nagłówkiem

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. Następnie naciśnij klawisz F5, aby uruchomić ten kod, a pojawi się okno zachęty przypominające, że puste kolumny z nagłówkiem zostaną usunięte, zobacz zrzut ekranu:

4. A następnie kliknij przycisk OK, wszystkie puste kolumny z tylko nagłówkiem w bieżącym arkuszu zostaną natychmiast usunięte. Zobacz zrzuty ekranu:


Więcej artykułów względnych:

  • Usuń wiersze na podstawie koloru tła w programie Excel
  • Jak możesz usunąć całe wiersze na podstawie koloru tła? W tym przykładzie muszę usunąć wszystkie wiersze, których komórki są wypełnione niebieskim kolorem tła, jak pokazano na zrzucie ekranu. W tym artykule otrzymasz kody do wykonania tego zadania w programie Excel.


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół

Sortuj komentarze według
Komentarze (8)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Znacznie prościej jest przejść do wiersza po ostatnim wierszu danych, wpisać „Shift-Ctrl-End”, aby podświetlić wszystkie puste wiersze, które nastąpiły (znacznie szybciej), kliknąć prawym przyciskiem myszy i wpisać „usuń wszystkie wiersze/kolumny”. System nie tracił czasu na szukanie w ten sposób, dzięki czemu był czysty w mgnieniu oka, a pliki o rozmiarze 20 MB spadły do ​​rozmiaru 20 kb.
Ten komentarz został zminimalizowany przez moderatora na stronie
powyższe dane są bardzo pomocne dla mojego osobistego użytku. Dzięki za wskazówki. M.KARTHIKEYAN :-)
Ten komentarz został zminimalizowany przez moderatora na stronie
Bardzo pomocna strona. Dziękuję Ci. :-) Moje wyzwanie polega na tym, że mam kolumny z nagłówkami, ale nie ma danych w tej kolumnie. Obecny jest tylko nagłówek. Jak postąpić z usuwaniem kolumn, w których nie ma danych, ale jest nagłówek? :o
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, rzecz, o której wspomniałeś, jest bardzo pomocna. Potrzebuję małej pomocy z twojej strony. Codziennie pobieram niektóre pliki i za pomocą pivota przygotowywałem raporty. To dla mnie codzienne zadanie i rutynowy proces. Jak mogę to zrobić bez użycia pivota. Np. Jeśli wczoraj przygotowałem raporty w "A" pliku Excela. Następnego dnia w pliku Excela „A” tylko podmieniam nowe dane pliku Excela „B”. Przez to automatycznie zostanie utworzony raport? Czy to możliwe?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, czy ktoś może poprowadzić, jak mogę usunąć puste komórki w wierszu lub kolumnie ... zanotuj całą pustą kolumnę lub wiersze ... tylko pusta komórka, którą muszę usunąć w kolumnie
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,


spróbuj zaimplementować poniższy kod
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki bardzo pomocnej stronie z podstawową opcją Excela :)
Ten komentarz został zminimalizowany przez moderatora na stronie
Usunął wszystkie moje imiona z kolumny imienia! Sierżcie!
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL