Przejdź do głównej zawartości

Jak znaleźć i usunąć wiele dopasowań naraz w programie Excel?

Podczas pracy z dużymi danymi w programie Excel bardzo ważne jest, aby móc szybko znaleźć informacje, których potrzebujesz w danym momencie. Właśnie wtedy potrzebujesz funkcji Znajdź i zamień, która pomaga znaleźć i wyróżnić określone wartości lub formaty w aktywnym arkuszu lub całym skoroszycie, a następnie zrobić to, co chcesz, z wynikami, powiedzmy, usuń je lub zamień. Jednak dzięki funkcji Znajdź i zamień programu Excel możesz znaleźć tylko jedną wartość naraz. W tym samouczku przedstawię szybki sposób znajdowania wielu różnych wartości i usuwania ich jednocześnie w programie Excel.


Znajdź i usuń wiele dopasowań jednocześnie za pomocą VBA

Stworzyliśmy dwa kody VBA, które pomogą Ci znaleźć wiele różnych wartości w wybranym zakresie lub w wielu arkuszach i natychmiast je usunąć. Wykonaj poniższe czynności i uruchom kod zgodnie z własnymi potrzebami.

1. W Excelu naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Moduł. Następnie skopiuj jeden z następujących kodów VBA do Moduł okno.

Kod VBA 1: Znajdź i usuń jednocześnie wiele dopasowań w wybranym zakresie

Sub FindAndDeleteDifferentValues_Range()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ

xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas

On Error Resume Next
Set xRg = Application.InputBox("Please select the search scope:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub

xBol = False
For Each xARg In xRg.Areas
    Set xFindRg = Nothing
    Set xFindRgs = Nothing
    Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next
If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub

Uwaga: We fragmencie xArrFinStr = Array("sprzedaż", "9", "@") w 13. rzędzie należy wymienić "sprzedaż", "9", "@" z rzeczywistymi wartościami, które chcesz znaleźć i usunąć, pamiętaj o umieszczeniu każdej wartości w podwójnych cudzysłowach i oddzieleniu ich przecinkami.


Kod VBA 2: Znajdź i usuń wiele dopasowań w wielu arkuszach jednocześnie

Sub FindAndDeleteDifferentValues_WorkSheets()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and delete the values. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
    Set xWSh = xWb.Worksheets(xArr(xI))
    Set xFindRg = Nothing
    xWSh.Activate
    Set xFindRgs = Nothing

    Set xURg = xWSh.UsedRange
    Set xFindRgs = Nothing
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next

If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub
Uwaga:
  • We fragmencie xArr = Array("Arkusz1", "Arkusz2") w 15. rzędzie należy wymienić "Arkusz 1", "Arkusz 2" z rzeczywistymi nazwami arkuszy, w których chcesz znaleźć i usunąć wartości. Pamiętaj, aby nazwy poszczególnych arkuszy umieścić w podwójnych cudzysłowach i oddzielić przecinkami.
  • We fragmencie xArrFinStr = Array("sprzedaż", "9", "@") w 16. rzędzie należy wymienić "sprzedaż", "9", "@" z rzeczywistymi wartościami, które chcesz znaleźć i usunąć, pamiętaj o umieszczeniu każdej wartości w podwójnych cudzysłowach i oddzieleniu ich przecinkami.

3. naciśnij F5 aby uruchomić kod VBA. Uwaga: Jeśli używasz Kod VBA 1, pojawi się okno dialogowe z prośbą o wybranie zakresu, w którym można znaleźć i usunąć wartości. Możesz także kliknąć kartę arkusza, aby wybrać cały arkusz.

4. Pojawi się okno dialogowe pokazane poniżej z informacją, że kod usunął określone dopasowania. Kliknij OK aby zamknąć okno dialogowe.

5. Podane wartości zostały natychmiast usunięte.


Znajdź i usuń wiele dopasowań jednocześnie dzięki funkcji Wybierz określone komórki

Kutools dla programu Excel oferuje Wybierz określone komórki funkcji, aby znaleźć wartości spełniające jeden lub dwa warunki ustawione jednocześnie, czytaj dalej, aby dowiedzieć się, jak szybko znaleźć i usunąć wiele wartości jednocześnie.

1. Na Kutools zakładka, w Edycja grupa, kliknij Wybierz > Wybierz określone komórki.

2. W wyskakującym okienku Wybierz określone komórki w oknie dialogowym, wykonaj następujące czynności:
  • W Wybierz komórki w tym zakresie kliknij przycisk wyboru zakresu po prawej, aby określić zakres od gdzie znaleźć i usunąć wartości. Uwaga: Aby przeszukać cały arkusz, kliknij kartę arkusza.
  • W Typ wyboru sekcję, wybierz Komórka opcja.
  • W Określony typ sekcji, ustaw co najwyżej dwa warunki:
    • Kliknij strzałkę rozwijaną po lewej stronie, aby wybrać związek, którego potrzebujesz, na przykład zawiera, Równa się, Mniej niż, Zaczyna się z, itp.
    • Wpisz wartość w odpowiednim polu zgodnie ze swoimi potrzebami.
    • Określ związek między dwoma warunkami (jeśli istnieją): oraz or Or.

3. kliknij Ok aby wybrać komórki, które spełniają ustawione warunki. Pojawi się okno dialogowe z informacją, ile komórek zostało znalezionych i wybranych.

4. kliknij OK. Teraz naciśnij DELETE aby usunąć wybrane wartości na raz.

Uwaga: Aby użyć Wybierz określone komórki funkcja, powinieneś mieć zainstalowany Kutools for Excel na swoim komputerze. Jeśli nie masz zainstalowanego Kutools, kliknij tutaj, aby pobrać i zainstalować. Profesjonalny dodatek do programu Excel oferuje 30-dniowy bezpłatny okres próbny bez ograniczeń.


Znajdź i usuń wiele dopasowań jednocześnie w programie Excel


Powiązane artykuły

Znajdź, zaznacz, filtruj, policz, usuń duplikaty w programie Excel

W programie Excel zduplikowane dane pojawiają się raz po raz, gdy rejestrujemy dane ręcznie, kopiujemy dane z innych źródeł lub z innych powodów. Czasami duplikaty są potrzebne i przydatne. Jednak czasami zduplikowane wartości prowadzą do błędów lub nieporozumień. W tym artykule przedstawimy metody szybkiego identyfikowania, wyróżniania, filtrowania, liczenia, usuwania duplikatów według formuł, reguł formatowania warunkowego, dodatków innych firm itp. W programie Excel.

Jak porównać dwie kolumny i usunąć dopasowania w programie Excel?

Jeśli masz dwie kolumny / listy zawierające kilka duplikatów, teraz chcesz je porównać i znaleźć dopasowania, usunąć je, jak możesz szybko rozwiązać? W tym artykule przedstawiam różne sposoby radzenia sobie z tym w programie Excel.

Jak usunąć wszystkie oprócz wybranych zakresów w programie Excel?

W programie Excel możemy szybko i bezpośrednio usunąć wybrane zakresy, ale czy kiedykolwiek próbowałeś usunąć inną zawartość komórki poza wybranymi zakresami? W tym artykule przedstawię kilka sztuczek, aby szybko i łatwo rozwiązać to zadanie w programie Excel.

Jak usunąć wszystkie zdjęcia z szeregu komórek?

Jeśli w arkuszu znajduje się wiele obrazów, teraz chcesz usunąć niektóre z nich w określonym zakresie, jak szybko sobie z tym poradzisz?

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ędzi12 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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations