Ինչպե՞ս գտնել և փոխարինել տեքստը, այնուհետև պահպանել ձևաչափումը Excel- ում:
Գտեք և փոխարինեք պահպանման ձևաչափումը մակրո կոդով
Գտեք և փոխարինեք պահպանման ձևաչափումը մակրո կոդով
Այլ մեթոդներ չկան, բայց մակրո ծածկագիրը կարող է օգնել ձեզ գտնել և փոխարինել տեքստը և պահպանել ձևաչափումը:
1. Մամուլ Alt + F11 բացել ստեղները Microsoft Visual Basic կիրառման համար պատուհան.
2: սեղմեք Տեղադրել > Մոդուլներ, և ներքևում տեղադրեք կոդը սցենարում:
VBA. Գտեք և փոխարինեք պահպանման ձևաչափումը
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. Մամուլ F5 ստեղնը, երկխոսություն է դուրս գալիս, որպեսզի ընտրեք մի շարք ՝ գտնելու և փոխարինելու համար, տես նկարի նկարը.
4. Կտտացրեք OK- ին, և ընտրված բջիջի հատուկ տողը փոխարինվում են այլով և պահում ձևաչափումը:
ԱկնարկԿոդում, KK այն լարն է, որը ցանկանում եք գտնել, և Կուտոլս այն տողն է, որով ցանկանում եք փոխարինել, կարող եք փոխել դրանք, որքան ձեզ հարկավոր է:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: