Comment créer un code macro pour rechercher et remplacer du texte dans Excel?
Normalement, nous utilisons la fonction intégrée Rechercher et remplacer pour rechercher et remplacer des valeurs dans Excel. En fait, vous pouvez rechercher et remplacer du texte dans Excel directement avec du code macro. Dans cet article, vous apprendrez à créer un code de macro pour rechercher et remplacer du texte dans Excel.
Créez un code de macro pour rechercher et remplacer du texte dans Excel
Créez un code de macro pour rechercher et remplacer du texte dans Excel
Veuillez procéder comme suit pour créer un code de macro pour rechercher et remplacer du texte dans Excel.
1. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Copiez ensuite le code VBA ci-dessous dans la fenêtre de code.
Code VBA: créez un code macro pour rechercher et remplacer du texte dans 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 Sub3. appuie sur le F5 clé pour exécuter le code.
4. Dans le premier Kutools for Excel boîte de dialogue, entrez le texte ou la valeur que vous recherchez, puis cliquez sur le bouton OK bouton. Voir la capture d'écran:
5. Dans le second Kutools for Excel boîte de dialogue, entrez le texte ou la valeur que vous allez remplacer et cliquez sur le OK .
Ensuite, tous les textes spécifiés sont immédiatement remplacés par le texte souhaité.
Notes: Ce code est appliqué à la feuille de calcul active.
Articles Liés:
- Comment trouver et remplacer toutes les cellules vides par un certain nombre ou du texte dans Excel?
- Comment remplacer les virgules par des nouvelles lignes (Alt + Entrée) dans les cellules dans Excel?
- Comment trouver et remplacer les noms d'onglets de feuille dans Excel?
- Comment trouver une valeur dans une cellule avec une liste séparée par des virgules dans Excel?
- Comment trouver l'intersection de deux listes de colonnes dans Excel?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
