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

Comment supprimer une ligne entière si la cellule contient zéro dans Excel?

Parfois, vous souhaitez supprimer la ligne entière si la cellule contient zéro dans Excel, et vous pouvez les supprimer un par un s'il y en a quelques-uns. Mais qu'en est-il des centaines de lignes contenant zéro qui doivent être supprimées? Vous pouvez choisir l'une des méthodes les plus délicates ci-dessous pour le résoudre.

Supprimer la ligne si la cellule contient zéro avec la fonction Filtre dans Excel
Supprimer la ligne si la cellule contient zéro avec VBA dans Excel
Supprimer la ligne si la cellule contient zéro avec Kutools for Excel


Supprimer la ligne si la cellule contient zéro avec la fonction Filtre dans Excel

Vous pouvez utiliser la fonction Filter pour filtrer toutes les lignes en fonction des valeurs nulles dans une certaine colonne, puis supprimer toutes les lignes visibles ultérieurement. Veuillez faire comme suit.

1. Sélectionnez les cellules de colonne contenant les valeurs nulles sur lesquelles vous souhaitez supprimer les lignes entières, puis cliquez sur Données > Filtre. Voir la capture d'écran:

2. Ensuite, une flèche déroulante s'affiche dans la première cellule de la colonne sélectionnée, cliquez sur la flèche, puis sélectionnez Filtres numériques > Équivaut à dans la liste déroulante.

doc supprimer si zéro 1

3. dans le Filtre automatique personnalisé boîte de dialogue, entrez le numéro 0 dans la zone de texte comme illustré ci-dessous, puis cliquez sur le OK .

doc supprimer si zéro 1

4. Ensuite, toutes les cellules de valeur zéro dans cette certaine colonne sont filtrées. Veuillez sélectionner toutes les cellules visibles dans la plage de filtres et faites un clic droit dessus, sélectionnez Supprimer les lignes dans le menu contextuel. Et dans la boîte de dialogue contextuelle, cliquez sur le bouton OK bouton. Voir la capture d'écran:

doc supprimer si zéro 1

5. Toutes les lignes visibles sont maintenant supprimées. Vous pouvez cliquer Données > Filtre à nouveau pour afficher toutes les données sans cellules de valeur nulle. Voir la capture d'écran:

doc supprimer si zéro 1


Supprimez facilement toutes les lignes si des valeurs nulles existent dans une certaine plage dans Excel:

Kutools pour Excel Sélectionnez des cellules spécifiques L'utilitaire vous aide à sélectionner facilement des lignes entières s'il existe des valeurs nulles dans une certaine plage, puis vous pouvez supprimer rapidement toutes les lignes sélectionnées manuellement sans aucune erreur.
Téléchargez et essayez-le maintenant! (Parcours gratuit de 30 jours)


Supprimer la ligne si la cellule contient zéro avec VBA dans Excel

Cette section vous montrera la méthode VBA pour supprimer toutes les lignes si des valeurs nulles existent dans une certaine colonne dans Excel.

1. presse Alt + F11 touches simultanément pour afficher Microsoft Visual Basic pour applications fenêtre.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur insérer > Module, puis copiez et collez le code VBA suivant dans la fenêtre du module.

VBA: supprimer des lignes entières s'il existe une valeur nulle dans certaines plages de colonnes d'une feuille de calcul

Sub DeleteZeroRow () 'Updateby20140616 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8 ) Application.ScreenUpdating = False Do Set Rng = WorkRng.Find ("0", LookIn: = xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub

3. appuie sur le F5 clé pour exécuter le code, dans la fenêtre contextuelle KutoolsforExcel boîte de dialogue, sélectionnez la plage de colonnes dans laquelle vous souhaitez supprimer des lignes entières en fonction des valeurs zéro à l'intérieur, puis cliquez OK bouton. Voir la capture d'écran:

doc supprimer si zéro 1

Ensuite, toutes les lignes basées sur les valeurs nulles dans la plage de colonnes spécifiée sont supprimées immédiatement.

doc supprimer si zéro 1


Supprimer la ligne si la cellule contient zéro avec Kutools for Excel

Pour de nombreux utilisateurs d'Excel, l'utilisation du code VBA est dangereuse pour supprimer des données dans Excel. Si vous ne faites pas exactement confiance au code VBA, nous vous recommandons d'essayer le Sélectionnez des cellules spécifiques utilité de Kutools pour Excel.

Avant d'appliquer Kutools pour Excel, S'il vous plaît téléchargez et installez-le d'abord.

1. Sélectionnez la plage de colonnes dans laquelle vous supprimerez des lignes entières en fonction des valeurs nulles à l'intérieur, puis cliquez sur Kutools > Sélectionnez > Sélectionnez des cellules spécifiques. Voir la capture d'écran:

2. dans le Sélectionnez des cellules spécifiques dialogue, vous devez:

(1) Sélectionnez le Ligne entière option dans la Type de sélection .

(2) Sélectionnez Équivaut à en premier Type spécifique liste déroulante, puis entrez le numéro 0 dans la zone de texte.

(3) Cliquez sur le OK .

3. Une boîte de dialogue apparaît pour vous dire combien de lignes ont été sélectionnées, cliquez sur le bouton OK bouton. Désormais, toutes les lignes avec les valeurs nulles présentes dans la plage de colonnes spécifiée sont sélectionnées. Veuillez faire un clic droit sur n'importe quelle ligne sélectionnée, puis cliquez sur Supprimer dans le menu contextuel. Voir la capture d'écran:

doc supprimer si zéro 1

Maintenant, toutes les lignes avec les valeurs nulles existent dans la colonne spécifiée sont supprimées immédiatement. Voir la capture d'écran:

doc supprimer si zéro 1

  Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.


Supprimer la ligne si la cellule contient zéro avec Kutools for Excel


Articles relatifs:


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 (15)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
C'était une bouée de sauvetage !!
Ce commentaire a été minimisé par le modérateur sur le site
Votre code VB ne fonctionne pas. Il supprime toutes les lignes avec un zéro en position 10s. J'espère que personne ne l'utilisera réellement car il supprimera des données...
Ce commentaire a été minimisé par le modérateur sur le site
J'ai modifié le code ci-dessus pour qu'il fonctionne pour moi. Je voulais supprimer toutes les lignes contenant "Delete" dans la ligne C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:= xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
Ce commentaire a été minimisé par le modérateur sur le site
J'ai modifié le code ci-dessous pour qu'il fonctionne pour moi. Cela a supprimé toutes les lignes de la colonne C contenant "Delete" dans la cellule de la colonne C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete" , LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
Ce commentaire a été minimisé par le modérateur sur le site
merci pour la réponse, a fonctionné pour moi
Ce commentaire a été minimisé par le modérateur sur le site
Hi,
sa a fonctionné pour moi, merci beaucoup.
si j'ai plusieurs feuilles? comment puis-je exécuter le script 1 fois pour toutes les feuilles ?
Ce commentaire a été minimisé par le modérateur sur le site
modifié pour mon but - merci pour votre aide : Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Définissez la plage dans laquelle vous souhaitez supprimer la quantité 0 inutilisée lignes de" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8) Application.ScreenUpdating = False Sheets("ENTRY").Select Do Set Rng = WorkRng.Find("0 ", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True Range("FF92").Select Selection.End(xlDown).Select MsgBox "Supprimé 0's ROWS from column FG--calculating now--Please wait" Application.Calculation = xlAutomatic End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Salut chers, j'ai besoin d'un code pour masquer les lignes qui ont la valeur = 0 sur la colonne "N" dans la feuille 1. La valeur de la colonne "N" changera lors de la mise à jour des détails sur la feuille 2. c'est le moment besoin de démasquer la ligne. est-ce possible de le faire avec la formule Excel (sans macro ni filtres Excel).
Ce commentaire a été minimisé par le modérateur sur le site
Cela n'a pas fonctionné pour moi. Il a changé toutes les valeurs de ma colonne choisie et de la colonne adjacente en zéros. Je dois faire quelque chose de mal !
Ce commentaire a été minimisé par le modérateur sur le site
Salut Sheri,
Le code fonctionne bien dans mon cas. Quelle version d'Excel utilisez-vous ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut Cristal. J'ai posté ça il y a deux ans donc je suppose que j'ai compris. Mais merci pour la réponse.
Ce commentaire a été minimisé par le modérateur sur le site
Insérez ceci dans le nouveau module VB.
C'est avec InputBox pour supprimer la ligne qui contient ce mot.

Attribut VB_Name = "FindDelRowByWord"
Sub FindDelRow()
'Mise à jour du 20140616
Dim Rng As Range
Dim WorkRng As Range
Dim xRep As String
On Error Resume Next
xTitleId = "Outils ZOK"
Définir WorkRng = Application.Selection
Définir WorkRng = Application.InputBox("Plage", xTitleId, WorkRng.Address, Type :=8)
xRep = Application.InputBox("mot à supprimer Row:", "ZOK Tools", , , , , 2)
Application.ScreenUpdating = Faux
Do
Set Rng = WorkRng.Find(xRep, LookIn:=xlValues)
Si non Rng n'est rien alors
Rng.EntireRow.Delete
Si fin
Boucler sans Rng n'est rien
Application.ScreenUpdating = True
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
ET SI vous avez une grande feuille et qu'il y a des lignes que vous souhaitez conserver, et d'autres lignes contenant certains mots clés et supprimez-les ? les kutools fonctionnent pour moi mais pour un mot clé que plusieurs lignes ont ce mot clé, les lignes ont été supprimées, je veux juste avoir plusieurs mots clés pour faire la même chose ? cela fonctionne-t-il pour le code ci-dessus ?
Ce commentaire a été minimisé par le modérateur sur le site
Good Day,
Kutools peut traiter deux mots clés en même temps. Vous devez activer sa deuxième condition avec "Et" ou "Ou". J'espère que je peux aider.
Ce commentaire a été minimisé par le modérateur sur le site
Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0 ?
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