Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment rechercher et remplacer du texte, puis conserver le formatage dans Excel?

doc trouver remplacer conserver le format 1
doc trouver remplacer conserver le format 2
La fonction Rechercher et remplacer est puissante et utile lorsque nous devons trouver une valeur spécifique et la remplacer par une autre. Mais s'il y a une plage de cellules, certaines cellules contiennent des valeurs de formatage différentes. Dans ce cas, pour trouver et remplacer la valeur par la fonction Rechercher et Remplacer va casser la mise en forme des valeurs dans les cellules comme ci-dessous capture d'écran, comment pouvons-nous préserver la mise en forme des valeurs dans chaque cellule lors de la recherche et le remplacement dans Excel?

Rechercher et remplacer la mise en forme avec le code de macro

nousVolet de navigation - Rechercher et remplacer

Kutools for Excelest avancé Rechercher et remplacer fonction, peut vous aider à trouver et
remplacez une valeur sur plusieurs feuilles et classeurs.
doc trouver et remplacer

flèche bleue droite bulle Rechercher et remplacer la mise en forme avec le code de macro


Il n'y a pas d'autres méthodes mais le code macro peut vous aider à trouver et remplacer du texte et à préserver le formatage.

1. presse Alt + F11 clés pour ouvrir le Microsoft Visual Basic pour l'application fenêtre.

2. Cliquez insérer > Module, et collez ci-dessous le code au script.

VBA: Rechercher et remplacer la mise en forme de préservation

Sub CharactersReplace(Rng As Range, FindText As String, ReplaceText As String, Optional MatchCase As Boolean = False)
  'UpdatebyExtendoffice20160711
    Dim I As Long
    Dim xLenFind As Long
    Dim xLenRep As Long
    Dim K As Long
    Dim xValue As String
    Dim M As Long
    Dim xCell As Range
    xLenFind = Len(FindText)
    xLenRep = Len(ReplaceText)
    If Not MatchCase Then M = 1
    For Each xCell In Rng
        If VarType(xCell) = vbString Then
            xValue = xCell.Value
            K = 0
            For I = 1 To Len(xValue)
              If StrComp(Mid$(xValue, I, xLenFind), FindText, M) = 0 Then
                xCell.Characters(I + K, xLenFind).Insert ReplaceText
                K = K + xLenRep - xLenFind
              End If
            Next
        End If
    Next
End Sub

Sub Test_CharactersReplace()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Call CharactersReplace(xRg, "KK", "Kutools", True)
End Sub

doc trouver remplacer conserver le format 5

3. presse F5 touche, une boîte de dialogue apparaît pour vous permettre de sélectionner une plage à rechercher et à remplacer, voir capture d'écran:
doc trouver remplacer conserver le format 6

4. Cliquez sur OK, et la chaîne spécifique dans la cellule sélectionnée sont remplacer par d'autres et conserver la mise en forme.
doc trouver remplacer conserver le format 4

Pointe: Dans le code, KK est la chaîne que vous voulez trouver, et Kutools est la chaîne que vous voulez remplacer, vous pouvez les changer selon vos besoins.

doc télécharger 1



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.