Hoe vind en vervang ik meerdere waarden tegelijk in Excel?
Zoals we allemaal weten, kunnen we de functie Zoeken en vervangen gebruiken om meerdere dezelfde cel te vinden en deze te vervangen door een waarde die u nodig heeft. Maar soms moet u veel-op-veel-vervanging tegelijkertijd toepassen. Ik heb bijvoorbeeld een reeks gegevens en nu wil ik alle appels vervangen door rode appels, sinaasappels in groene sinaasappels, bananen in gele bananen enzovoort, zoals in de volgende schermafbeeldingen, heb je goede idee毛n om deze taak op te lossen in Excel?
Zoek en vervang meerdere waarden tegelijk met VBA-code
Als u het zoeken en vervangen van de waarden keer op keer beu bent, kan de volgende VBA-code u helpen om meerdere waarden tegelijk te vervangen door uw benodigde teksten.
1. Cre毛er uw voorwaarden die u wilt gebruiken, die de originele waarden en nieuwe waarden bevatten. Zie screenshot:
2. Houd vervolgens de ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.
3. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.
VBA-code: zoek en vervang 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 F5 sleutel om deze code uit te voeren, geef in het uitgeklapte promptvenster het gegevensbereik op waarvan u de waarden wilt vervangen door nieuwe waarden.
5. Klikken OK, en een ander promptvenster wordt weergegeven om u eraan te herinneren dat u de criteria selecteert die u in stap 1 hebt gemaakt. Zie screenshot:
6. Dan klikken OK, zijn alle specifieke waarden vervangen door de nieuwe waarden die u onmiddellijk nodig hebt.
Gerelateerde artikelen:
Hoe specifieke tekst in tekstvakken zoeken en vervangen?
Hoe tekst in diagramtitels in Excel zoeken en vervangen?
Hoe tekst in opmerkingen in Excel te zoeken en te vervangen?
Hoe verander ik meerdere hyperlinkpaden tegelijk in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!