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

Comment supprimer des lignes en fonction de la valeur de la cellule dans Excel?

Pour supprimer ou supprimer rapidement plusieurs lignes en fonction de la valeur de la cellule dans Excel, vous devrez peut-être sélectionner d'abord ces lignes entières contenant une valeur de cellule spécifique, puis aller les supprimer. Il semble qu'il n'y ait pas de moyen rapide de supprimer des lignes en fonction de la valeur de la cellule, mais en utilisant le code VBA. Voici quelques astuces rapides pour vous aider.


Supprimer des lignes en fonction de la valeur de la cellule avec la fonction Rechercher et remplacer

Dans Excel, vous pouvez appliquer la puissante fonctionnalité Rechercher et remplacer pour supprimer facilement des lignes en fonction d'une certaine valeur de cellule. Veuillez procéder comme suit:

1. Sélectionnez la plage dans laquelle vous supprimerez des lignes en fonction de certaines valeurs de cellule et ouvrez la boîte de dialogue Rechercher et remplacer en appuyant sur le Ctrl + F touches simultanément.

2. Dans la boîte de dialogue Rechercher et remplacer, veuillez saisir la valeur de la cellule (dans notre cas, nous entrons le Soe) dans le Find what et cliquez sur le Find All bouton. Voir la première capture d'écran ci-dessous:

3. Sélectionnez tous les résultats de la recherche au bas de la boîte de dialogue Rechercher et remplacer et fermez cette boîte de dialogue. (Notes: Vous pouvez sélectionner l'un des résultats de la recherche, puis Ctrl + A touches pour sélectionner tous les résultats trouvés. Voir la deuxième capture d'écran ci-dessus.)
Et puis vous pouvez voir que toutes les cellules contenant la certaine valeur sont sélectionnées.

4. Allez-y pour faire un clic droit sur les cellules sélectionnées et sélectionnez le Delete dans le menu contextuel. Et puis vérifiez le Entire row dans la boîte de dialogue Supprimer, puis cliquez sur le OK bouton. Vous verrez maintenant que toutes les cellules contenant la certaine valeur sont supprimées. Voir les captures d'écran ci-dessous:

Et puis des lignes entières ont déjà été supprimées en fonction de la certaine valeur.


Supprimer les lignes en fonction de la valeur de la cellule avec le code VBA

Avec le code VBA suivant, vous pouvez supprimer rapidement les lignes avec une certaine valeur de cellule, procédez comme suit:

1. appuie sur le Alt + F11 clés en même temps pour ouvrir Microsoft Visual Basic for applications fenêtre,

2Cliquez sur Insert > Moduleet entrez le code suivant dans le module:

VBA: supprimer des lignes entières en fonction de la valeur de la cellule

Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
            Set DeleteRng = DeleteRng.EntireRow
        End If
    End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
    Set DeleteRng = xWSh.Range(xArr(xF))
    DeleteRng.Delete
Next
End Sub

3. Puis cliquez sur le Run bouton pour exécuter le code.

4. Dans la boîte de dialogue qui s'affiche, sélectionnez la plage dans laquelle vous supprimerez les lignes en fonction de la valeur donnée, puis cliquez sur le bouton OK .

5. Dans une autre boîte de dialogue, veuillez saisir la valeur sur laquelle vous supprimerez les lignes et cliquez sur le bouton OK bouton. Voir la capture d'écran:

Et puis vous verrez des lignes entières ont déjà été supprimées en fonction de la valeur spécifiée.


Supprimer des lignes basées sur une ou deux valeurs de cellule avec Kutools for Excel

Si vous avez installé Kutools for Excel, il est Select Specific Cells La fonctionnalité peut vous aider à supprimer rapidement les lignes avec une valeur spécifique. Veuillez procéder comme suit:

Kutools pour Excel - Comprend plus de 300 outils pratiques pour Excel. Essai gratuit complet de 30 jours, aucune carte de crédit requise! Achetez-le Maintenant

1. Sélectionnez la plage dans laquelle vous supprimerez les lignes en fonction de la valeur donnée, puis cliquez sur Kutools > Select > Select Specific Cells. Voir la capture d'écran:

2. Dans la boîte de dialogue d'ouverture Sélectionner les cellules spécifiées, veuillez cocher Entire row option, sélectionnez Contains À partir de Specific type liste déroulante, entrez la valeur spécifiée dans la case de droite et cliquez sur le Ok bouton (Voir la capture d'écran ci-dessus).
Après avoir appliqué cette fonctionnalité, une boîte de dialogue apparaîtra et vous montrera combien de cellules ont été trouvées en fonction des critères spécifiés. Veuillez cliquer sur le OK bouton pour le fermer.

3. Maintenant, des lignes entières avec une certaine valeur sont sélectionnées. Veuillez faire un clic droit sur les lignes sélectionnées, puis cliquez sur le bouton Delete dans le menu contextuel. Voir la capture d'écran ci-dessous:

Notes: Ce Select Specific Cells La fonctionnalité prend en charge la suppression des lignes par une ou deux certaines valeurs. Pour supprimer des lignes en fonction de deux valeurs spécifiées, veuillez spécifier une autre valeur dans le Specific type section de la boîte de dialogue Sélectionner des cellules spécifiques comme illustré ci-dessous:

Kutools pour Excel - Comprend plus de 300 outils pratiques pour Excel. Essai gratuit complet de 30 jours, aucune carte de crédit requise! Achetez-le Maintenant


Supprimer les lignes en fonction de plusieurs valeurs de cellule avec Kutools for Excel

Dans certains cas, vous devrez peut-être supprimer des lignes en fonction de plusieurs valeurs de cellule d'une autre colonne / liste dans Excel. Ici je vais vous présenter Kutools for Excel's Select Same & Different Cells fonction pour le résoudre rapidement avec facilité.

Kutools pour Excel - Comprend plus de 300 outils pratiques pour Excel. Essai gratuit complet de 30 jours, aucune carte de crédit requise! Achetez-le Maintenant

1Cliquez sur Kutools > Select > Select Same & Different Cells pour ouvrir la boîte de dialogue Sélectionner les cellules identiques et différentes.

2. Dans l'ouverture Select Same & Different Cells boîte de dialogue, procédez comme suit (voir capture d'écran):

(1) Dans le Find values in , veuillez sélectionner la colonne où vous trouverez certaines valeurs;
(2) Dans le According to , veuillez sélectionner la colonne / liste avec plusieurs valeurs sur lesquelles vous supprimerez les lignes;
(3) Dans le Based on section, veuillez vérifier la Each row l'option;
(4) Dans le Find section, veuillez vérifier la Same Values l'option;
(5) Vérifiez le Select entire rows option en bas de la boîte de dialogue d'ouverture.
Notes: Si deux colonnes spécifiées contiennent le même en-tête, veuillez vérifier la My data has headers option.

3. Clique le Ok bouton pour appliquer cet utilitaire. Et puis une boîte de dialogue apparaît et montre combien de lignes ont été sélectionnées. Cliquez simplement sur OK bouton pour le fermer.

Et puis toutes les lignes contenant des valeurs parmi la liste spécifiée ont été sélectionnées.

4Cliquez sur Home > Delete > Delete Sheet Rows pour supprimer toutes les lignes sélectionnées.


Démo: supprimer des lignes basées sur une ou plusieurs valeurs de cellule dans Excel


Kutools pour Excel comprend plus de 300 outils pratiques pour Excel, gratuits à essayer sans limitation en 30 jours. Téléchargez et essayez gratuitement maintenant!

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-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. 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 (39)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Fantastique! Cela a fonctionné un régal, je l'ai légèrement modifié pour l'adapter à ce dont j'avais besoin, mais pur génie. Ah la version VBA.
Ce commentaire a été minimisé par le modérateur sur le site
Un moyen de modifier le If (cell.Value) = "Apple" pour inclure plusieurs valeurs ?
Ce commentaire a été minimisé par le modérateur sur le site
Bobby, essaie ça, ça devrait donner ce que tu veux : If (cell.Value) = "Apple" OR (cell.Value) = "Monday"
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il de toute façon que la valeur reconnaisse une valeur, qu'elle soit> ou = à une certaine valeur?
Ce commentaire a été minimisé par le modérateur sur le site
Hey - merci beaucoup pour le script. Je me demandais si vous pouviez utiliser des caractères génériques pour pouvoir sélectionner tout ce qui correspond dans une cellule plutôt qu'un élément spécifique ? J'ai essayé d'utiliser ** des caractères génériques mais cela ne semble rien faire. Voici ce que j'ai : Sub Delete_Rows() Dim rng As Range, cell As Range, del As Range Set rng = Intersect(Range("B6:B20"), ActiveSheet.UsedRange) For Each cell In rng If cell.Value Like "*WORDTODELETE*" _ Then If del Is Nothing Then Set del = cell Else: Set del = Union(del, cell) End If End If Next cell On Error Resume Next del.EntireRow.Delete End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Merci du fond du cœur - c'est toujours amusant quand le responsable marketing essaie d'écrire du code, et cette information a été très utile. Je n'ai pas réussi à faire en sorte que le code s'étende sur plusieurs colonnes ("AA2: AA3000" fonctionne, "AB2: AB3000" fonctionne, mais "AA2: AB3000" ne fonctionne pas. Il n'y a pas de Kaboom bouleversant - ça ne fait rien. "Je l'ai résolu (de manière amateur, je suppose) en exécutant plusieurs macros en séquence, mais il existe probablement un moyen plus élégant. Merci encore pour votre aide, Jim (Melville, NY)
Ce commentaire a été minimisé par le modérateur sur le site
J'obtiens : erreur d'exécution '13' : incompatibilité de type Le débogage met en évidence la section If (cell.Value) = "FALSE" _ Then. Je suis totalement perdu dans MVB, toute aide serait appréciée.
Ce commentaire a été minimisé par le modérateur sur le site
Disons que je mets le code ci-dessous pour supprimer toutes mes lignes contenant des pommes, mais je veux que cela continue une fois que cela est fait et supprime toutes les lignes qui contiennent des bananes ? J'ai essayé de simplement dupliquer le code mais il semble s'arrêter après Apple. Merci. Sub Delete_Rows() Dim rng As Range, cell As Range, del As Range Set rng = Intersect(Range("A1:C20"), ActiveSheet.UsedRange) For Each cell In rng If (cell.Value) = "Apple" _ Alors si del n'est rien alors Set del = cellule Sinon : Set del = Union(del, cellule) End If End If Next cell On Error Resume Next del.EntireRow.Delete End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Je voulais juste dire merci. Cela a fonctionné comme un charme.
Ce commentaire a été minimisé par le modérateur sur le site
Certainement génial! Merci pour le partage !!!
Ce commentaire a été minimisé par le modérateur sur le site
Merci, c'est super ! Commentaire rapide, j'ai essayé la fonction rechercher et remplacer dans Excel 2010. Afin de sélectionner tous les résultats trouvés, j'ai dû utiliser Ctrl + A au lieu de Alt + A.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, Quel est le moyen le plus simple de supprimer les lignes qui ne contiennent PAS "Apple", s'il vous plaît ? Merci
Ce commentaire a été minimisé par le modérateur sur le site
Salut, Une façon de l'écrire pour supprimer une ligne, avec une exception OU ? C'est-à-dire supprimer les lignes qui sont en double, mais ignorer une certaine valeur. Je veux supprimer les doublons, sauf si la colonne en question contient un b/c vide, cette colonne n'a pas encore de données valides. J'ai couru comme vous l'avez fait, mais j'ai fini de supprimer des lignes avec un blanc dans la colonne en question, donc je ne peux pas l'utiliser tel quel. Merci
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour le script VB. J'ai hâte d'essayer ça. Question : Existe-t-il un moyen de marquer les colonnes à supprimer avant de les supprimer et/ou de les copier dans un onglet séparé du classeur ? De plus, existe-t-il un moyen d'exécuter ce script sur plusieurs classeurs/fichiers à la fois ?
Ce commentaire a été minimisé par le modérateur sur le site
merci.. ça m'aide beaucoup...
Ce commentaire a été minimisé par le modérateur sur le site
Je voudrais supprimer toutes les lignes où column1 = "Apple" AND column3 = "green". s'il te plaît?
Ce commentaire a été minimisé par le modérateur sur le site
Je ne sais pas comment faire cela en utilisant des macros ou autre, mais une option qui ferait très bien son travail consiste à ajouter une colonne supplémentaire qui teste qu'une colonne est "pomme" et l'autre "verte", puis laissez il donne une simple valeur "oui" ou "non". que d'utiliser l'une des options ci-dessus pour rechercher la valeur "oui" et supprimer les lignes basées sur celle-ci au lieu de 2 valeurs distinctes.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai une liste de magasins dans un seul document. J'ai un rapport qui renvoie des milliers de lignes. le numéro de magasin est toujours dans la colonne A. Existe-t-il un code/macro qui recherchera dans le rapport et supprimera toutes les colonnes avec des numéros de magasin de la liste des magasins. pensant qu'un vlookup et "Do While" sont nécessaires.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour et merci beaucoup pour le code VBA. J'ai une question. Est-il possible de faire en sorte que le code permette de choisir plusieurs valeurs de cellule à supprimer en même temps ? Par exemple choisir Apple et Emily en même temps et les supprimer ? J'apprécie votre travail et j'attends votre réponse avec impatience. Jeanne K.
Ce commentaire a été minimisé par le modérateur sur le site
Comment puis-je spécifier la plage A3:D3000 (c'est-à-dire que je ne veux pas que l'utilisateur sélectionne la plage) ? Comment puis-je faire de la chaîne de suppression une référence de cellule, ex. G1 ?
Ce commentaire a été minimisé par le modérateur sur le site
est-il possible de comparer deux colonnes puis de supprimer ? est dans la plage A3:D3000 si la cellule A=x et la cellule B=y suppriment alors la ligne ?
Ce commentaire a été minimisé par le modérateur sur le site
Quel magnifique. merci beaucoup à tous. :)
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés