Passer au contenu principal

Comment supprimer des lignes ne contenant pas certains texte dans Excel?

Peut-être que certains d'entre vous savent comment supprimer les lignes entières lorsqu'elles contiennent certains textes dans Excel, mais si vous voulez entier la ligne alors qu'elles ne contiennent pas certains textes, comment pourriez-vous faire? Maintenant, suivez ce tutoriel, vous pouvez trouver le moyen de résoudre ce problème dans Excel.

Supprimer les lignes ne contenant pas certains textes avec Filtre

Supprimer les lignes ne contenant pas certains textes avec VBA

Supprimer les lignes ne contenant pas certains textes avec Kutools for Excel


flèche bleue bulle droite Supprimer les lignes ne contenant pas certains textes avec Filtre

Dans Excel, la fonction Filtre peut vous aider rapidement à filtrer les lignes qui ne contiennent pas certains texte, puis vous pouvez les sélectionner pour les supprimer.

1. Sélectionnez la colonne contenant les textes sur lesquels vous allez supprimer des lignes, puis cliquez sur Données > Filtre. Voir la capture d'écran:

doc-supprimer-lignes-ne-pas-contenir-1
doc-flèche
doc-supprimer-lignes-ne-pas-contenir-2

2. Dans l'en-tête de la colonne, il y a un bouton de filtre, et cliquez dessus pour ouvrir la liste déroulante, cochez tout sauf le texte sur lequel vous voulez baser. Voir la capture d'écran:

doc-supprimer-lignes-ne-pas-contenir-3

3. Ensuite, vous ne pouvez voir que la ligne d'en-tête et les lignes ne contenant pas certains textes sont filtrées. Voir la capture d'écran :

doc-supprimer-lignes-ne-pas-contenir-4

4. Sélectionnez-les tous sauf la ligne d'en-tête et cliquez avec le bouton droit pour sélectionner Supprimer la ligne dans le menu contextuel. Voir la capture d'écran:

doc-supprimer-lignes-ne-pas-contenir-5

5. Puis clique Données > Filtre à nouveau, puis toutes les lignes ne contenant pas certains textes sont supprimées. Voir la capture d'écran:

doc-supprimer-lignes-ne-pas-contenir-6
doc-flèche
doc-supprimer-lignes-ne-pas-contenir-7

flèche bleue bulle droite Supprimer les lignes ne contenant pas certains textes avec VBA

VBA est très utile pour les opérations quelque peu difficiles dans Excel et suivez les étapes ci-dessous pour supprimer les lignes ne contenant pas certains textes.

1. presse Alt + F11 pour afficher le Microsoft Visual Basic pour applications fenêtre.

2. Dans la fenêtre, cliquez sur insérer > Module pour afficher une nouvelle fenêtre de module, puis copiez le code VBA suivant dans la fenêtre de module.

VBA: Supprimez la ligne entière si la cellule contient du texte.

Sub DeleteRowNoInclude()
'Update20140618
Dim xRow As Range
Dim rng As Range
Dim WorkRng As Range
Dim xStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xStr = Application.InputBox("Text", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 1 Step -1
    Set xRow = WorkRng.Rows(i)
    Set rng = xRow.Find(xStr, LookIn:=xlValues)
    If rng Is Nothing Then
       xRow.Delete
    End If
Next
Application.ScreenUpdating = True
End Sub
3. Cliquez Courir bouton, et une boîte de dialogue apparaît pour vous permettre de sélectionner une plage à travailler. Voir la capture d'écran:

doc-supprimer-lignes-ne-pas-contenir-8

4. Puis clique OKet tapez le texte sur lequel vous souhaitez supprimer les lignes dans une autre boîte de dialogue contextuelle. Voir la capture d'écran:

doc-supprimer-lignes-ne-pas-contenir-9

5. Cliquez OK, et les lignes ne contenant pas Apple seront supprimées.


flèche bleue bulle droite Supprimer les lignes ne contenant pas certains textes avec Kutools for Excel

Si vous pensez que les méthodes ci-dessus ne sont pas faciles pour vous, vous pouvez utiliser Kutools for Excel's Sélectionnez des cellules spécifiques fonction.

Kutools for Excel comprend plus de 300 outils Excel pratiques. Essai gratuit sans limitation de 30 jours. Obtenez-le maintenant

1. Sélectionnez la colonne dans laquelle vous souhaitez supprimer les lignes ne contenant pas le certain texte, puis cliquez sur Kutools > Sélectionnez Outils > Sélectionnez des cellules spécifiques. Voir la capture d'écran:

doc-supprimer-lignes-ne-pas-contenir-10

2. Et dans le Sélectionnez des cellules spécifiques boîte de dialogue, vérifier Ligne entière, et sélectionnez Ne contient pas de, et tapez le certain texte dans la zone de texte, vous pouvez également cliquer sur le bouton de plage dans le Type spécifique section pour sélectionner la cellule qui contient le certain texte.

doc-supprimer-lignes-ne-pas-contenir-11

3. Puis clique Ok, puis les lignes ne contenant pas certains textes sont sélectionnées, cliquez avec le bouton droit pour sélectionner Supprimer dans le menu contextuel. Voir la capture d'écran:

doc-supprimer-lignes-ne-pas-contenir-12

4. Désormais, toutes les lignes ne contenant pas certains textes de la plage sont supprimées. Cliquez dessus pour plus d'informations sur Sélectionner des cellules spécifiques.


Articles relatifs:

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

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...

Description


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to modify the VBA code to add an option like this,

Dim xOpt As Integer
xOpt = Application.InputBox("Rows Around Kept (0, 1, 2)", xTitleId, "", Type:=1)

where 0 is the same as your code above where it keeps only the row with specified word in it and deletes all other rows.
where 1 keeps the rows immediately above and below the rows with the specified word in it and deletes all other rows.
where 2 keeps the 2 rows above and below the rows with the specified words in it and deletes all other rows.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations