Jak utworzyć kod makra, aby znaleźć i zamienić tekst w programie Excel?
Zwykle używamy wbudowanej funkcji Znajdź i zamień do wyszukiwania i zastępowania wartości w programie Excel. W rzeczywistości możesz znaleźć i zamienić tekst w programie Excel bezpośrednio za pomocą kodu makr. W tym artykule dowiesz się, jak utworzyć kod makra, aby znaleźć i zamienić tekst w programie Excel.
Utwórz kod makra, aby znaleźć i zamienić tekst w programie Excel
Utwórz kod makra, aby znaleźć i zamienić tekst w programie Excel
Wykonaj następujące czynności, aby utworzyć kod makra, aby znaleźć i zamienić tekst w programie Excel.
1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj poniższy kod VBA do okna kodu.
Kod VBA: utwórz kod makra, aby znaleźć i zamienić tekst w programie Excel
Sub FindandReplaceText()
'Update by Extendoffice 2018/5/24
Dim xFind As String
Dim xRep As String
Dim xRg As Range
On Error Resume Next
Set xRg =Cells
xFind = Application.InputBox("word to search:", "Kutools for Excel", , , , , 2)
xRep = Application.InputBox("word to replace:", "Kutools for Excel", , , , , 2)
If xFind = "False" Or xRep = "False" Then Exit Sub
xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False
End Sub
3. wciśnij F5 klucz do uruchomienia kodu.
4. W pierwszym Kutools dla programu Excel W oknie dialogowym wprowadź tekst lub wartość do wyszukania, a następnie kliknij przycisk OK przycisk. Zobacz zrzut ekranu:
5. W sekundę Kutools dla programu Excel W oknie dialogowym wprowadź tekst lub wartość, którą chcesz zastąpić, i kliknij przycisk OK przycisk.
Następnie wszystkie określone teksty są natychmiast zastępowane żądanym tekstem.
Note: Ten kod jest stosowany do aktywnego arkusza.
Podobne artykuły:
- Jak znaleźć i zamienić wszystkie puste komórki na określoną liczbę lub tekst w programie Excel?
- Jak zamienić przecinki na nowe linie (Alt + Enter) w komórkach w programie Excel?
- Jak znaleźć i zamienić nazwy kart arkuszy w programie Excel?
- Jak znaleźć wartość w komórce z listą oddzieloną przecinkami w programie Excel?
- Jak znaleźć przecięcie dwóch list kolumn 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!