Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe alle onderstreepte teksten in een bereik of een heel werkblad in Excel te vinden?

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

Zoek alle onderstreepte teksten in een werkblad met VBA

Zoek alle onderstreepte teksten in een bereik of werkblad met Kutools voor Excel goed idee3


Selecteer specifieke cellen (selecteer cellen / rij / kolommen op basis van een of twee criteria.)

doc selecteer specifieke cellen
Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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...
  • Kutools werkt met Office 2007-2019 en 365. Het ondersteunt alle talen en is zeer eenvoudig te installeren of te implementeren. Volledige functionaliteit 60-daagse gratis proefversie.

pijl blauwe rechterbel Zoek 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 ik introduceer een VBA-code om je te helpen alle onderstreepte teksten in een werkblad te vinden.

Kutools for Excel, met meer dan 120 handige Excel-functies, verbeter uw werkefficiëntie en bespaar uw werktijd.

1. druk op Alt + F11 toetsen om te openen Microsoft Visual Basic voor toepassingen venster en klik bijvoegsel > module.

2. In de knallen module venster, plak onder VBA-code.

VBA: zoek 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 een dialoog verschijnt om een ​​bereik te selecteren om onderstreepte teksten te vinden.

doc vind onderstreepte tekst 1

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

doc vind onderstreepte tekst 2

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


pijl blauwe rechterbel Zoek alle onderstreepte teksten in een bereik of werkblad met Kutools voor Excel

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

Kutools for Excel, met meer dan 120 handige Excel-functies, verbeter uw werkefficiëntie en bespaar uw werktijd.

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

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

doc vind onderstreepte tekst 3

2. Selecteer vervolgens het bereik waarin u de specifieke onderstreepte teksten wilt achterhalen en klik op Kutools > kiezen > Selecteer Cellen met indeling. Zie screenshot:

doc vind onderstreepte tekst 4

3. En in de Selecteer Cellen met indeling dialoogvenster, klik Kies Opmaak van cel om de cel te selecteren die u hebt opgemaakt met onderstrepen in step1. Zie screenshot:

doc vind onderstreepte tekst 5
doc vind onderstreepte tekst 6

4. klikken OK, en in de Selecteer Cellen met indeling dialoog, check onderstrepen enkel en alleen. Zie screenshot:

doc vind onderstreepte tekst 7

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

doc vind onderstreepte tekst 8

Nu zijn alle onderstreepte teksten geselecteerd.

doc vind onderstreepte tekst 9

Tips:

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

2. Controleren Negeer de lege cellen in Selecteer Cellen met indeling dialoogvenster, negeert het de lege cellen, zelfs als de lege cellen zijn opgemaakt met onderstrepingstekens.

betaal attention1Als u geïnteresseerd bent in deze invoegtoepassing, klikt u hier download de 60-dagen gratis proefperiode.

Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.