Hvordan finder jeg og erstatter tal med abonnement i Excel?
Find og erstat alle numre med subscript af VBA
Find og erstat tal med subscript i kemiske formler af Kutools til Excel
Find og erstat alle numre med subscript af VBA
I Excel, bortset fra makrokode, er der ingen metode, der kan hjælpe dig med at finde og erstatte tekst med sænket format.
1. Trykke Alt + F11 tasten for at vise Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, og indsæt nedenunder kode i det tomme script.
VBA: Find og erstat alle tal med sænket format
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. Trykke F5 nøgle, en Kutools til Excel dialogen dukker op for at minde dig om at vælge et arbejdsområde. Se skærmbillede:
4. Når du har valgt, skal du klikke på OK, og alle numre i udvalget er blevet konverteret til at være subscript.
Find og erstat tal med subscript i kemiske formler af Kutools til Excel
Ud over makrokode kan du faktisk anvende et nemt værktøj kaldet Abonnementsnumre i kemiske formler for hurtigt at konvertere alle normale tal i kemiske formler til subscript-format, hvis du har installeret Kutools til Excel.
| Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
Efter gratis installation Kutools til Excel, gør venligst som nedenfor:
Vælg de celler, du vil formatere tallene som sænket, klik Kutools > tekst > Abonnementsnumre i kemiske formler. Se skærmbillede:
Og en dialogboks dukker op for at minde dig om, hvor mange celler der er blevet konverteret, og tallene i udvalgte kemiske formler er blevet formateret som sænket format.
Konverter tal til underskrift i kemisk formel
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
