Comment trouver tous les textes soulignés dans une plage ou une feuille de calcul entière dans Excel?

Supposons que vous ayez une plage de données dans une feuille de calcul, et que certaines des données soient soulignées, et que vous souhaitiez maintenant trouver ces données avec soulignement, comment pouvez-vous les trouver rapidement? Ici, je vous présente quelques astuces pour trouver rapidement les textes soulignés dans une plage ou une feuille de calcul entière dans Excel.

Trouvez tous les textes soulignés dans une feuille de calcul avec VBA

Recherchez tous les textes soulignés dans une plage ou une feuille de calcul avec Kutools for Excel

Trouvez tous les textes soulignés dans une feuille de calcul avec VBA

Dans Excel, vous ne pouvez pas utiliser la fonction Aller à spécial pour trouver les textes soulignés, donc j'introduis un code VBA pour vous aider à trouver tous les textes soulignés dans une feuille de calcul.

1. presse Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre, et cliquez sur insérer > Module.

2. Dans le popping Module fenêtre, collez ci-dessous le code VBA.

VBA: recherchez tout le texte souligné dans une feuille de calcul.

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. Cliquez Courir bouton ou appuyez sur F5 clé. Et une boîte de dialogue apparaît pour sélectionner une plage pour trouver des textes soulignés.

4. Cliquez OK, puis une boîte de dialogue apparaîtra pour vous indiquer quelles cellules sont des textes soulignés simples et lesquelles sont des textes soulignés deux fois.

Si vous souhaitez simplement trouver un type de textes soulignés dans une plage spécifique, ce code VBA ne peut pas vous aider, mais vous pouvez utiliser l'outil pratique ci-dessous pour résoudre cette tâche dans ce cas.

Recherchez tous les textes soulignés dans une plage ou une feuille de calcul avec Kutools for Excel

Si vous n'avez pas encore suivi Kutools for Excel installé, vous pouvez appliquer le Sélectionnez les cellules avec un format utilitaire pour trouver rapidement les textes soulignés dans une plage d'une feuille de calcul entière.

Après installation gratuite Kutools for Excel, procédez comme suit:

1. Sélectionnez une cellule vide, puis saisissez-y des données, par exemple A1, puis cliquez sur Accueil > souligneret sélectionnez le type de soulignement dont vous avez besoin. Voir la capture d'écran:

2. Sélectionnez ensuite la plage dans laquelle vous souhaitez trouver les textes soulignés spécifiques, puis cliquez sur Kutools > Pour plus d'information > Sélectionnez les cellules avec un format. Voir la capture d'écran:

3. Et dans le Sélectionnez les cellules avec un format dialogue, cliquez sur Choisissez le format de la cellule pour sélectionner la cellule que vous formatez avec le soulignement à l'étape 1. Voir la capture d'écran:

4. Cliquez OKet dans le Sélectionnez les cellules avec un format boîte de dialogue, vérifier souligner seulement. Voir la capture d'écran:

5. Cliquez Ok, puis une boîte de dialogue apparaît pour vous rappeler combien de textes soulignés sont sélectionnés, cliquez sur Oui pour la fermer.

Maintenant, tous les textes soulignés sont sélectionnés.

Conseils:

1. Si vous souhaitez trouver tous les textes soulignés dans une feuille de calcul entière, cliquez sur le coin gauche de la feuille de calcul pour sélectionner la feuille de calcul entière, puis appliquez le Sélectionnez les cellules avec un format utilitaire.

2. Vérifier Ignorer les cellules vides in Sélectionnez les cellules avec un format , il ignorera les cellules vides même si les cellules vides sont mises en forme avec soulignement.