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
- 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.
- 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
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!