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

Jak wyczyścić zawartość komórki na podstawie stanu w programie Excel?

Czasami może być konieczne wyczyszczenie zawartości komórki na podstawie warunków w programie Excel, takich jak wyczyszczenie zawartości komórki, jeśli komórka zawiera określoną wartość, wyczyszczenie zawartości komórki, jeśli w innej kolumnie znajdują się puste komórki lub wyczyszczenie zawartości komórki z określonym kolorem tła itp. W tym artykule przedstawimy kilka sztuczek, które pozwolą szybko i łatwo rozwiązać te zadania.

Wyczyść zawartość komórki na podstawie wartości komórki z kodem VBA

Wyczyść całe wiersze, jeśli wartość jest większa lub mniejsza niż określona wartość z kodem VBA

Wyczyść zawartość komórki lub wiersza na podstawie wartości komórki z przydatną funkcją

Wyczyść całe wiersze, jeśli inna komórka jest pusta z kodem VBA

Wyczyść zawartość komórki na podstawie koloru tła z kodem VBA


Wyczyść zawartość komórki na podstawie wartości komórki z kodem VBA

Na przykład masz następujący zakres danych, teraz chcesz wyczyścić zawartość komórki, która jest "Hoodie", poniższy kod VBA może ci wyświadczyć przysługę.

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.

Kod VBA: Wyczyść zawartość komórki, jeśli komórka ma określoną wartość

Sub ClearContents()
'Updateby ExtendOffice
 Dim xRng As Range
 Dim xCell As Range
 Dim xText As String
 Set xRng = Application.Range("A2:A12")
 xText = "Hoodie" 'Change this text to your own
 For Each xCell In xRng
 If xCell.Value = xText Then
 xCell.clearContents
 End If
 Next xCell
End Sub
Uwagi: W powyższym kodzie, A2: A12 to zakres danych, z którego chcesz usunąć zawartość komórki, tekst „Bluza” to konkretna wartość, którą chcesz wyczyścić. Zmień je na własne.

3. Następnie naciśnij F5 klucz, aby uruchomić ten kod, a wszystkie komórki z tekstem „Hoodie” są usuwane jednocześnie, patrz zrzut ekranu:


Wyczyść całe wiersze, jeśli wartość jest większa lub mniejsza niż określona wartość z kodem VBA

Przypuśćmy, że masz poniższy zakres danych, aby wyczyścić całą zawartość wiersza, jeśli wartość w kolumnie D jest większa lub mniejsza niż 300. Tutaj utworzę kod VBA, aby go uzupełnić.

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.

Kod VBA: Wyczyść całe wiersze, jeśli wartość komórki jest większa lub mniejsza od określonej wartości

Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
    Set xRowRg = xRg.Rows.Item(xF)
    xBol = False
    For Each xCell In xRowRg.Cells
        If Application.IsNumber(xCell.Value) Then
        If xCell.Value > xStrValue Then
        xBol = True
        Exit For
        End If
        End If
    Next
    If xBol Then
        xRowRg.EntireRow.clearContents
    End If
Next
End Sub
Uwagi: W powyższym kodzie, D2: D12 czy zakres danych zawiera konkretną wartość, na podstawie której chcesz wyczyścić wiersze; 300 jest konkretną wartością; ten > postać w skrypcie Jeśli xCell.Value > xStrValue Wtedy oznacza większy niż, użyj mniej niż, zmień na < charakter, jak potrzebujesz.

3. Następnie naciśnij F5 klucz, aby uruchomić ten kod, a cała zawartość wiersza zostanie wyczyszczona, jeśli wartość w kolumnie D jest większa niż 300, patrz zrzut ekranu:


Wyczyść zawartość komórki lub wiersza na podstawie wartości komórki z przydatną funkcją

Jeśli masz Kutools dla programu Excel, Z siedzibą w Wybierz określone komórki funkcja, możesz wybrać komórki lub wiersze na podstawie określonej wartości, a następnie usunąć zawartość komórki od razu.

Po zainstalowaniu Kutools dla programu Excel, zrób tak:

1. Wybierz zakres danych z wartościami, na podstawie których chcesz wyczyścić zawartość komórki lub wiersza, a następnie kliknij Kutools > Wybierz > Wybierz określone komórkizobacz zrzut ekranu:

2. W otwartym Wybierz określone komórki w oknie dialogowym wykonaj następujące operacje:

  • Kliknij Komórka or Cały rząd który chcesz wybrać;
  • Określ kryteria pod Określony typ sekcja, jak potrzebujesz. Tutaj chcę wybrać wiersze, których wartość w kolumnie D jest większa niż 300.

3. Następnie kliknij Ok i zaznaczone zostaną wszystkie wiersze o wartości większej niż 300. Teraz wystarczy nacisnąć klawisz Delete na klawiaturze, aby usunąć zawartość komórki, patrz zrzut ekranu:

Wskazówki: Istnieje wiele innych kryteriów, których możesz użyć, określ swój własny warunek w oknie dialogowym, jak pokazano na poniższym zrzucie ekranu:

Wyczyść dane wierszy w zakresie, jeśli zawiera pustą komórkę z kodem VBA

W takim przypadku, jeśli komórka w zakresie danych zawiera puste miejsce, chcę wyczyścić dane wierszy z zakresu, jak pokazano na zrzucie ekranu.

Aby zakończyć to zadanie, zastosuj następujący kod VBA:

1. Przytrzymaj przycisk ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Moduł, a następnie wklej następujący kod w polu Moduł Okno.

Kod VBA: Wyczyść dane wierszy, jeśli zawiera pustą komórkę

Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub
Uwagi: W powyższym kodzie, A2: D12 czy zakres danych zawiera puste komórki, z których chcesz wyczyścić zawartość komórki.

3. Następnie naciśnij F5 klucz, aby uruchomić ten kod, a dane wierszy z pustymi komórkami są usuwane natychmiast w określonym zakresie, zgodnie z potrzebami.


Wyczyść zawartość komórki na podstawie koloru tła z kodem VBA

Aby wyczyścić komórki wypełnione określonym kolorem tła, możesz użyć następującego kodu VBA.

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Moduł, a następnie wklej następujący kod w polu Moduł Okno.

Kod VBA: Wyczyść zawartość komórki na podstawie koloru tła

Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
    For Each xcell In xrng
        If xcell.Interior.Color = RGB(252, 228, 214) Then
            xcell.Clearcontents
        End If
    Next
End Sub
Uwagi: W powyższym kodzie, A2: D12 to zakres danych, którego chcesz użyć, RGB (252, 228, 214) jest konkretnym kolorem, na podstawie którego chcesz wyczyścić komórki, możesz wyodrębnić tryb RGB koloru tła za pomocą Malować program na twoim komputerze.

3. A następnie naciśnij F5 aby uruchomić ten kod, a zawartość komórki z określonym kolorem tła zostanie natychmiast wyczyszczona. Zobacz zrzut ekranu:



  • 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 i przechowywanie danych; Podziel zawartość komórek; Połącz zduplikowane wiersze i sumę / średnią... 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 ...
  • Ulubione i szybkie wstawianie formuł, Zakresy, wykresy i obrazy; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • 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...
  • Grupowanie tabel przestawnych według numer tygodnia, dzień tygodnia i więcej ... Pokaż odblokowane, zablokowane komórki w różnych kolorach; Podświetl komórki, które mają formułę / nazwę...
karta kte 201905
  • 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ęć myszą każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje