Ga naar hoofdinhoud

Hoe vind en vervang ik meerdere waarden tegelijk in Excel?

doc meervoudig zoeken vervang 1

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

pijl blauw rechts bel 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:

doc meervoudig zoeken vervang 2

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.

doc meervoudig zoeken vervang 3

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:

doc meervoudig zoeken vervang 4

6. Dan klikken OK, zijn alle specifieke waarden vervangen door de nieuwe waarden die u onmiddellijk nodig hebt.

doc meervoudig zoeken vervang 5

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

馃 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup  |   VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk   |  Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen   |  Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets:  12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

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...

Omschrijving

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!

 

Comments (136)
No ratings yet. Be the first to rate!
Chuaser
Chuaser
This comment was minimized by the moderator on the site
Sub MultiFindNReplace()
'Actualizar 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
Reply
0
0
John Pico
John Pico
This comment was minimized by the moderator on the site
amigo este post tiene como 8 a帽os pero funciona, que buen aporte para los que no sabemos excel
Reply
0
0
Bruno
Bruno
This comment was minimized by the moderator on the site
Dei uma modificada no c贸digo, e no meu caso, as refer锚ncias de c茅lulas s茫o est谩ticas:

Sub MetodoReplace()

Dim rng As Range, xTitleId As String
Dim inputRng As Range, replaceRng As Range

Application.ScreenUpdating = False

xTitleId = "Metodo Replace"
Set inputRng = Range("A1").CurrentRegion.Offset(1, 0)
Set inputRng = Application.InputBox("Original range:", xTitleId, inputRng.Range("A1").CurrentRegion.Address, _
Type:=8)
Set replaceRng = Application.InputBox("Reaplicar Range:", xTitleId, inputRng.Range("C2").CurrentRegion.Address, _
Type:=8)

For Each rng In replaceRng.Columns(1).Cells
inputRng.Replace What:=rng.Value, Replacement:=rng.Offset(0, 1).Value
Next

Application.ScreenUpdating = True
Reply
0
0
袠胁邪薪
袠胁邪薪
This comment was minimized by the moderator on the site
袘谢邪谐芯写邪褉褞 蟹邪 褝泻芯薪芯屑懈褞 屑芯械谐芯 胁褉械屑械薪懈! 校褋锌械褏芯胁!
Reply
0
0
Alex
Alex
This comment was minimized by the moderator on the site
Hallo,

ich w眉rde gerne den Text in den Tabellen des Jahresabschlusses automatisch von Deutsch ins Englische 眉bersetzen.
Dazu habe ich eine Excel Arbeitsmappe in welchem die 脺bersetzungstabelle "Ersatz" enthalten ist und in den folgenden Tabellenbl盲ttern die verschiedenen Tabellen wie zb. die Konzernbilanz, GuV, Geldflussrechnung etc.
Dazu habe ich ihren Code versucht zu transformieren. Die 脺bersetzung erfolgt im Grunde auch, aber zb. Verm枚gen - Assets; Finanzielle Verm枚genswerte - Financial Assets wird nicht korrekt 眉bersetzt, die Finanziellen Verm枚genswerte 眉bersetzt es als "Financial Assetswerte". auch in thousands EUR wir offensichtlich mit USA kombiniert.

Hier der Code (meine VBA Kenntnisse sind nur sehr minimalistisch):
Sub MultiFindNReplace2()
'Updateby Alex
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
Dim Ws As Worksheet

Set Ws = Worksheets("Konzernbilanz")
Set Ws = Worksheets("Konzerngesamtergebnis")
Set Ws = Worksheets("Konzerneigenkapitalspiegel")
Set Ws = Worksheets("Konzerngeldfluss")
Set InputRng = Ws.Range("D:Z")

Set Ws = Worksheets("Ersatz")
Set ReplaceRng = Ws.Range("A:B")

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

Evtl. haben sie auch eine Idee wie ich dem Programm sagen kann, dass alle Tabellenbl盲tter 眉bersetzt werden m眉ssen, au脽er nat眉rlich die Tabelle "Ersatz".

Vielen Dank

Sg
Alex
Reply
0
0
Roman
Roman
This comment was minimized by the moderator on the site
Buenas !

Sabe alguien si se puede ejecutar en varias hojas de un mismo excel simultaneamente ?


Muchas gracias !!!
Reply
0
0
skyyang
skyyang     Roman
This comment was minimized by the moderator on the site
Hello, Roman,
If you want to find and replace in multiple worksheets, the following VBA code may do you a favor.
Note: Sheet1, Sheet2 are the sheet names that you want to find and replace values from, please separate the sheet names by comma; A1:AA100is the original data range you want to replace the specific values.
Sub MultiFindNReplace()
'Updateby Extendoffice
Dim xArrSh()
Dim Rng As Range
Dim xStrRgAddress As String
Dim InputRng As Range, ReplaceRng As Range
Dim xCells As Range
Dim xWSHs As Sheets
Dim xWSh As Worksheet
xArrSh = Array("Sheet1", "Sheet2") 'The sheet names, please separate the sheet names by comma
xStrRgAddress = "A1:AA100" 'the original data range you want to replace
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
If ReplaceRng Is Nothing Then Exit Sub
Set xWSHs = Application.ActiveWorkbook.Worksheets
Application.ScreenUpdating = False
For xI = 0 To UBound(xArrSh)
Set xWSh = xWSHs(xArrSh(xI))
Set xCells = xWSh.Range(xStrRgAddress)
For Each Rng In ReplaceRng.Columns(1).Cells
    xCells.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Next
Application.ScreenUpdating = True
End Sub


After inserting the code, run this code, and a prompt box will pop up, select the original data and new data you want to find and replace with. see screenshot:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-multiple-find-replace.png

Please try, hope it can help you!
Reply
Report
0
0
Rosemar
Rosemar
This comment was minimized by the moderator on the site
Ol谩 amigos o c贸digo 茅 interessante porem n茫o consegui que funciona-se ficarei muito grato se algu茅m se dispor a ajuda tenho certeza que ser谩 煤til para outras pessoas.
exemplo:
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 20 21 22 23 25
tenho esses n煤meros em uma linha
2 4 5 9 10 11 12 14 15 17 18 20 21 22 25
2 3 4 5 6 8 9 10 11 16 17 18 20 22 23
2 3 4 5 6 7 8 10 11 12 14 15 16 21 22
2 3 4 7 8 10 11 13 14 15 17 20 22 23 25
2 3 8 9 10 11 12 13 14 16 18 20 21 23 25
2 5 6 7 8 9 11 12 13 15 17 18 21 22 23
3 4 6 7 9 11 12 14 15 16 17 18 20 23 25
2 3 4 6 7 8 9 13 14 16 17 18 21 22 25
3 5 6 10 13 14 15 16 17 18 20 21 22 23 25
2 4 5 6 7 8 9 10 12 13 15 16 17 20 25
e esse grupo em outras porem preciso localizar e substituir e criar vinculo das c茅lulas com seus respectivos n煤meros
exemplo: 02 com 02, 03 com 03, 04 com 04
att: Rosemar
Reply
Report
0
0
MandyZhou
MandyZhou     Rosemar
This comment was minimized by the moderator on the site
Hello friend,

Sorry to hear that. Your situation is different from the example in the article. Our VBA code can only replace the original values with the value you define. It can't create a link between the cells with their respective numbers. Sorry for that. Have a nice day.

Sincerely,
Mandy
Reply
Report
0
0
Kaiser
Kaiser
This comment was minimized by the moderator on the site
Bonjour,
merci pour votre support. Cela r茅pond presque 脿 mon besoin.Par contre, comment faire quand la m锚me valeur se trouve dans "Origine value" et "Replacing value" car la valeur modifi茅e redevient la valeur d'origine ?Exemple : Origine value    ->    Replacing value
 
13h - 21h  ->  5h - 13h
8h - 16h   -> 10h - 18h
10h - 18h  ->  8h - 16h

Merci par avance pour votre aide
Reply
Report
0
0
Cado
Cado
This comment was minimized by the moderator on the site
hello can we change also color ?  ex : i wanna change apple to red apple with the red filled cell
Reply
0
0
qill
qill
This comment was minimized by the moderator on the site
Is this method can be use if between sentence in a cell?e.g I want to change numbers between the line : abcdefghi 12345 jklmnopqrstu >>> abcdefghi 67891 jklmnopqrstu

if no is there any other method can be use? Please help. Thank you!
Reply
0
0
skyyang
skyyang     qill
This comment was minimized by the moderator on the site
Hello, qill,The code in this article can finish your problem, please try, thank you!

Reply
Report
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
脳
Rate this post:
Reset
0   Characters
Suggested Locations