Hogyan lehet gyorsan megtalálni és kicserélni a karaktert felső indexre az Excelben?
Keresse meg és cserélje le a felső indexre a Keresés és csere funkcióval
Keresse meg és cserélje le a VBA felső indexével
Keresse meg és cserélje le a felső indexre a Keresés és csere funkcióval
Tulajdonképpen a Keresés és a Csere funkcióval megkeresheti a szöveget, majd lecserélheti a felső index formátumra.
1. Válassza ki azt a tartományt, amelyre a munkát szeretné helyettesíteni, és nyomja meg a gombot Ctrl + H megnyitni Keresés és csere párbeszéd.
2. Ban,-ben Keresés és csere párbeszédpanelen kattintson a gombra Cserélje fülre, majd írja be a kívánt szöveget a Mit keres szövegdoboz. Lásd a képernyőképet:
3. Akkor menj Cserélje ki szövegmezőbe írja be a cserélni kívánt szöveget, vegye figyelembe, tartsa lenyomva más gombot, majd nyomja meg a gombot 0179 gombok a Számtábla a 3. felső index beírásához. Lásd a képernyőképet:
4. kettyenés Az összes cseréje. És megjelenik egy párbeszédpanel, amely emlékezteti Önt, hogy hány cserét hajtottak végre. Lásd a képernyőképet:
Tipp: De ezzel a módszerrel a 2-es számot csak a 0178, a 3-at pedig 0179 megnyomásával lehet felülírni.
Keresse meg és cserélje le a VBA felső indexével
A Keresés és csere funkcióval a szám csak felső indexre cserélhető. Ha a betűt felső indexre kívánja cserélni, ahogy az alábbi képernyőképen látható, akkor VBA kódot alkalmazhat a megoldáshoz.
1. nyomja meg Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modulok, és illessze be a VBA kód alá a szkriptbe.
VBA: Keresse meg és cserélje le felső indexű formátumra
Sub DoConvert()
'UpdatebyExtendoffice20160705
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
For Each xCell In xRg
If xCell.Value = "YL3" Then
xCell.Characters(1, 1).Font.Superscript = True
End If
Next
End Sub
3. nyomja meg F5 gombot a kód futtatásához, és megjelenik egy párbeszédpanel, amely emlékeztet egy tartomány kiválasztására. Lásd a képernyőképet:
4. kettyenés OK, a konkrét karakterlánc egy adott karakterláncban felső index formátumúra lett konvertálva a kijelölésben. Lásd a képernyőképet:
típus: a kódban:YL3”Az a karakterlánc, amelyből meg akarja találni, és (1, 1) azt jelzi, hogy a karakterlánc első 1 karakterét konvertálja, ha az első két karaktert konvertálni kívánja, akkor megváltoztathatja (1, 2) -ként, ha 1 karaktert szeretne átalakítani a karakterlánc második karakteréből, akkor ( 2, 1).
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!