Jak usunąć wiersze z wartościami ujemnymi w programie Excel?
Przypuśćmy, że masz następujący zakres danych i chcesz usunąć całe wiersze, jeśli liczba jest ujemna w kolumnie B, czy są jakieś dobre metody rozwiązania tego problemu w programie Excel?
Usuń wiersze z liczbami ujemnymi za pomocą kodu VBA Usuń wiersze z liczbami ujemnymi za pomocą Kutools for Excel |
Usuń wiersze z liczbami ujemnymi za pomocą kodu VBA
Poniższy kod VBA może pomóc w usunięciu całych wierszy, jeśli w określonej kolumnie znajdują się liczby ujemne, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: Usuń wiersze z liczbami ujemnymi
Sub Deleter()
'updatebyExtendoffice
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Sel:
Set xRg = Nothing
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
If xRg.Columns.Count > 1 Then
MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
Next
End Sub
3. A następnie naciśnij F5 Aby wykonać ten kod, w polu zachęty wybierz kolumnę liczb, z której chcesz znaleźć liczby ujemne, patrz zrzut ekranu:
4. Następnie kliknij OK przycisk, wiersze z liczbami ujemnymi zostały usunięte od razu.
Usuń wiersze z liczbami ujemnymi za pomocą Kutools for Excel
Do obsługi tej pracy, Kutools dla programu Excel'S Wybierz określone komórki Funkcja może również wyświadczyć ci przysługę, dzięki temu narzędziu możesz najpierw wybrać całe wiersze zawierające wartości ujemne, a następnie usunąć całe wiersze według potrzeb.
Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. |
Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:
1. Wybierz kolumnę zawierającą liczby ujemne, które chcesz usunąć.
2. Następnie kliknij Kutools > Wybierz > Wybierz określone komórkizobacz zrzut ekranu:
3, w Wybierz określone komórki okno dialogowe, wybierz Cały rząd opcja w Typ wyboru, a następnie wybierz Mniej niż z Określony typ I wejdź 0 w polu tekstowym obok kryteriów, patrz zrzut ekranu:
4. Następnie kliknij Ok, wiersze zawierające liczby ujemne zostały zaznaczone od razu, a następnie kliknij Strona główna > Usuń > Usuń wiersze arkusza aby usunąć wybrane wiersze, jak potrzebujesz, zobacz zrzuty ekranu:
Tips: Możesz także kliknąć prawym przyciskiem myszy, aby wybrać Usuń z menu kontekstowego, aby usunąć wybrane wiersze.
Najlepsze narzędzia biurowe
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...
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!