Note: The other languages of the website are Google-translated. Back to English

Wie finde und ersetze ich mehrere Werte gleichzeitig in Excel?

doc mehrfach finden ersetzen 1

Wie wir alle wissen, können wir die Funktion Suchen und Ersetzen verwenden, um mehrere gleiche Zellen zu finden und sie durch einen Wert zu ersetzen, den Sie benötigen. Aber manchmal müssen Sie viele-zu-viele-Ersetzungen gleichzeitig anwenden. Ich habe zum Beispiel eine Reihe von Daten und möchte jetzt alle Äpfel durch rote Äpfel, Orangen durch grüne Orangen, Bananen durch gelbe Bananen usw. ersetzen. Wie in den folgenden Screenshots gezeigt, haben Sie gute Ideen, um diese Aufgabe zu lösen Excel?

Suchen und ersetzen Sie mehrere Werte gleichzeitig durch VBA-Code


Pfeil blau rechte Blase Suchen und ersetzen Sie mehrere Werte gleichzeitig durch VBA-Code

Wenn Sie es leid sind, die Werte immer wieder zu finden und zu ersetzen, kann Ihnen der folgende VBA-Code helfen, mehrere Werte gleichzeitig durch Ihre benötigten Texte zu ersetzen.

1. Bitte erstellen Sie Ihre Bedingungen, die Sie verwenden möchten und die die ursprünglichen und neuen Werte enthalten. Siehe Screenshot:

doc mehrfach finden ersetzen 2

2. Dann halten Sie die ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.

3. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Suchen und ersetzen Sie mehrere Werte gleichzeitig

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. Dann drücken F5 Geben Sie im ausgeblendeten Eingabeaufforderungsfeld den Datenbereich an, in dem die Werte durch neue Werte ersetzt werden sollen.

doc mehrfach finden ersetzen 3

5. Klicken Sie OKund ein weiteres Eingabeaufforderungsfeld wird angezeigt, um Sie daran zu erinnern, die Kriterien auszuwählen, die Sie in Schritt 1 erstellt haben. Siehe Screenshot:

doc mehrfach finden ersetzen 4

6. Dann klick OKAlle spezifischen Werte wurden bei Bedarf sofort durch die neuen Werte ersetzt.

doc mehrfach finden ersetzen 5


In Verbindung stehende Artikel:

Wie finde und ersetze ich bestimmten Text in Textfeldern?

Wie finde und ersetze ich Text in Diagrammtiteln in Excel?

Wie finde und ersetze ich Text in Kommentaren in Excel?

Wie ändere ich mehrere Hyperlinkpfade gleichzeitig in Excel?

 


Die besten Tools für die Office-Produktivität

Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
kte tab 201905

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 täglich Hunderte von Mausklicks für Sie!
officetab unten

 

Kommentare (134)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das hat bei mir nicht funktioniert. Ich verwende Excel 2010. Es hat mich zur Eingabe des ursprünglichen Bereichs aufgefordert, und der neue Bereich ist dann ohne Meldungen fehlgeschlagen. Nichts wurde ersetzt. Ich werde weiter nach einer Möglichkeit suchen, dies zu tun.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Bitte ignorieren Sie meinen letzten Kommentar. Ich habe es falsch gemacht. Es hat gut funktioniert!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
[quote]Bitte ignorieren Sie meinen letzten Kommentar. Ich habe es falsch gemacht. Es hat gut funktioniert!Von KenLong[/quote] Bei mir funktioniert es nicht. Wie hast du es falsch gemacht. Ich habe null Ahnung von VBA.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe versucht, dieses Makro zu verwenden, um Messungen zu übersetzen. Zu übersetzende Zeile: Perlen messen ungefähr: 11/16 Zoll breit Ersatzwerte: 1/32 0,794 mm 1/16 1,588 mm . . . 11/16 17,463 mm . . . 1/1 25,400 mm Ergebniszeile: Ungefähres Maß der Perlen: 11,588 mm Zoll breit ist falsch Problem: Code verwendet Wert von 1/16 und ersetzt ihn Wie kann ich das beheben? (Wenn ich LookAt:=xlWhole in einem anderen Makro verwende, bekomme ich kein Ergebnis)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, danke. Kann ich die Groß-/Kleinschreibung beachten?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
OMG, ich bezeuge Jesus hier!!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe versucht, diesen Code zu verwenden, indem ich mehrere Zahlen durch entsprechenden Text ersetzt habe. Ich habe einen großen Datensatz, der von 1 -> 112000 reicht, aber wenn ich versuche, 1 in den entsprechenden Zeichenfolgenwert (z. B. Apple) umzuwandeln, wird dies in jede einzelne Ziffer 1 in der Spalte übersetzt. Daher wird 112000 als AppleAppleOrange000 ausgegeben. Gibt es in diesem Kutools-Prozess eine Möglichkeit, wie das Tool zum Suchen / Ersetzen in Excel, bestimmte Übereinstimmungsfälle zu finden / zu ersetzen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sie müssen den folgenden Parameter hinzufügen: MatchCase:=True Fügen Sie ihn also beispielsweise in die folgende Zeile ein: InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value, MatchCase:= True Dies findet und ersetzt nur Artikel, die MatchCase in dem von Ihnen ausgewählten Bereich enthalten.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Können Sie den Code umschreiben, um sicherzustellen, dass wir es richtig gemacht haben?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Es hat bei mir nicht funktioniert, helfen Sie bitte, den Code neu zu schreiben
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Möglichkeit, den Originalbereich standardmäßig auf „Tab1“ zu setzen!$4:$42
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Lief wie am Schnürchen! Vielen Dank für den Code und die detaillierten Anweisungen ... Sie haben meine zwei Tage gerettet ... Gott segne Sie!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
ORIGINALFORMAT: 1 Zoll ID X 2-1/2 Zoll AD X 40 Zoll Länge 1 Zoll ID X 2-1/2 Zoll AD X 10 Zoll Länge 1 Zoll ID X 2-1/2 Zoll AD X 20 Zoll Länge 1 Zoll ID X 2-1/2 Zoll OD X 10 Zoll Länge 9-1/2 Zoll ID X 14 Zoll OD X 12 Zoll Länge ERFORDERLICHES FORMAT: ID 1 x OD 2-1/2 x LG 40 Zoll ID 1 x OD 2- 1/2 x LG 10 IN ID 1 x OD 2-1/2 x LG 20 IN ID 1 x OD 2-1/2 x LG 10 IN ID 9-1/2 x OD 14 x LG 12 IN BITTE TEILEN SIE MIR DAS FORMULAR MIT DAS GEGEBENE BEISPIEL, WIE MAN DAS ORIGINALFORMAT IN DAS ERFORDERLICHE FORMAT IN EXCEL ERSETZEN KANN
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke hat mir geholfen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das Makro funktioniert nicht für exakte Übereinstimmung. Als gäbe es zwei Kategorien ABC und ABC 2. Suchen und ersetzen Sie ABC durch RRR und ABC 2 durch TTT, damit Macro ABC 2 in RRR 2 anstelle von TTT ändert.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ersetzen Sie zuerst ABC 2 durch TTT und dann ABC durch RRR
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Unter "Ursprünglicher Bereich" zeigen Sie $A$2:$A$10 an, was darauf hindeutet, dass es sich um ein einzelnes Blatt handelt. Wie kann ich hier die gesamte Arbeitsmappe auswählen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wow!!! Vielen Dank! Funktioniert wie ein Juwel.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funktioniert wie Charme! Vielen Dank :D (Y)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe den obigen Code verwendet, um Zahlen zu ersetzen, aber sowohl 11 als auch 1 werden ersetzt.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sub MultiFindNReplace() 'Update 20140722 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, lookat:=xlwhole Next Application.ScreenUpdating = True End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ja!! Vielen Dank für diesen Code, er hat wunderbar funktioniert
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dies funktioniert auch nicht, wenn versucht wird, eine Spalte mit numerischen Werten durch andere numerische Werte aus der Pivot-Tabelle zu ersetzen. Das ist, was ich bekomme, wenn ich versuche, Dinge in Excel-Spreadshit einfach zu automatisieren.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke. Es funktioniert großartig.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe das gleiche Problem, wenn 2 Namen ähnlich sind, z. B. wenn ich TEACHER durch 1 und TEACHER ASSIST durch 2 ersetzen wollte, würde es LEHRER durch 1 und TEACHER ASSIST durch 1 ASSIST ersetzen. Wie würde ich es bekommen, um den genauen Ausdruck zu ersetzen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank. Es war sehr nützlich und hat mir 1 Stunde Arbeit erspart
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe zwei Spalten, die erste Spalte ist eine Liste mit den Nummern 1 .... 1,2,3, ... Zweite Spalte mit einer Liste von Zeichenfolgen. Anstatt den Wert von 22,23 durch den Zeichenfolgenwert zu ersetzen. Es ersetzt es durch Zeichenfolgen von 12 und 1. Weiß jemand, wie man das sortiert?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe 3 Spalten wie unten, 1 Multimeter 2 Prüflampe 3 Ohmmeter 4 Widerstandstester 5 Fehlerschleife 12 RCD-Tester 24 Tragbarer RCD 13 Verlängerungskabel Die dritte Spalte hat die Nummer 1,2 ... 50. Es gibt etwa 36000 Zeilen. Es ersetzt 12 durch Werte aus den Zeilen 1 und 2 anstelle von 12. Weiß jemand, wie man das behebt?
Es sind noch keine Kommentare vorhanden
Mehr laden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte