Hvordan finne alle understreket tekster i en rekke eller hel regneark i Excel?

In Excel, kan du ikke bruke Go To Spesialfunksjon for å finne ut de understrekede tekster, så jeg introdusere en VBA-kode for å hjelpe deg å finne alle understreket tekst i et regneark.
Kutools for Excel: med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce 1. Trykk Alt + F11 tastene for å åpne Microsoft Visual Basic for Applications-vinduet, og klikk på Sett > Modulen.
To. I popping Module vinduet, lim under VBA-kode
VBA:.. Finn alt understreket tekst i et regneark
Sub SearchForUnderline () 'Updateby20150910 Dim Rg As Range, Rg1 As Range Dim jeg As Long Dim xAddress As String, xAddress1 As String, xAddress2 As String Dim Resultat As String On Error Resume Next xAddress = Application.ActiveWindow.RangeSelection.Address Set Rg = Application.InputBox ("Velg et område:", "Kutools for Excel", xAddress,,,, 8) Hvis Rg Er Nothing Then Exit Sub Sett Rg = Application.Intersect (Rg, Application.ActiveSheet.UsedRange) Hvis Rg Er Ingenting Deretter Exit Sub Set Rg = Rg.SpecialCells (xlCellTypeConstants) Hvis Rg Er Nothing Then Exit Sub For Hver Rg1 I Rg For I = 1 Til Len (Rg1) Hvis Rg1.Characters (I, 1) .Font.Underline = xlUnderlineStyleSingle Så hvis xAddress1 = "" Så xAddress1 = Rg1.Address Else xAddress1 = xAddress1 & "," &Co. Rg1.Address End If Exit For End If Neste For jeg = 1 Til Len (Rg1) Hvis Rg1.Characters (I, 1) .Font.Underline = xlUnderlineStyleDouble Så hvis xAddress2 = "" Så xAddress2 = Rg1.Address Else xAddress2 = xAddress2 & "," &Co. Rg1.Address End If Exit For End If Next Hvis xAddress1 < > "" Så Resultat = "Single understreking adresse:" & vbCr & xAddress1 & vbCr & vbCr Hvis xAddress2 < > "" Så Resultat = Resultat & "Double understreking adresse:" & vbCr & xAddress2 Hvis Resultat < > "" Then MsgBox ResultEnd Sub3. Klikk Kjør-knappen eller trykk F5-tasten. Og en dialog spretter ut for å velge et område for å finne understreket tekster.
4. Klikk OK, og en dialogboks vil komme ut for å fortelle deg hvilke celler er enkelt understrekede tekster, og som er dobbelt understreket tekster.
Hvis du bare ønsker å finne ut en type understreket tekster i et bestemt område, dette VBA-kode kan ikke hjelpe deg, men du kan bruke under hendig verktøy for å løse denne oppgaven i dette tilfellet.

Finn alle understrekede tekster i et område eller regneark med Kutools for Excel
Hvis du har Kutools for Excel installert Du kan bruke Velg Celler med Format verktøyet til å raskt finne ut de understrekede tekster i en rekke av et helt regneark
Kutools for Excel. med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter gratis installasjon
Kutools for Excel, kan du gjøre som følger:
1. Velg en tom celle, og skriv deretter en data inn i det, for eksempel, A1, og klikk Home > Understreking og velg en type understreking du trenger. Se skjermbilde:
to. Deretter velger du området du ønsker å finne ut den spesifikke understreket tekster, og klikk Kutools > Velg > Velg Celler med Format. Se skjermbilde:
tre. Og i Velg Celler med dialog Format, klikker du Velg Format fra Cell å velge cellen du formaterer med understreking i trinn 1. Se skjermbilde:
4. Klikk OK, og i Velg Celler med dialog Format, sjekk Understreket bare. Se skjermbilde:
5. Klikk på OK, deretter en dialog spretter ut for å minne deg på hvor mange understreket tekst er valgt, klikker du Ja for å lukke det
Nå er alle de understrekede tekstene er valgt
Tips:..
1 . Hvis du ønsker å finne ut alle understrekede tekster i et helt regneark, klikk på venstre hjørne av regnearket for å velge hele regnearket, og deretter bruke Velg Celler med Format verktøyet.
2. Sjekk Ignorer tomme celler i Velg Celler med dialog Format, vil den ignorere tomme celler selv om de tomme cellene er formatert med understreking.
Klikk her for å gratis laste ned Kutools for Excel
Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Anmeldelser