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
Trouvez 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 cours 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.
Trouvez tous les textes soulignés dans une plage ou une feuille de calcul avec Kutools for Excel
Si vous avez Kutools pour 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 pour 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.
Les meilleurs outils de productivité de bureau
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
- Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
- Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
- Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
- Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
- Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
- Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
- Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
- Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
- Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
