Note: The other languages of the website are Google-translated. Back to English

Hvordan finder jeg og erstatter tal med abonnement i Excel?

doc find erstat nummer abonnement 1
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 god idé3

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

doc find erstat nummer abonnement 2

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:
doc find erstat nummer abonnement 5

4. Når du har valgt, skal du klikke på OK, og alle numrene i markeringen er konverteret til at være abonnement.
doc find erstat nummer abonnement 1


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.

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 numrene som abonnement, klik på Kutools > tekst > Abonnementsnumre i kemiske formler. Se skærmbillede:
doc find erstat nummer abonnement 3

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.
doc find erstat nummer abonnement 4



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.
kte-fane 201905

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!
officetab bund
Sorter kommentarer efter
Kommentarer (0)
Ingen vurderinger endnu. Vær den første til at bedømme!
Der er endnu ingen kommentarer her

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL