Hoe helpt Zoeken en Vervangen u om meerdere waarden tegelijk in Excel te vervangen?
Zoals we allemaal weten, kan de Zoeken en Vervangen-functie worden gebruikt om meerdere identieke cellen te lokaliseren en deze te vervangen door een opgegeven waarde. Soms moet u echter tegelijkertijd veel-op-veel-vervangingen uitvoeren. Stel bijvoorbeeld dat ik een bereik met gegevens heb en nu alle appels wil vervangen door rode appels, sinaasappels door groene sinaasappels, bananen door gele bananen, enzovoort, zoals op de linker screenshot is weergegeven. Heeft u effectieve methoden om deze taak in Excel uit te voeren?
Zoeken en Vervangen meerdere waarden tegelijk met VBA-code
Bent u het beu om waarden steeds opnieuw handmatig te zoeken en te vervangen? Dan helpt de volgende VBA-code u om meerdere waarden tegelijkertijd te vervangen door de gewenste teksten.
1. Stel eerst uw voorwaarden in met de oorspronkelijke waarden en de nieuwe waarden die u wilt toepassen. Zie de screenshot:
2. Druk daarna op "ALT" + "F11" om het venster Microsoft Visual Basic for Applications te openen.
3. Klik op 'Invoegen' > 'Module' en plak de volgende code in het modulevenster.
VBA-code: Zoeken en Vervangen meerdere waarden tegelijk
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. Druk vervolgens op de toets F5 om de code uit te voeren. Geef in het verschijnende dialoogvenster het gegevensbereik op waarin u de waarden wilt vervangen door nieuwe waarden.
5. Klik op 'OK'. Er verschijnt een nieuw dialoogvenster waarin u de criteria kunt selecteren die u in stap 1 hebt ingesteld. Zie de screenshot:
6. Klik daarna op 'OK'. Alle opgegeven waarden zijn nu, zoals gewenst, vervangen door de nieuwe waarden.
Gerelateerde artikelen:
Hoe Zoeken en Vervangen u specifieke tekst in Tekstvak?
Hoe gebruikt u Zoeken en Vervangen om tekst in grafiektitels in Excel te wijzigen?
Hoe Zoeken en Vervangen u tekst binnen opmerkingen in Excel?
Hoe wijzigt u meerdere hyperlinkpaden tegelijk in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins