Jak znaleźć i zamienić wiele wartości jednocześnie w programie Excel?
Jak wszyscy wiemy, możemy użyć funkcji Znajdź i zamień, aby znaleźć wiele takich samych komórek i zastąpić je wartością, której potrzebujesz. Ale czasami trzeba jednocześnie zastosować zamianę wiele do wielu. Na przykład mam szereg danych, a teraz chcę zamienić wszystkie jabłka na czerwone jabłka, pomarańcze na zielone pomarańcze, banany na żółte banany itd., Jak pokazano na zrzutach ekranu. Czy masz jakieś dobre pomysły, aby rozwiązać to zadanie w Przewyższać?
Znajdź i zamień wiele wartości jednocześnie na kod VBA
Jeśli masz dość ciągłego wyszukiwania i zastępowania wartości, poniższy kod VBA może pomóc w zastąpieniu wielu wartości potrzebnymi tekstami jednocześnie.
1. Utwórz warunki, których chcesz użyć, zawierające oryginalne wartości i nowe wartości. Zobacz zrzut ekranu:
2. Następnie przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.
3. Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.
Kod VBA: znajdź i zamień wiele wartości jednocześnie
Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub
4. Następnie naciśnij F5 Aby uruchomić ten kod, w wyskakującym okienku zachęty określ zakres danych, w którym chcesz zastąpić wartości nowymi wartościami.
5. Kliknij OKi pojawi się kolejne okno zachęty przypominające o wyborze kryteriów, które zostały utworzone w kroku 1. Zobacz zrzut ekranu:
6. Następnie kliknij OK, wszystkie określone wartości zostały natychmiast zastąpione nowymi wartościami.
Podobne artykuły:
Jak znaleźć i zamienić określony tekst w polach tekstowych?
Jak znaleźć i zamienić tekst w tytułach wykresów w programie Excel?
Jak znaleźć i zamienić tekst w komentarzach w programie Excel?
Jak zmienić wiele ścieżek hiperłączy jednocześnie 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!