Jak usunąć wiersze w programie Excel za pomocą skrótów lub makra VBA

  • Udostępnij To
Michael Brown

W tym artykule wymieniono kilka sposobów usuwania wierszy w Excelu na podstawie wartości komórki. W tym poście znajdziesz klawisze skrótów, a także Excel VBA. Usuń wiersze automatycznie lub użyj standardowej opcji Znajdź w połączeniu z pomocnymi skrótami.

Excel jest doskonałym narzędziem do przechowywania danych, które zmieniają się co jakiś czas. Jednak aktualizacja tabeli po zmianach może wymagać naprawdę dużo czasu. Zadanie może być tak proste, jak usunięcie wszystkich pustych wierszy w Excelu. Albo możesz potrzebować znaleźć i usunąć zduplikowane dane. Jedno wiemy na pewno, że zawsze, gdy szczegóły przychodzą lub odchodzą, szukasz najlepszego rozwiązania, które pomoże Ci zaoszczędzić czas na bieżącympracować.

Na przykład masz rynek, na którym różni sprzedawcy sprzedają swoje produkty. Z jakiegoś powodu jeden ze sprzedawców zamknął swoją działalność i teraz musisz usunąć wszystkie wiersze, które zawierają nazwę sprzedawcy, nawet jeśli są w różnych kolumnach.

W tym poście znajdziesz Excel VBA i skróty do usuwania wierszy na podstawie określonego tekstu lub wartości. Zobaczysz, jak łatwo znaleźć i wybrać niezbędne informacje przed usunięciem. Jeśli twoje zadanie nie dotyczy usuwania, ale dodawania wierszy, możesz znaleźć, jak to zrobić w Najszybsze sposoby wstawiania wielu wierszy w programie Excel.

    Najszybszy skrót programu Excel do usuwania wierszy w tabeli

    Jeśli chcesz skorzystać z najszybszej metody usuwania wielu wierszy według wartości komórek, które zawierają, musisz najpierw poprawnie wybrać te wiersze.

    Aby wybrać wiersze, możesz albo zaznaczyć sąsiednie komórki z potrzebnymi wartościami i kliknąć Shift + Spacja, albo wybrać potrzebne niesąsiadujące komórki, trzymając wciśnięty klawisz Ctrl.

    Możesz również zaznaczać całe wiersze za pomocą przycisków numerów wierszy. Obok ostatniego przycisku zobaczysz numer podświetlonych wierszy.

    Po zaznaczeniu potrzebnych wierszy możesz je szybko usunąć za pomocą skrótu w Excelu "usuń wiersz". Poniżej znajdziesz informacje, jak pozbyć się wybranych wierszy niezależnie od tego, czy masz standardową tabelę danych, czy tabelę, która ma dane po prawej stronie.

    Usuń wiersze z całej tabeli

    Jeśli masz prostą listę w Excelu, która nie ma żadnych dodatkowych informacji po prawej stronie, możesz użyć skrótu do usuwania wierszy w 2 prostych krokach:

    1. Naciśnij klawisz skrótu Ctrl + - (minus na klawiaturze głównej).

    Zobaczysz, że nieużywane wiersze znikną w mgnieniu oka.

    Wskazówka. Możesz zaznaczyć tylko zakres, który zawiera wartości, które chcesz usunąć. Następnie użyj skrótu klawiszowego Ctrl + - (minus na głównej klawiaturze) aby uzyskać standardowy Excel Usuń okno dialogowe umożliwiające wybór Cały rząd przycisk radiowy lub inną opcję usuwania, która może być potrzebna.

    Usuń wiersze, jeśli istnieją dane po prawej stronie tabeli

    Ctrl + - (minus na głównej klawiaturze) Skrót Excel jest najszybszym środkiem do usuwania wierszy. Jednakże, jeśli istnieją jakiekolwiek dane po prawej stronie twojej głównej tabeli, jak na zrzucie ekranu poniżej, może usunąć wiersze wraz ze szczegółami, które musisz zachować.

    Jeśli tak jest w twoim przypadku, musisz sformatować swoje dane jako Tabela Excela po pierwsze.

    1. Naciśnij Ctrl + T , lub przejdź do Zakładka główna -> Formatuj jako tabelę i wybierz styl, który najbardziej Ci odpowiada.

    Zobaczysz Utwórz tabelę okno dialogowe, za pomocą którego można zaznaczyć potrzebny zakres.

  • Teraz, gdy Twoja lista jest sformatowana, wybierz zakres z wartościami lub wierszami, które chcesz usunąć w swojej tabeli.
  • Uwaga. Upewnij się, że nie używasz przycisków wierszy do zaznaczania całych rzędów.

  • Naciśnij Ctrl + - (minus na głównej klawiaturze), aby zobaczyć, że niechciane dane zostały usunięte tylko z Twojej tabeli. Dodatkowe informacje po prawej stronie pozostaną nienaruszone.
  • Mamy nadzieję, że ten skrót "usuń wiersz" okazał się pomocny. Czytaj dalej, aby znaleźć Excel VBA do usuwania wierszy i dowiedzieć się, jak wyeliminować dane na podstawie określonego tekstu komórki.

    Usuń wiersze, które zawierają określony tekst w jednej kolumnie

    Jeśli pozycje w wierszach, które chcesz usunąć, występują tylko w jednej kolumnie, poniższe kroki przeprowadzą Cię przez proces usuwania wierszy z takimi wartościami.

    1. Najpierw musisz zastosować filtr do swojej tabeli. Aby to zrobić, przejdź do Dane w programie Excel i kliknij na Filtr ikona.

  • Filtruj kolumnę zawierającą wartości do usunięcia według potrzebnego tekstu.Kliknij ikonę strzałki obok kolumny zawierającej potrzebne elementy.Następnie odznacz pole Wybierz wszystko Jeśli lista jest długa, wystarczy wpisać potrzebny tekst w polu Szukaj Następnie kliknij OK aby potwierdzić.
  • Zaznacz filtrowane komórki w wierszach, które chcesz usunąć. Nie jest konieczne zaznaczanie całych wierszy.
  • Kliknij prawym przyciskiem myszy na podświetlony zakres i wybierz opcję Usunąć wiersz z listy menu.
  • Na koniec kliknij na Filtr ikona ponownie, aby ją wyczyścić i zobacz, że wiersze z wartościami zniknęły z twojej tabeli.

    Jak usunąć wiersze w programie Excel według koloru komórki

    Opcja filtra pozwala na sortowanie danych na podstawie koloru komórek. Możesz jej użyć do usunięcia wszystkich wierszy, które zawierają określony kolor tła.

    1. Zastosuj Filtr do swojego stolika. Idź do Dane w programie Excel i kliknij na Filtr ikona.

  • Kliknij na małą strzałkę obok nazwy potrzebnej kolumny, przejdź do Filtr według koloru i wybierz odpowiedni kolor komórki. Kliknij OK i zobaczyć wszystkie podświetlone komórki na górze.
  • Zaznacz przefiltrowane kolorowe komórki, kliknij na nie prawym przyciskiem myszy i wybierz Usuń wiersz opcja z menu.
  • To jest to! Rzędy z identycznie zabarwionymi komórkami są usuwane w jednej chwili.

    Usuń wiersze, które zawierają określony tekst w różnych kolumnach

    Jeśli wartości, które chcesz usunąć, są rozproszone w różnych kolumnach, sortowanie może skomplikować zadanie. Poniżej znajdziesz pomocną wskazówkę, aby usunąć wiersze na podstawie komórek, które zawierają określone wartości lub tekst. Z mojej tabeli poniżej chcę usunąć wszystkie wiersze, które zawierają styczeń, który pojawia się w 2 kolumnach.

    1. Zacznij od wyszukania i zaznaczenia komórek z potrzebną wartością za pomocą Znajdź i zamień dialog. kliknij Ctrl + F aby go uruchomić.

      Wskazówka. To samo okno dialogowe można znaleźć po przejściu do Zakładka główna -> Znajdź & Wybierz i wybrać Znajdź opcja z listy rozwijanej.

    2. Wprowadź wymaganą wartość w Znajdź to, co i w razie potrzeby wybierz dodatkowe opcje. Następnie naciśnij przycisk Znajdź wszystkie aby zobaczyć wynik.

  • Wyniki pojawią się w Znajdź i zamień okno.
  • Wybierz znalezione wartości w oknie, zachowując Ctrl Znalezione wartości zostaną automatycznie zaznaczone w tabeli.

  • Teraz przejdź do Karta główna -> Usuń -> Usuń wiersze arkusza .
  • Wskazówka. Możesz usunąć wiersze z zaznaczonymi wartościami, jeśli naciśniesz Ctrl + -. (minus na płycie głównej) i wybrać przycisk radiowy Całe rzędy .

    Voila - niechciane wiersze są usunięte.

    Makro Excel VBA do usuwania wierszy lub usuwania co drugiego wiersza

    Jeśli zawsze szukasz rozwiązania, aby zautomatyzować tę lub tę rutynę programu Excel, chwyć poniższe makra, aby usprawnić swoje zadanie usuwania rzędów. W tej części znajdziesz 2 makra VBA, które pomogą Ci usunąć wiersze z wybranymi komórkami lub usunąć każdy inny wiersz w programie Excel.

    Makro RemoveRowsWithSelectedCells wyeliminuje wszystkie linie, które zawierają co najmniej jedną podświetloną komórkę.

    Makro RemoveEveryOtherRow Jak sama nazwa wskazuje, pomoże Ci pozbyć się co drugiego/trzeciego itd. wiersza zgodnie z Twoimi ustawieniami. Usunie wiersze zaczynające się od aktualnej pozycji kursora myszy do końca tabeli.

    Jeśli nie wiesz jak wstawiać makra, zapraszam do zapoznania się z Jak wstawiać i uruchamiać kod VBA w Excelu.

    Sub RemoveRowsWithSelectedCells() Dim rngCurCell, rng2Delete As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each rngCurCell In Selection If Not rng2Delete Is Nothing Then Set rng2Delete = Application.Union(rng2Delete, _ ActiveSheet.Cells(rngCurCell.Row, 1)) Else Set rng2Delete = rngCurCell End If Next rngCurCell If Not rng2Delete Is Nothing Thenrng2Delete.EntireRow.Delete End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Sub RemoveEveryOtherRow() Dim rowNo, rowStart, rowFinish, rowStep As Long Dim rng2Delete As Range rowStep = 2 rowStart = Application.Selection.Cells(1, 1).Row rowFinish = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row Application.ScreenUpdating = FalseApplication.Calculation = xlCalculationManual For rowNo = rowStart To rowFinish Step rowStep If Not rng2Delete Is Nothing Then Set rng2Delete = Application.Union(rng2Delete, _ ActiveSheet.Cells(rowNo, 1)) Else Set rng2Delete = ActiveSheet.Cells(rowNo, 1) End If Next If Not rng2Delete Is Nothing Then rng2Delete.EntireRow.Delete ' Ukryj każdy kolejny wiersz 'rng2Delete.EntireRow.Hidden = True End IfApplication.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

    Wskazówka. jeśli Twoim zadaniem jest pokolorowanie innym kolorem co drugiego/trzeciego itd. wiersza, to kroki znajdziesz w rozdziale Naprzemienne cieniowanie wierszy i kolumn w Excelu (pasmowe wiersze i kolumny).

    W tym artykule opisałem, jak usunąć wiersze w programie Excel. Teraz masz kilka przydatnych makr VBA, aby usunąć wybrane wiersze, wiesz, jak usunąć każdy inny wiersz i jak korzystać z Find & Replace, aby pomóc Ci wyszukać i wybrać wszystkie wiersze z tymi samymi wartościami przed ich wyeliminowaniem. Mam nadzieję, że powyższe wskazówki ułatwią Ci pracę w programie Excel i pozwolą Ci uzyskać więcej wolnego czasu na cieszenie się tymi ostatnimiletnie dni, bądź szczęśliwy i doskonal się w Excelu!

    Michael Brown jest oddanym entuzjastą technologii z pasją do upraszczania złożonych procesów za pomocą narzędzi programowych. Dzięki ponad dziesięcioletniemu doświadczeniu w branży technologicznej doskonalił swoje umiejętności w programach Microsoft Excel i Outlook, a także w Arkuszach i Dokumentach Google. Blog Michaela jest poświęcony dzieleniu się swoją wiedzą i doświadczeniem z innymi, dostarczając łatwych do zastosowania wskazówek i samouczków w celu poprawy produktywności i wydajności. Niezależnie od tego, czy jesteś doświadczonym profesjonalistą, czy początkującym, blog Michaela oferuje cenne spostrzeżenia i praktyczne porady dotyczące maksymalnego wykorzystania tych niezbędnych narzędzi programowych.