Excel VBA Znajdź i zamień
Czy kiedykolwiek myślałeś o zautomatyzowaniu funkcji Znajdź i zamień w programie Excel. W VBA możemy utworzyć makro, którego można użyć do znalezienia i zastąpienia wszystkiego, co zwykle robimy w Excelu, naciskając klawisze skrótu Ctrl + H. Za pomocą VBA Find and Replace możemy zautomatyzować wyszukiwanie dowolnego słowa i zastąpienie go innym zamiennikiem. Pomaga to, gdy musimy wykonać tę samą czynność wiele razy.
Jak znaleźć i zamienić słowa w Excel VBA?
Poniżej znajdują się różne przykłady wyszukiwania i zastępowania słów w programie Excel za pomocą kodu VBA.
Możesz pobrać ten szablon VBA Znajdź i zamień Excel tutaj - VBA Znajdź i zamień szablon ExcelZnajdź i zamień VBA - przykład nr 1
W bardzo prostym przykładzie mamy zestaw danych, który składa się z jakiejś nazwy. Niektóre z tych nazw powtarzają się, jak pokazano poniżej.
Teraz stworzymy kod, za pomocą którego znajdziemy powtarzające się nazwy i zastąpimy je czymś innym. W tym celu wykonaj poniższe kroki.
Krok 1: Przejdź do menu Wstaw w VBA i wybierz opcję Moduł, jak pokazano poniżej.
Krok 2: Gdy to zrobimy, otworzymy nowy moduł. W tym module wpisz podkategorię w nazwie VBA Znajdź i zamień lub możesz wybrać dowolną nazwę tej podkategorii.
Kod:
Sub Find_Replace1 () End Sub
Krok 3: Ponieważ mamy dane w kolumnie B z komórki B2 do B10, więc najpierw wybieramy ten zakres z B2: B10.
Kod:
Sub Find_Replace1 () Zakres („B2: B10”). Zastąp End Sub
Krok 4: Teraz, aby zastąpić coś, musimy poszukać tego słowa. Tutaj również najpierw wybierzemy funkcję Zamień, aby sprawdzić, co musimy zastąpić.
Kod:
Sub Find_Replace1 () Zakres („B2: B10”). Zastąp End Sub
Zgodnie ze składnią funkcji Zamień znajdziemy to, co musimy zastąpić.
Krok 5: Wybierzmy imię z listy „ Ben ” jako to, co musimy zastąpić.
Kod:
Sub Find_Replace1 () Zakres („B2: B10”). Zamień Co: = „Ben” End Sub
Krok 6: Teraz wybierz słowo zastępcze, za pomocą którego musimy zastąpić wybrane słowo. Tutaj zdecydowaliśmy się zastąpić nazwę Ben Samem, który jest wymieniony jako Zastąpienie, jak pokazano poniżej.
Kod:
Sub Find_Replace1 () Zakres („B2: B10”). Zamień Co: = „Ben”, Zamiennik: = „Sam” End Sub
Krok 7: Teraz skompiluj kod i uruchom go, klikając przycisk Odtwórz lub naciskając klawisz F5, jak pokazano poniżej.
Zobaczymy, wszystkie komórki zawierające imię Ben są teraz zastąpione nazwą Sam . I to jest również podświetlone na żółto.
Znajdź i zamień VBA - przykład 2
Wszyscy moglibyśmy spotkać się z sytuacją, w której próbowaliśmy znaleźć i zamienić niektóre słowa na małe i wielkie litery. Załóżmy, że na liście, jeśli chcemy zastąpić tylko to słowo, które ma małe lub duże litery. A jeśli korzystamy z procesu, który widzieliśmy w przykładzie 1, to w końcu zastąpilibyśmy wszystkie podobne słowa na tej liście wraz z wymaganymi. Tego procesu nie można wykonać za pomocą funkcji znajdowania i zastępowania (Ctrl + H) programu Excel. W tym celu mamy przepis w VBA.
Rozważmy poniższe dane. Jak widzimy, celowo dodaliśmy słowo BEN dużymi literami w komórce B2.
Wykonaj poniższe kroki, aby znaleźć i zastąpić słowo BEN.
Krok 1: Rozpocznij podkategorię VBA Znajdź i zamień tam, jak pokazano poniżej.
Kod:
Sub Find_Replace2 () End Sub
Krok 2: Wybierz listę jako Zakres od B2 do B10.
Kod:
Sub Find_Replace2 () Zakres („B2: B10”) Koniec Sub
Krok 3: Teraz wybierz dokładnie słowo, które chcemy zastąpić. Tutaj wybraliśmy BEN, który znajduje się w komórce B2.
Kod:
Sub Find_Replace2 () Zakres („B2: B10”). Zamień Co: = „BEN” End Sub
Krok 4: Ponownie wybraliśmy to samo słowo, które widzieliśmy w przykładzie 1 jako zamiennik BEN jako Sam .
Kod:
Sub Find_Replace2 () Zakres („B2: B10”). Zamień Co: = „BEN”, Zamiennik: = „Sam” End Sub
Krok 5: Teraz, aby zastąpić dokładne słowo BEN, musimy użyć MatchCase, jeśli stanie się PRAWDA, jak pokazano poniżej.
Kod:
Sub Find_Replace2 () Zakres („B2: B10”). Zamień Co: = „BEN”, Zamiennik: = „Sam”, MatchCase: = True End Sub
MatchCase pomoże nam zidentyfikować to słowo, które chcemy zastąpić dokładnym dopasowaniem. Tutaj słowo, które wybraliśmy, to BEN dużymi literami, a lista zawiera również inne podobne słowa, ale we właściwej wielkości.
Krok 6: Teraz uruchom kod, klikając przycisk Odtwórz lub naciskając klawisz F5.
Zobaczymy, słowo BEN, które było w komórce B2, jest teraz zastąpione słowem „ Sam ”, podświetlonym na żółto. Podobne słowa Ben, które znajdują się odpowiednio w komórkach B5 i B8, pozostają niezmienione.
Tak działa dopasowanie ścisłe.
Krok 7: Teraz usuniemy dodaną MatchCase z powyższego kodu i zobaczymy, jak to będzie działać.
Kod:
Sub Find_Replace2 () Zakres („B2: B10”). Zamień Co: = „BEN”, Zamiennik: = „Sam”, MatchCase: = True End Sub
Krok 8: Ponownie skompiluj i uruchom kod.
Zobaczymy, że kod zastąpił wszystkie komórki zawierające słowo Ben, jak pokazano powyżej. Co oznacza, że po usunięciu MatchCase kod będzie działał tak, jak widzieliśmy w przykładzie 1.
Plusy Excel VBA Znajdź i zamień
- Ważna nauka polega na tym, że możemy zastąpić słowa i zawartość komórki z rozróżnieniem małych i wielkich liter za pomocą VBA Znajdź i zamień, jak pokazano w przykładzie 2.
- Jeśli działanie jest powtarzane ręcznie i wielokrotnie, automatyzacja byłaby korzystna w oszczędzaniu czasu i wysiłku.
- Nawet jeśli mamy ogromny zestaw danych, w których chcemy zastąpić określone słowa, można to zrobić bez awarii programu Excel w dużych plikach.
Rzeczy do zapamiętania
- Możemy utworzyć makro funkcji Znajdź i zamień za pomocą opcji Nagraj makro w zakładce Deweloper. Jest to najprostszy sposób na utworzenie makra, jeśli nie znasz kodowania.
- Zapisanie pliku w formacie Macro Enable excel umożliwi korzystanie z kodu w przyszłości.
- Możemy zastąpić dowolny rodzaj tekstu, słowa, liczby lub znaku przez VBA Znajdź i zamień.
Polecane artykuły
To jest przewodnik po VBA Znajdź i zamień. Tutaj omawiamy, jak znaleźć i zamienić słowa w Excelu za pomocą VBA wraz z praktycznymi przykładami i szablonem Excel do pobrania. Możesz także przejrzeć nasze inne sugerowane artykuły -
- VBA Break for Loop
- WYMIEŃ Formułę w programie Excel
- Kompletny przewodnik Znajdź VBA
- ZNAJDŹ funkcję w programie Excel