Jak usunąć wiersze, jeśli komórka jest większa / mniejsza niż określona wartość w programie Excel?
Czasami może być konieczne usunięcie wierszy, jeśli komórki w określonej kolumnie są większe lub mniejsze niż określona wartość w programie Excel. Ten artykuł zaleci kilka metod rozwiązania tego problemu.
Usuń wiersze, jeśli komórka jest większa / mniejsza niż określona wartość z kodem VBA
Usuń wiersze, jeśli komórka jest większa / mniejsza niż określona wartość za pomocą Kutools for Excel
Usuń wiersze, jeśli komórka jest większa / mniejsza niż określona wartość za pomocą Kutoos for Excel
Usuń wiersze, jeśli komórka jest większa / mniejsza niż określona wartość z kodem VBA
Przypuśćmy, że chcesz usunąć całe wiersze, jeśli komórka w kolumnie D jest większa lub mniejsza niż określona wartość w programie Excel. Aby to osiągnąć, możesz uruchomić następujący kod VBA.
1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > moduł. Następnie skopiuj i wklej poniższy kod VBA do okna Code.
Kod VBA: Usuń wiersze, jeśli komórka jest większa / mniejsza niż określona wartość w programie Excel
Public Sub ProcessData()
Dim xRg As Range
Dim xTxt As String
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
Exit Sub
End If
xRg.Range("A1").EntireRow.Insert
Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
xRg.Range("A1") = "Temp"
xRg.AutoFilter 1, ">30000"
Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
On Error GoTo 0
If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Sub
Note: W powyższym kodzie> 30000 oznacza, że usuniesz wiersze, jeśli liczba komórek jest większa niż 30000 w określonej kolumnie. Jeśli chcesz usunąć wiersze, jeśli komórki mają mniej niż określoną wartość, zmień znak> na <, a następnie określ swoją wartość.
3. naciśnij F5 klucz do uruchomienia kodu w wyskakującym okienku Kutools dla programu Excel W oknie dialogowym wybierz zakres (pojedyncza kolumna), który znajdziesz, jeśli komórki w tej kolumnie są większe lub mniejsze od określonej wartości. A następnie kliknij OK przycisk. Zobacz zrzut ekranu:
Następnie wszystkie wiersze z wartością komórki większą niż 30000 w kolumnie D są natychmiast usuwane.
Usuń wiersze, jeśli komórka jest większa / mniejsza niż określona wartość za pomocą Kutools for Excel
Połączenia Wybierz określone komórki użyteczność Kutools dla programu Excel może pomóc w zaznaczeniu wszystkich wierszy zawierających komórki większe lub mniejsze niż określona wartość w określonej kolumnie, a następnie można ręcznie usunąć wszystkie zaznaczone wiersze jednocześnie.
Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.
1. Wybierz kolumnę, na podstawie której chcesz usunąć wiersze, a następnie kliknij Kutools > Wybierz > Wybierz określone komórki. Zobacz zrzut ekranu:
2. w Wybierz określone komórki w oknie dialogowym, wybierz Cały rząd Typ wyboru Sekcja. w Określony typ sekcja, wybierz Lepszy niż or Mniej niż z pierwszej listy rozwijanej wprowadź określoną wartość w następnym polu tekstowym, a następnie kliknij OK przycisk.
3. Następnie pojawi się okno dialogowe z informacją, ile wierszy jest zaznaczonych, kliknij OK przycisk. I możesz zobaczyć, że wszystkie wiersze o wartości większej niż 30000 w kolumnie D są wybierane natychmiast.
4. Kliknij prawym przyciskiem myszy jeden z wybranych wierszy, a następnie kliknij Usuń z menu po kliknięciu prawym przyciskiem myszy. Wszystkie wybrane wiersze zostaną usunięte.
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ń wiersze, jeśli komórka jest większa / mniejsza niż określona wartość za pomocą Kutoos for Excel
Oprócz powyższych dwóch metod możesz odfiltrować wszystkie wiersze z komórkami większymi lub mniejszymi niż określona wartość w określonej kolumnie, a następnie usunąć wszystkie przefiltrowane wiersze za pomocą funkcji Usuń ukryte (widoczne) wiersze i kolumnę użyteczność Kutools dla programu Excel.
Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.
1. Wybierz nagłówek kolumny, a następnie kliknij Dane > FILTRY. Zobacz zrzut ekranu:
2. Kliknij strzałkę rozwijania w kolumnie, na podstawie której chcesz usunąć wiersze, a następnie kliknij Filtry liczbowe > Lepszy niż or Mniej niż jak na poniższym zrzucie ekranu:
3. w Niestandardowy Autofiltr W oknie dialogowym wprowadź określoną liczbę po polu jest większe lub mniejsze niż, a następnie kliknij przycisk OK przycisk.
4. Następnie wszystkie wiersze z określonymi komórkami, które są większe lub mniejsze od określonej wartości w kolumnie D, są odfiltrowywane. Możesz usunąć wszystkie przefiltrowane wiersze, wybierając przefiltrowane dane, a następnie klikając Kutools > Usuń > Usuń ukryte (widoczne) wiersze i kolumny. Zobacz zrzut ekranu:
5. w Usuń ukryte (widoczne) wiersze i kolumny w oknie dialogowym, upewnij się, że plik W wybranym zakresie opcja jest wybrana w Zaglądać listę rozwijaną wybierz Wydziwianie Usuń typ w sekcji, określ opcję Widoczne wiersze w Szczegółowy typ i na koniec kliknij OK przycisk.
6. Następnie wszystkie widoczne wiersze w wybranym zakresie zostaną natychmiast usunięte, możesz anulować filtrowanie klikając Dane > FILTRY.
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ń wiersze, jeśli komórka jest większa / mniejsza niż określona wartość za pomocą Kutools for Excel
Podobne artykuły:
- Jak usunąć wszystkie wiersze poniżej określonego wiersza lub aktywnej komórki w programie Excel?
- Jak usunąć wszystkie wiersze z wyjątkiem pierwszego wiersza nagłówka w programie Excel?
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!