Hogyan lehet megkeresni és kicserélni a szöveget, majd megőrizni a formázást az Excelben?
 |
 |
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.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
