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 Sub3. 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 avez 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.
| Kutools for Excel, avec plus de 300 fonctions pratiques, rend vos travaux plus faciles. |
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 > Sélectionnez > 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.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
