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

Hvordan finder jeg alle understregede tekster i et interval eller et hel regneark i Excel?

Antag at du har en række data i et regneark, og nogle af dataene er med understregning, og nu vil du finde ud af disse data med understregning, hvordan kan du hurtigt finde ud af dem? Her introducerer jeg nogle tricks til dig for hurtigt at finde ud af de understregede tekster i et interval eller et hel regneark i Excel.

Find alle understregede tekster i et regneark med VBA

Find alle understregede tekster i et interval eller regneark med Kutools til Excel god idé3


pil blå højre boble Find alle understregede tekster i et regneark med VBA

I Excel kan du ikke bruge Gå til speciel funktion til at finde ud af de understregede tekster, så jeg introducerer en VBA-kode for at hjælpe dig med at finde alle understregede tekster i et regneark.

1. Trykke Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue og klik indsatte > Moduler.

2. I popping Moduler vindue, indsæt under VBA-kode.

VBA: Find al understreget tekst i et regneark.

Sub SearchForUnderline()
'Updateby20150910
    Dim Rg As Range, Rg1 As Range
    Dim I As Long
    Dim xAddress As String, xAddress1 As String, xAddress2 As String
    Dim Result As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Application.ActiveSheet.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Rg.SpecialCells(xlCellTypeConstants)
    If Rg Is Nothing Then Exit Sub
    For Each Rg1 In Rg
        For I = 1 To Len(Rg1)
            If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleSingle Then
                If xAddress1 = "" Then
                    xAddress1 = Rg1.Address
                Else
                    xAddress1 = xAddress1 & ", " & Rg1.Address
                End If
                Exit For
            End If
        Next
        For I = 1 To Len(Rg1)
            If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleDouble Then
                If xAddress2 = "" Then
                    xAddress2 = Rg1.Address
                Else
                    xAddress2 = xAddress2 & ", " & Rg1.Address
                End If
                Exit For
            End If
        Next
    Next
    If xAddress1 <> "" Then Result = "Single underline address:" & vbCr & xAddress1 & vbCr & vbCr
    If xAddress2 <> "" Then Result = Result & "Double underline address:" & vbCr & xAddress2
    If Result <> "" Then MsgBox Result
End Sub

3. klik Kør knappen eller tryk på F5 nøgle. Og der vises en dialogboks for at vælge et interval for at finde understregede tekster.

doc find understreget tekst 1

4. klik OK, så vises der en dialogboks, der fortæller dig, hvilke celler der er enkelt understregede tekster, og hvilke der er dobbelt understregede tekster.

doc find understreget tekst 2

Hvis du bare vil finde ud af en type understregede tekster i et bestemt interval, kan denne VBA-kode ikke hjælpe dig, men du kan bruge nedenstående praktiske værktøj til at løse denne opgave i dette tilfælde.


pil blå højre boble Find alle understregede tekster i et interval eller regneark med Kutools til Excel

Hvis du har Kutools til Excel installeret, kan du anvende Vælg celler med format værktøj til hurtigt at finde ud af de understregede tekster i en række af et helt regneark.

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:

1. Vælg en tom celle, og skriv derefter data i den, f.eks. A1, og klik Forside > Understreget, og vælg en type understregning, du har brug for. Se skærmbillede:

doc find understreget tekst 3

2. Vælg derefter det område, du vil finde ud af de specifikke understregede tekster, og klik på Kutools > Type > Vælg celler med format. Se skærmbillede:

doc find understreget tekst 4

3. Og i Vælg celler med format dialog, klik Vælg Format fra celle for at vælge den celle, du formaterer med understregning i trin 1. Se skærmbillede:

doc find understreget tekst 5
doc find understreget tekst 6

4. klik OK, og i Vælg celler med format dialog, tjek Understreget kun. Se skærmbillede:

doc find understreget tekst 7

5. klik Ok, så vises en dialogboks for at minde dig om, hvor mange understregede tekster der er valgt, klik Ja at lukke det.

doc find understreget tekst 8

Nu er alle de understregede tekster valgt.

doc find understreget tekst 9

tips:

1. Hvis du vil finde ud af alle understregede tekster i et helt regneark, skal du klikke på venstre hjørne af regnearket for at vælge hele regnearket og derefter anvende Vælg celler med format nytte.

2. Kontrollere Ignorer de tomme celler in Vælg celler med format dialog, ignorerer det de tomme celler, selvom de tomme celler er formateret med understregning.


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
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

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