Come trovare tutti i testi sottolineati in un intervallo specifico o nell’intero foglio di lavoro in Excel?
Supponiamo che tu abbia un intervallo di dati in un foglio di lavoro, in cui alcuni dati sono sottolineati, e ora desideri individuarli. Come puoi trovarli rapidamente? Di seguito ti presento alcuni trucchi per individuare velocemente i testi sottolineati in un intervallo o nell’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 in un foglio di lavoro con Kutools per Excel 
Trova tutti i testi sottolineati in un foglio di lavoro con VBA
In Excel non puoi usare la funzione «Vai a speciale» per individuare i testi sottolineati, quindi ti propongo un codice VBA che ti aiuterà a trovare tutti i testi sottolineati in un foglio di lavoro.
1. Premi Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications, quindi fai clic su Inserisci > Modulo.
2. Nella finestra Modulo visualizzata, incolla il seguente codice VBA.
VBA: Trova tutti i testi sottolineati 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 Sub3. Fai clic sul pulsante Esegui oppure premi il tasto F5. Si aprirà una finestra di dialogo per selezionare l’intervallo in cui cercare i testi sottolineati.
4. Fai clic su OK, dopodiché apparirà una finestra di dialogo che ti indicherà quali celle contengono testo con sottolineatura singola e quali con sottolineatura doppia.
Se desideri individuare solo un tipo specifico di testo sottolineato all’interno di un intervallo definito, questo codice VBA non ti sarà d’aiuto — ma puoi risolvere il problema in modo semplice ed efficace con lo strumento pratico descritto di seguito.
Trova tutti i testi sottolineati in un intervallo o in un foglio di lavoro con Kutools per Excel
Se hai installato Kutools per Excel, puoi utilizzare l’utilità Seleziona celle con formato simile per individuare rapidamente i testi sottolineati in un intervallo o nell’intero foglio di lavoro.
Dopo aver installato gratuitamente l’aggiuntaKutools per Excel, procedi come segue:
1. Seleziona una cella vuota, inseriscici un dato (ad esempio A1), quindi fai clic su Home > Sottolineato e scegli il tipo di sottolineatura desiderato. Vedi screenshot:
2. Seleziona quindi l’intervallo in cui desideri trovare i testi sottolineati specifici, quindi fai clic su Kutools > Seleziona > Seleziona celle con formato simile. Vedi screenshot:
3. Nella finestra di dialogo Seleziona celle con formato simile, fai clic su Seleziona formato dalla cella per selezionare la cella formattata con la sottolineatura al passaggio 1. Vedi screenshot:
4. Fai clic su OK, quindi, nella finestra di dialogo Seleziona celle con formato simile, seleziona solo Sottolineato. Vedi screenshot:
5. Fai clic su Ok, dopodiché apparirà una finestra di dialogo che ti informerà su quanti testi sottolineati sono stati selezionati; fai clic su Sì per chiuderla.
Ora tutti i testi sottolineati sono selezionati.
Suggerimenti:
1. Se desideri trovare tutti i testi sottolineati nell’intero foglio di lavoro, fai clic sull’angolo in alto a sinistra del foglio per selezionarlo completamente, quindi applica l’utilità Seleziona celle con formato simile.
2. Seleziona Ignora celle vuote nella finestra di dialogo Seleziona celle con formato simile; verranno inclusi anche i dati con l’opzione “Ignora celle vuote” attiva, anche se le celle vuote sono state formattate con sottolineatura.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi