Gå til hovedindhold

Hvordan finder jeg og erstatter tal med abonnement i Excel?

doc find erstat nummer sænket 1
I Excel kan du bruge funktionen Find og Erstat til at erstatte tal med hævet skriftformat, men det virker ikke, når du vil erstatte det med sænket skriftformat som vist nedenfor. Jeg har dog nogle tricks, som du kan introducere til hurtigt at håndtere dette spørgsmål i Excel.

Find og erstat alle numre med subscript af VBA

Find og erstat tal med subscript i kemiske formler af Kutools til Excel god idé3

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

doc find erstat nummer sænket 2

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:
doc find erstat nummer sænket 5

4. Når du har valgt, skal du klikke på OK, og alle numre i udvalget er blevet konverteret til at være subscript.
doc find erstat nummer sænket 1


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:
doc find erstat nummer sænket 3

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.
doc find erstat nummer sænket 4


Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

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...

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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations