Hoe nummers zoeken en vervangen door subscript in Excel?
Zoek en vervang alle nummers met subscript door VBA
Zoek en vervang nummers met subscript in chemische formules door Kutools voor Excel
Zoek en vervang alle nummers met subscript door VBA
In Excel, behalve macrocode, is er geen methode die u kan helpen bij het zoeken en vervangen van tekst met een subscript-indeling.
1. druk op Alt + F11 toets om weer te geven Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Moduleen plak onderstaande code in het lege script.
VBA: zoek en vervang alle nummers met een subscript-indeling
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. druk op F5 sleutel, een Kutools for Excel dialoogvenster verschijnt om u eraan te herinneren een werkbereik te selecteren. Zie screenshot:
4. Klik na het selecteren op OK, en alle nummers in de selectie zijn geconverteerd naar subscript.
Zoek en vervang nummers met subscript in chemische formules door Kutools voor Excel
Naast macrocode kunt u eigenlijk een eenvoudig hulpprogramma toepassen met de naam Subscriptnummers in chemische formules om snel alle normale getallen in chemische formules om te zetten naar subscript-indeling als je deze hebt geïnstalleerd Kutools for Excel.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
Na gratis installeren Kutools voor Excel, doe het als volgt:
Selecteer de cellen waarvan u de nummers als subscript wilt opmaken, klik op Kutools > Tekst > Subscriptnummers in chemische formules. Zie screenshot:
En er verschijnt een dialoogvenster om u eraan te herinneren hoeveel cellen zijn geconverteerd en de getallen in geselecteerde chemische formules zijn opgemaakt als subscript-indeling.
Converteer getal naar subscript in chemische formule
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!