Przejdź do głównej zawartości

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 > FILTRY. 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 > FILTRY 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-dniowy darmowy 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 Kutools dla programu Excel 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

(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 mieć bezpłatną wersję próbną (30 dni) 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

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup  |   Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły   |  Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki   |  Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi:  12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis

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!
Comments (15)
No ratings yet. Be the first to rate!
Luz aristi
Luz aristi
This comment was minimized by the moderator on the site
Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?
Reply
0
0
Guest
Guest
This comment was minimized by the moderator on the site
Insert this in VB new module.
This is with InputBox to delete row which contains that word.

Attribute VB_Name = "FindDelRowByWord"
Sub FindDelRow()
'Updateby20140616
Dim Rng As Range
Dim WorkRng As Range
Dim xRep As String
On Error Resume Next
xTitleId = "ZOK Tools"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRep = Application.InputBox("word to delete Row:", "ZOK Tools", , , , , 2)
Application.ScreenUpdating = False
Do
Set Rng = WorkRng.Find(xRep, LookIn:=xlValues)
If Not Rng Is Nothing Then
Rng.EntireRow.Delete
End If
Loop While Not Rng Is Nothing
Application.ScreenUpdating = True
End Sub
Reply
0
0
AndrewRosales
AndrewRosales     Guest
This comment was minimized by the moderator on the site
WHAT IF you have a big sheet, and there are rows you want to keep, and others rows that contain certain key words and delete those? the kutools work for me but for one key word that many rows have that key word, the rows were deleted, i just want to have multiple key words to do the same? does this work for the code above?
Reply
0
0
crystal
crystal     AndrewRosales
This comment was minimized by the moderator on the site
Good Day,
Kutools can deal with two key words at the same time. You need to enable its second condition with "And" or "Or". Hope I can help.
Reply
Report
0
0
Sheri
Sheri
This comment was minimized by the moderator on the site
This didn't work for me. It changed all values in my chosen column and the adjacent column to zeros. I must be doing something wrong!
Reply
0
0
crystal
crystal     Sheri
This comment was minimized by the moderator on the site
Hi Sheri,
The code works well in my case. Which Excel verson do you use?
Reply
Report
0
0
sheri.dohm@gmail.com
    crystal
This comment was minimized by the moderator on the site
Hi Crystal. I posted this two years ago so I’m guessing I figured it out. But thanks for the reply.
Reply
Report
0
0
R. Arunkumar
R. Arunkumar
This comment was minimized by the moderator on the site
Hi dears , I need a code to hide the rows which have the value=0 on the column "N" in the sheet 1. The value of the column "N" will change when update the details on the Sheet 2. that's the time need to un-hide the row. is this possible to do this with Excel formula(without macro and Excel Filters).
Reply
0
0
J Murphy
J Murphy
This comment was minimized by the moderator on the site
modified for my purpose--thank you for your help: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Set the range you want to remove the unused 0 quantity rows from" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8) Application.ScreenUpdating = False Sheets("ENTRY").Select Do Set Rng = WorkRng.Find("0", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True Range("FF92").Select Selection.End(xlDown).Select MsgBox "Removed 0's ROWS from column FG--calculating now--please wait" Application.Calculation = xlAutomatic End Sub
Reply
0
0
Andrew
Andrew
This comment was minimized by the moderator on the site
I modified the below code to work for me. This deleted every row in column C that had "Delete" in the cell of column C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
Reply
0
0
yoav
yoav     Andrew
This comment was minimized by the moderator on the site
Hi,
its worked for me, thanks a lot.
if I have multiple sheets? how i can run the script 1 time for all the sheets?
Reply
0
0
Anonymous
Anonymous     Andrew
This comment was minimized by the moderator on the site
thanks for the response, worked for me
Reply
0
0
Andrew
Andrew
This comment was minimized by the moderator on the site
I modified the above code to work for me. I wanted to delete every row that had "Delete" in row C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
Reply
0
0
Scott
Scott
This comment was minimized by the moderator on the site
Your VB code doesn't work. It deletes all rows with a Zero in the 10s position. I hope no one actually uses this as they will delete data...
Reply
0
0
Tom B
Tom B
This comment was minimized by the moderator on the site
This was a life saver!!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations