Hvordan finder jeg og erstatter tal med abonnement i Excel?

I Excel kan du bruge funktionen Find og erstat til at erstatte nummer med superscript-format, men det fungerer ikke, når du vil erstatte med subscript-format som vist nedenstående skærmbillede. Jeg har dog nogle tricks, der kan introducere, så du hurtigt kan håndtere dette spørgsmål i Excel.

Find og erstat alle numre med abonnement af VBA

Find og erstat tal med abonnement i kemiske formler af Kutools til Excel

Find og erstat alle numre med abonnement af VBA

I Excel, undtagen til makrokode, er der ingen metode, der kan hjælpe dig med at finde og erstatte tekst med abonnementsformat.

1. Trykke Alt + F11 tast, der skal vises Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler, og indsæt nedenunder kode i det tomme script.

VBA: Find og erstat alle numre med abonnementsformat

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, a Kutools til Excel dialog vises, 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 numrene i markeringen er konverteret til at være abonnement.

Find og erstat tal med abonnement i kemiske formler af Kutools til Excel

Ud over makrokoden kan du faktisk anvende et let værktøj kaldet Abonnementsnumre i kemiske formler for hurtigt at konvertere alle normale tal i kemiske formler til abonnementsformat, hvis du har installeret Kutools til Excel.

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

Vælg de celler, du vil formatere numrene som abonnement, klik på Kutools > tekst > Abonnementsnumre i kemiske formler. Se skærmbillede:

Og der vises en dialog for at minde dig om, hvor mange celler der er konverteret, og tallene i udvalgte kemiske formler er formateret som abonnementsformat.

  Konverter nummer til abonnement i kemisk formel

---

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

• Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
• Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
• Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
• Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
• Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
• Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
• Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
• Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
• Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Læs mere ... Gratis download... Køb... 

---

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!

Læs mere ... Gratis download... Køb...