Hoe vind ik alle onderstreepte teksten in een bereik of een heel werkblad in Excel?

Stel dat u een reeks gegevens in een werkblad heeft en sommige gegevens zijn onderstreept, en nu wilt u deze gegevens onderstrepen, hoe kunt u ze dan snel achterhalen? Hier introduceer ik enkele trucs om snel de onderstreepte teksten in een bereik of een heel werkblad in Excel te vinden.

Vind alle onderstreepte teksten in een werkblad met VBA

Vind alle onderstreepte teksten in een bereik of werkblad met Kutools voor Excel

Vind alle onderstreepte teksten in een werkblad met VBA

In Excel kun je de functie Ga naar speciaal niet gebruiken om de onderstreepte teksten te achterhalen, dus introduceer ik een VBA-code om je te helpen alle onderstreepte teksten in een werkblad te vinden.

1. druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster en klik Invoegen > Module.

2. In het knallen Module venster, plak onder VBA-code.

VBA: vind alle onderstreepte tekst in een werkblad.

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. klikken lopen knop of druk op F5 sleutel. En er verschijnt een dialoogvenster om een bereik te selecteren om onderstreepte teksten te vinden.

4. klikken OK, dan verschijnt er een dialoogvenster om u te vertellen welke cellen enkelvoudige onderstreepte teksten zijn en welke dubbel onderstreepte teksten.

Als u slechts één type onderstreepte tekst in een specifiek bereik wilt weten, kan deze VBA-code u niet helpen, maar u kunt onderstaande handige tool gebruiken om deze taak in dit geval op te lossen.

Vind alle onderstreepte teksten in een bereik of werkblad met Kutools voor Excel

Als je Kutools for Excel geïnstalleerd, kunt u het Selecteer Cellen met indeling hulpprogramma om snel de onderstreepte teksten in een bereik van een heel werkblad te vinden.

Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger.
Gratis download gratis volledige functionaliteit in 30 dagen

Na gratis installeren Kutools voor Excel, doe het als volgt:

1. Selecteer een lege cel en typ er vervolgens gegevens in, bijvoorbeeld A1, en klik op Home > onderstrepenen selecteer een type onderstreping dat u nodig hebt. Zie screenshot:

2. Selecteer vervolgens het bereik waarvan u de specifieke onderstreepte teksten wilt weten, en klik op Kutools > kies > Selecteer Cellen met indeling. Zie screenshot:

3. En in de Selecteer Cellen met indeling dialoogvenster, klik Kies Opmaak vanuit cel om de cel te selecteren die u in stap1 onderstreept. Zie screenshot:

4. klikken OK, en in de Selecteer Cellen met indeling dialoogvenster, vink aan onderstrepen enkel en alleen. Zie screenshot:

5. klikken Ok, dan verschijnt er een dialoogvenster om u eraan te herinneren hoeveel onderstreepte teksten zijn geselecteerd, klik op Ja om het te sluiten.

Nu zijn alle onderstreepte teksten geselecteerd.

Tips:

1. Als u alle onderstreepte teksten in een heel werkblad wilt weten, klikt u in de linkerhoek van het werkblad om het hele werkblad te selecteren en past u de Selecteer Cellen met indeling utility.

2. Controleren Negeer de lege cellen in Selecteer Cellen met indeling dialoogvenster, zal het de lege cellen negeren, ook al zijn de lege cellen onderstreept.

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop...

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!