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

Jak usunąć cały wiersz, jeśli komórka zawiera zero w programie Excel?

Czasami chcesz usunąć cały wiersz, jeśli komórka zawiera zero w programie Excel, i możesz usuwać je jeden po drugim, jeśli jest ich kilka. Ale co powiesz na konieczność usunięcia setek wierszy zawierających zero? Możesz wybrać jeden z trudnych sposobów poniżej, aby go rozwiązać.

Usuń wiersz, jeśli komórka zawiera zero za pomocą funkcji Filtruj w programie Excel
Usuń wiersz, jeśli komórka zawiera zero z VBA w programie Excel
Usuń wiersz, jeśli komórka zawiera zero za pomocą Kutools for Excel


Usuń wiersz, jeśli komórka zawiera zero za pomocą funkcji Filtruj w programie Excel

Możesz użyć funkcji Filtruj, aby odfiltrować wszystkie wiersze na podstawie wartości zerowych w określonej kolumnie, a następnie usunąć wszystkie widoczne wiersze później. Wykonaj następujące czynności.

1. Wybierz komórki kolumny zawierające wartości zerowe, na podstawie których chcesz usunąć całe wiersze, a następnie kliknij Dane > Filtruj. Zobacz zrzut ekranu:

2. Następnie rozwijana strzałka zostanie wyświetlona w pierwszej komórce wybranej kolumny, kliknij strzałkę, a następnie wybierz Filtry liczbowe > Równa się z rozwijanej listy.

doc usuń, jeśli zero 1

3. w Niestandardowy Autofiltr w oknie dialogowym wprowadź liczbę 0 w polu tekstowym, jak pokazano na poniższym zrzucie ekranu, a następnie kliknij OK przycisk.

doc usuń, jeśli zero 1

4. Następnie wszystkie komórki o zerowej wartości w tej określonej kolumnie są odfiltrowywane. Wybierz wszystkie widoczne komórki w zakresie filtrów i kliknij je prawym przyciskiem myszy, wybierz Usuń wiersze z menu po kliknięciu prawym przyciskiem myszy. W wyskakującym oknie dialogowym kliknij plik OK przycisk. Zobacz zrzut ekranu:

doc usuń, jeśli zero 1

5. Teraz wszystkie widoczne wiersze zostaną usunięte. Możesz kliknąć Dane > Filtruj ponownie, aby pokazać wszystkie dane bez komórek o zerowej wartości. Zobacz zrzut ekranu:

doc usuń, jeśli zero 1


Z łatwością usuwaj wszystkie wiersze, jeśli wartości zerowe istnieją w pewnym zakresie w programie Excel:

Kutools dla Excela Wybierz określone komórki Narzędzie pomaga łatwo wybrać całe wiersze, jeśli w pewnym zakresie istnieją wartości zerowe, a następnie można szybko usunąć wszystkie wybrane wiersze ręcznie bez żadnych błędów.
Pobierz i wypróbuj teraz! (30-dzień bezpłatny szlak)


Usuń wiersz, jeśli komórka zawiera zero z VBA w programie Excel

Ta sekcja pokaże Ci metodę VBA, aby usunąć wszystkie wiersze, jeśli w określonej kolumnie w programie Excel istnieją wartości zerowe.

1. naciśnij Alt + F11 jednocześnie, aby wyświetlić Microsoft Visual Basic for Applications okno.

2. W oknie Microsoft Visual Basic for Applications kliknij wstawka > Moduł, a następnie skopiuj i wklej następujący kod VBA do okna modułu.

VBA: Usuń całe wiersze, jeśli w określonym zakresie kolumn w arkuszu występuje wartość zerowa

Sub DeleteZeroRow () 'Updateby20140616 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8 ) Application.ScreenUpdating = False Do Set Rng = WorkRng.Find ("0", LookIn: = xlValues) Jeśli nie Rng to nic, to Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub

3. wciśnij F5 klucz do uruchomienia kodu w wyskakującym okienku KutoolsforExcel W oknie dialogowym wybierz zakres kolumn, z którego chcesz usunąć całe wiersze na podstawie wartości zerowych w środku, a następnie kliknij przycisk OK przycisk. Zobacz zrzut ekranu:

doc usuń, jeśli zero 1

Następnie wszystkie wiersze oparte na wartościach zerowych w określonym zakresie kolumn są natychmiast usuwane.

doc usuń, jeśli zero 1


Usuń wiersz, jeśli komórka zawiera zero za pomocą Kutools for Excel

Dla wielu użytkowników programu Excel używanie kodu VBA jest niebezpieczne przy usuwaniu danych w programie Excel. Jeśli nie ufasz dokładnie kodowi VBA, tutaj zalecamy wypróbowanie Wybierz określone komórki użyteczność Kutools dla programu Excel.

Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.

1. Wybierz zakres kolumn, z którego chcesz usunąć całe wiersze w oparciu o wartości zerowe w środku, a następnie kliknij Kutools > Wybierz > Wybierz określone komórki. Zobacz zrzut ekranu:

2. w Wybierz określone komórki musisz:

(1) Wybierz plik Cały rząd opcja w Typ wyboru sekcja.

(2) Wybierz Równa się na początku Określony typ listę rozwijaną, a następnie wprowadź numer 0 w polu tekstowym.

(3) Kliknij OK przycisk.

3. Pojawi się okno dialogowe z informacją, ile wierszy zostało wybranych, kliknij OK przycisk. Teraz wszystkie wiersze z zerowymi wartościami istnieją w określonym zakresie kolumn. Kliknij prawym przyciskiem myszy dowolny wybrany wiersz, a następnie kliknij Usuń w menu po kliknięciu prawym przyciskiem myszy. Zobacz zrzut ekranu:

doc usuń, jeśli zero 1

Teraz wszystkie wiersze z zerowymi wartościami istnieją w określonej kolumnie są natychmiast usuwane. Zobacz zrzut ekranu:

doc usuń, jeśli zero 1

  Jeśli chcesz skorzystać z bezpłatnego okresu próbnego (30-dzień) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.


Usuń wiersz, jeśli komórka zawiera zero za pomocą Kutools for Excel


Względne artykuły:


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 (15)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
To był ratunek dla życia!!
Ten komentarz został zminimalizowany przez moderatora na stronie
Twój kod VB nie działa. Usuwa wszystkie wiersze z zerem na pozycji dziesiątek. Mam nadzieję, że nikt tego nie użyje, ponieważ usunie dane ...
Ten komentarz został zminimalizowany przez moderatora na stronie
Zmodyfikowałem powyższy kod, aby działał dla mnie. Chciałem usunąć każdy wiersz, który zawierał „Delete” w wierszu C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:= xlValues) Jeśli nie Rng to nic, to Rng.EntireRow.Delete Koniec pętli, podczas gdy nie Rng to nic Application.ScreenUpdating = True End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Zmodyfikowałem poniższy kod, aby działał dla mnie. Spowodowało to usunięcie każdego wiersza w kolumnie C, który zawierał „Delete” w komórce kolumny C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete" , LookIn:=xlValues) Jeśli nie Rng to nic, to Rng.EntireRow.Delete Zakończ, jeśli pętla, podczas gdy nie Rng to nic Application.ScreenUpdating = True End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
dzięki za odpowiedź, pracował dla mnie
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,
to zadziałało dla mnie, wielkie dzięki.
jeśli mam kilka arkuszy? jak mogę uruchomić skrypt 1 raz dla wszystkich arkuszy?
Ten komentarz został zminimalizowany przez moderatora na stronie
zmodyfikowany do moich celów - dziękuję za pomoc: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Ustaw zakres, z którego chcesz usunąć nieużywaną ilość 0 wiersze z" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8) Application.ScreenUpdating = False Sheets("ENTRY").Wybierz Do Set Rng = WorkRng.Find("0 ", LookIn:=xlValues) Jeśli Not Rng to nic, to Rng.EntireRow.Delete End If Loop While Not Rng to nic Application.ScreenUpdating = True Range("FF92").Select Selection.End(xlDown).Select MsgBox "Usunięte Zerowe wiersze z kolumny FG — obliczanie teraz — proszę czekać" Application.Calculation = xlAutomatic End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć kochani, potrzebuję kodu, aby ukryć wiersze, które mają wartość=0 w kolumnie „N” w arkuszu 1. Wartość kolumny „N” zmieni się po zaktualizowaniu szczegółów w arkuszu 2. to jest czas trzeba odkryć rząd. czy można to zrobić za pomocą formuły Excela (bez makr i filtrów Excela).
Ten komentarz został zminimalizowany przez moderatora na stronie
To nie zadziałało dla mnie. Zmienił wszystkie wartości w wybranej przeze mnie kolumnie i sąsiedniej kolumnie na zera. Chyba robię coś złego!
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Sheri,
Kod działa dobrze w moim przypadku. Z której wersji Excela korzystasz?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Kryształowo. Wysłałem to dwa lata temu, więc zgaduję, że to rozgryzłem. Ale dzięki za odpowiedź.
Ten komentarz został zminimalizowany przez moderatora na stronie
Wstaw to do nowego modułu VB.
To jest z InputBox, aby usunąć wiersz zawierający to słowo.

Atrybut VB_Name = "ZnajdźDelRowByWord"
Sub ZnajdźDelRow()
„Aktualizacja do 20140616”
Dim Rng jako zakres
Dim WorkRng jako zakres
Dim xRep jako ciąg
On Error Resume Next
xTitleId = "Narzędzia ZOK"
Ustaw WorkRng = Application.Selection
Ustaw WorkRng = Application.InputBox("Zakres", xTitleId, WorkRng.Address, Type:=8)
xRep = Application.InputBox("słowo do usunięcia wiersza:", "Narzędzia ZOK", , , , , 2)
Application.ScreenUpdating = Fałsz
Do
Ustaw Rng = WorkRng.Find(xRep, LookIn:=xlValues)
Jeśli nie dzwonek jest niczym, to
Usuń cały wiersz
End If
Pętla, chociaż nie dzwonek to nic
Application.ScreenUpdating = True
End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
A CO JEŚLI masz duży arkusz i są wiersze, które chcesz zachować, a inne wiersze zawierają określone słowa kluczowe i usuwają je? kutools działają dla mnie, ale dla jednego słowa kluczowego, które wiele wierszy ma to słowo kluczowe, wiersze zostały usunięte, chcę tylko mieć wiele słów kluczowych, aby zrobić to samo? czy to działa dla powyższego kodu?
Ten komentarz został zminimalizowany przez moderatora na stronie
Dobry dzień,
Kutools radzi sobie jednocześnie z dwoma słowami kluczowymi. Musisz włączyć jego drugi warunek za pomocą "I" lub "Lub". Mam nadzieję, że mogę pomóc.
Ten komentarz został zminimalizowany przez moderatora na stronie
Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?
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