Hoe maak je een macrocode om tekst te zoeken en vervangen in Excel?

Normaal gesproken gebruiken we de ingebouwde functie Zoeken en Vervangen om waarden te doorzoeken en te vervangen in Excel. Eigenlijk kun je rechtstreeks tekst zoeken en vervangen in Excel met behulp van macrocode. In dit artikel leer je hoe je een macrocode kunt maken om tekst te zoeken en te vervangen in Excel.

Maak een macrocode om tekst te zoeken en te vervangen in Excel

Maak een macrocode om tekst te zoeken en te vervangen in Excel

Volg de volgende stappen om een macrocode te maken om tekst te zoeken en te vervangen in Excel.

1. Druk op de toetsen Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het codevenster.

VBA-code: Maak een macrocode om tekst te zoeken en te vervangen in Excel

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. Druk op de F5-toets om de code uit te voeren.

4. Voer in het eerste dialoogvenster van Kutools voor Excel de tekst of waarde in die je wilt zoeken en klik vervolgens op de knop OK. Zie screenshot:

5. Voer in het tweede dialoogvenster van Kutools voor Excel de tekst of waarde in die je wilt vervangen en klik op de knop OK.

Alle opgegeven teksten worden onmiddellijk vervangen door de gewenste tekst.

Opmerking: Deze code is van toepassing op het actieve werkblad.

Gerelateerde artikelen:

• Hoe alle lege cellen te vinden en te vervangen door een bepaald getal of tekst in Excel?
• Hoe komma's te vervangen door nieuwe regels (Alt + Enter) in cellen in Excel?
• Hoe de namen van sheet-tabbladen te vinden en te vervangen in Excel?
• Hoe een waarde te vinden in een cel met een door komma's gescheiden lijst in Excel?
• Hoe het snijpunt van twee kolomlijsten te vinden in Excel?