Hogyan lehet megkeresni és kicserélni a szöveget, majd megőrizni a formázást az Excelben?

A Keresés és csere funkció hatékony és hasznos, ha meg kell találnunk egy adott értéket, és cserélnünk kell egy másikra. De ha van cellatartomány, és egyes cellák eltérő formázási értékeket tartalmaznak. Ebben az esetben az érték megkeresése és cseréje a Keresés és csere funkcióval megszakítja az értékek formázását a cellákban, az alábbi képernyőképen látható módon. Hogyan tudjuk megőrizni az egyes cellákban lévő értékek formázását az Excel keresése és cseréje közben?

Keresse meg és cserélje le a formázás megőrzését makrókóddal

Keresse meg és cserélje le a formázás megőrzését makrókóddal

Nincs más módszer, de a makrokód segíthet a szöveg megtalálásában és cseréjében, valamint a formázás megőrzésében.

1. nyomja meg Alt + F11 billentyűk megnyitásához Microsoft Visual Basic alkalmazásokhoz ablak.

2. kettyenés betétlap > Modulok, és illessze be a kód alatt a szkriptbe.

VBA: Keresse meg és cserélje ki a formázás megőrzését

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

3. nyomja meg F5 gomb, megjelenik egy párbeszédpanel, ahol kiválaszthatja a keresendő és cserélhető tartományt, lásd a képernyőképet:

4. Kattintson az OK gombra, és a kiválasztott cellában lévő adott karakterlánc helyébe más lép, és megtartja a formázást.

típus: A kódban  KK a megtalálni kívánt karakterlánc, és Kutools az a karaktersorozat, amellyel fel akarja cserélni, szükség szerint megváltoztathatja őket.