Kako najti in zamenjati besedilo, nato pa ohraniti oblikovanje v Excelu?
 |
 |
Poiščite in nadomestite oblikovanje rezerv z makro kodo
Poiščite in nadomestite oblikovanje rezerv z makro kodo
Drugih metod ni, toda makro koda vam lahko pomaga najti in zamenjati besedilo ter ohraniti oblikovanje.
1. Pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za uporabo okno.
2. klik Vstavi > Moduliin prilepite spodnjo kodo v skript.
VBA: Poiščite in zamenjajte ohranjeno oblikovanje
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. Pritisnite F5 tipka, odpre se pogovorno okno za izbiro obsega, ki ga želite najti in zamenjati, glejte posnetek zaslona:
4. Kliknite V redu in določen niz v izbrani celici se nadomesti z drugim in ohrani oblikovanje.
Nasvet: V kodi, KK je niz, ki ga želite najti, in Kutools je niz, ki ga želite zamenjati, jih lahko spremenite po potrebi.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
