Jak najít všechny podtržené texty v rozsahu nebo v celém listu v aplikaci Excel?

Předpokládejme, že máte v listu řadu dat a některá data jsou podtržena, a teď je chcete zjistit podtrženě, jak je rychle zjistit? Zde vám představím několik triků, jak rychle zjistit podtržené texty v rozsahu nebo v celém listu v aplikaci Excel.

Najděte všechny podtržené texty v listu pomocí VBA

Najděte všechny podtržené texty v rozsahu nebo listu pomocí Kutools pro Excel

Najděte všechny podtržené texty v listu pomocí VBA

V aplikaci Excel nemůžete použít funkci Přejít na speciální k vyhledání podtržených textů, proto vám představím kód VBA, který vám pomůže najít všechny podtržené texty v listu.

1. lis Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno a klikněte na Vložit > Modul.

2. V praskání Modul okno, vložte pod kód VBA.

VBA: Najděte veškerý podtržený text v listu.

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. cvaknutí Běh nebo stiskněte tlačítko F5 klíč. Zobrazí se dialogové okno pro výběr rozsahu pro vyhledání podtržených textů.

4. cvaknutí OK, poté se zobrazí dialogové okno, které vám řekne, které buňky jsou jednoduché podtržené texty a které jsou podtržené texty.

Pokud chcete zjistit pouze jeden typ podtržených textů v konkrétním rozsahu, tento kód VBA vám nemůže pomoci, ale v tomto případě můžete tento úkol vyřešit pomocí níže uvedeného užitečného nástroje.

Najděte všechny podtržené texty v rozsahu nebo listu pomocí Kutools pro Excel

Pokud máte Kutools pro Excel nainstalován, můžete použít Vyberte buňky s formátem nástroj pro rychlé vyhledání podtržených textů v rozsahu celého listu.

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. Vyberte prázdnou buňku a poté do ní zadejte data, například A1, a klepněte na Domů > Zdůraznita vyberte požadovaný typ podtržení. Viz screenshot:

2. Poté vyberte rozsah, ve kterém chcete zjistit konkrétní podtržené texty, a klikněte na Kutools > vybrat > Vyberte buňky s formátem. Viz snímek obrazovky:

3. A v Vyberte buňky s formátem dialog, klepněte na tlačítko Vyberte Formát z buňky v kroku 1 vyberte buňku, kterou formátujete s podtržením. Viz screenshot:

4. cvaknutí OK, a v Vyberte buňky s formátem dialog, zkontrolujte Zdůraznit pouze. Viz snímek obrazovky:

5. cvaknutí Ok, poté se zobrazí dialogové okno, které vám připomene, kolik podtržených textů je vybráno, klikněte na Ano zavřít.

Nyní jsou vybrány všechny podtržené texty.

Tip:

1. Chcete-li zjistit všechny podtržené texty v celém listu, kliknutím na levý roh listu vyberte celý list a poté použijte Vyberte buňky s formátem utilita.

2. Kontrola Prázdné buňky ignorujte in Vyberte buňky s formátem Dialogové okno bude ignorovat prázdné buňky, přestože jsou prázdné buňky formátovány s podtržením.