Note: The other languages of the website are Google-translated. Back to English

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 bonne idée3


flèche bleue bulle droite 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.

doc trouver le texte souligné 1

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.

doc trouver le texte souligné 2

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.


flèche bleue bulle droite 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:

doc trouver le texte souligné 3

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:

doc trouver le texte souligné 4

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:

doc trouver le texte souligné 5
doc trouver le texte souligné 6

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:

doc trouver le texte souligné 7

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.

doc trouver le texte souligné 8

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

doc trouver le texte souligné 9

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.
onglet kte 201905

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!
bas de cabine
Commentaires (0)
Pas encore de notes. Soyez le premier à évaluer!
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL