Wie erstelle ich einen Makrocode, um Text in Excel zu finden und zu ersetzen?
Normalerweise verwenden wir die integrierte Funktion Suchen und Ersetzen, um Werte in Excel zu suchen und zu ersetzen. Tatsächlich können Sie Text in Excel direkt durch Makrocode suchen und ersetzen. In diesem Artikel erfahren Sie, wie Sie einen Makrocode erstellen, um Text in Excel zu finden und zu ersetzen.
Erstellen Sie einen Makrocode, um Text in Excel zu finden und zu ersetzen
Erstellen Sie einen Makrocode, um Text in Excel zu finden und zu ersetzen
Gehen Sie wie folgt vor, um einen Makrocode zu erstellen, mit dem Sie Text in Excel suchen und ersetzen können.
1. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Codefenster.
VBA-Code: Erstellen Sie einen Makrocode, um Text in Excel zu finden und zu ersetzen
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. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes.
4. Im ersten Kutools for Excel Geben Sie im Dialogfeld den Text oder Wert ein, den Sie suchen möchten, und klicken Sie dann auf OK Taste. Siehe Screenshot:
5. In dieser Sekunde Kutools for Excel Geben Sie im Dialogfeld den Text oder Wert ein, den Sie ersetzen möchten, und klicken Sie auf OK .
Dann werden alle angegebenen Texte sofort durch Ihren gewünschten Text ersetzt.
Note: Dieser Code wird auf das aktive Arbeitsblatt angewendet.
In Verbindung stehende Artikel:
- Wie finde und ersetze ich alle leeren Zellen in Excel durch eine bestimmte Nummer oder einen bestimmten Text?
- Wie ersetze ich Kommas in Excel-Zellen durch Zeilenumbrüche (Alt + Eingabetaste)?
- Wie finde und ersetze Registerkartennamen in Excel?
- Wie finde ich einen Wert in einer Zelle mit einer durch Kommas getrennten Liste in Excel?
- Wie finde ich den Schnittpunkt zweier Spaltenlisten in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!