Come trovare tutti i testi sottolineati in un intervallo o in un intero foglio di lavoro in Excel?

Supponiamo che tu abbia un intervallo di dati in un foglio di lavoro, e alcuni di questi dati sono sottolineati, e ora vuoi individuare questi dati sottolineati, come puoi trovarli rapidamente? Qui ti presento alcuni trucchi per aiutarti a trovare rapidamente i testi sottolineati in un intervallo o in un intero foglio di lavoro in Excel.

Trova tutti i testi sottolineati in un foglio di lavoro con VBA

Trova tutti i testi sottolineati in un intervallo o foglio di lavoro con Kutools per Excel

Trova tutti i testi sottolineati in un foglio di lavoro con VBA

In Excel, non puoi utilizzare la funzione Vai a Speciale per trovare i testi sottolineati, quindi ti presento un codice VBA per aiutarti a trovare tutti i testi sottolineati in un foglio di lavoro.

1. Premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications, e clicca su Inserisci > Modulo.

2. Nella finestra Modulo che appare, incolla il seguente codice VBA.

VBA: Trova tutto il testo sottolineato in un foglio di lavoro.

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. Clicca sul pulsante Esegui o premi il tasto F5. Apparirà una finestra di dialogo per selezionare un intervallo in cui cercare i testi sottolineati.

4. Clicca OK, poi apparirà una finestra di dialogo che ti informerà quali celle contengono testi sottolineati singoli e quali contengono testi doppiamente sottolineati.

Se vuoi trovare solo un tipo specifico di testo sottolineato in un determinato intervallo, questo codice VBA non può aiutarti, ma puoi usare lo strumento pratico qui sotto per risolvere questa attività in questo caso.

Trova tutti i testi sottolineati in un intervallo o foglio di lavoro con Kutools per Excel

Se hai installato Kutools per Excel, puoi applicare l'utilità Seleziona celle con formato per trovare rapidamente i testi sottolineati in un intervallo o in un intero foglio di lavoro.

Dopo aver installato gratuitamente Kutools per Excel, procedi come segue:

1. Seleziona una cella vuota, quindi inserisci un dato al suo interno, ad esempio A1, e clicca su Home > Sottolineato, e seleziona il tipo di sottolineatura desiderato. Vedi screenshot:

2. Quindi seleziona l'intervallo in cui vuoi trovare i testi sottolineati specifici, e clicca su Kutools > Seleziona > Seleziona celle con formato. Vedi screenshot:

3. Nella finestra di dialogo Seleziona celle con formato, clicca su Seleziona formato dalla cella per selezionare la cella formattata con sottolineatura nel passaggio 1. Vedi screenshot:

4. Clicca OK, e nella finestra di dialogo Seleziona celle con formato, spunta solo Sottolineato. Vedi screenshot:

5. Clicca Ok, poi apparirà una finestra di dialogo che ti avvisa quanti testi sottolineati sono stati selezionati, clicca Sì per chiuderla.

Ora tutti i testi sottolineati sono stati selezionati.

Consigli:

1. Se vuoi trovare tutti i testi sottolineati in un intero foglio di lavoro, clicca sull'angolo sinistro del foglio di lavoro per selezionare l'intero foglio, e poi applica l'utilità Seleziona celle con formato.

2. Spunta Ignora le celle vuote nella finestra di dialogo Seleziona celle con formato, ignorerà le celle vuote anche se queste sono formattate con sottolineatura.