Hur hittar jag och ersätter nummer med prenumeration i Excel?
Hitta och ersätt alla nummer med prenumeration av VBA
Hitta och ersätt siffror med prenumeration i kemiska formler av Kutools för Excel
Hitta och ersätt alla nummer med prenumeration av VBA
I Excel, förutom för makrokod, finns det ingen metod som kan hjälpa dig att hitta och ersätta text med prenumerationsformat.
1. Tryck Alt + F11 för att visa Microsoft Visual Basic för applikationer fönster.
2. klick Insert > Modulernaoch klistra in under koden i det tomma skriptet.
VBA: Hitta och ersätt alla nummer med prenumerationsformat
Sub SubscriptNumbers()
'UpdatebyExtendoffice20160705
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim I As Long
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
Application.ScreenUpdating = False
For Each xCell In xRg
xTxt = xCell.Value
For I = 1 To Len(xTxt)
xChar = Mid(xTxt, I, 1)
If xChar >= "0" And xChar <= "9" Then
xCell.Characters(I, 1).Font.Subscript = True
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3. Tryck F5 nyckel, a Kutools för Excel dialogrutan dyker upp för att påminna dig om att du väljer ett arbetsområde. Se skärmdump:
4. När du har valt klickar du på OK, och alla siffror i urvalet har konverterats till att vara prenumerera.
Hitta och ersätt siffror med prenumeration i kemiska formler av Kutools för Excel
Utöver makrokoden kan du faktiskt använda ett enkelt verktyg som kallas Prenumerationsnummer i kemiska formler för att snabbt konvertera alla normala siffror i kemiska formler till prenumerationsformat om du har installerat Kutools för Excel.
Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. |
Efter gratis installation Kutools för Excel, gör så här:
Markera de celler som du vill formatera siffrorna som prenumeration, klicka på Kutools > text > Prenumerationsnummer i kemiska formler. Se skärmdump:
Och en dialog dyker upp för att påminna dig om hur många celler som har konverterats och siffrorna i valda kemiska formler har formaterats som abonnemangsformat.
Konvertera nummer till prenumeration i kemisk formel
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!