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

---

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.

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.

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.

---

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.

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:

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:

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:

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

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

Nu er alle de understregede tekster valgt.

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.