Passer au contenu principal

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

Avant d'appliquer Kutools for 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:

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 (15)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?
This comment was minimized by the moderator on the site
Insert this in VB new module.
This is with InputBox to delete row which contains that word.

Attribute VB_Name = "FindDelRowByWord"
Sub FindDelRow()
'Updateby20140616
Dim Rng As Range
Dim WorkRng As Range
Dim xRep As String
On Error Resume Next
xTitleId = "ZOK Tools"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRep = Application.InputBox("word to delete Row:", "ZOK Tools", , , , , 2)
Application.ScreenUpdating = False
Do
Set Rng = WorkRng.Find(xRep, LookIn:=xlValues)
If Not Rng Is Nothing Then
Rng.EntireRow.Delete
End If
Loop While Not Rng Is Nothing
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
WHAT IF you have a big sheet, and there are rows you want to keep, and others rows that contain certain key words and delete those? the kutools work for me but for one key word that many rows have that key word, the rows were deleted, i just want to have multiple key words to do the same? does this work for the code above?
This comment was minimized by the moderator on the site
Good Day,
Kutools can deal with two key words at the same time. You need to enable its second condition with "And" or "Or". Hope I can help.
This comment was minimized by the moderator on the site
This didn't work for me. It changed all values in my chosen column and the adjacent column to zeros. I must be doing something wrong!
This comment was minimized by the moderator on the site
Hi Sheri,
The code works well in my case. Which Excel verson do you use?
This comment was minimized by the moderator on the site
Hi Crystal. I posted this two years ago so I’m guessing I figured it out. But thanks for the reply.
This comment was minimized by the moderator on the site
Hi dears , I need a code to hide the rows which have the value=0 on the column "N" in the sheet 1. The value of the column "N" will change when update the details on the Sheet 2. that's the time need to un-hide the row. is this possible to do this with Excel formula(without macro and Excel Filters).
This comment was minimized by the moderator on the site
modified for my purpose--thank you for your help: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Set the range you want to remove the unused 0 quantity rows from" 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 "Removed 0's ROWS from column FG--calculating now--please wait" Application.Calculation = xlAutomatic End Sub
This comment was minimized by the moderator on the site
I modified the below code to work for me. This deleted every row in column C that had "Delete" in the cell of column 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
This comment was minimized by the moderator on the site
Hi,
its worked for me, thanks a lot.
if I have multiple sheets? how i can run the script 1 time for all the sheets?
This comment was minimized by the moderator on the site
thanks for the response, worked for me
This comment was minimized by the moderator on the site
I modified the above code to work for me. I wanted to delete every row that had "Delete" in row 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
This comment was minimized by the moderator on the site
Your VB code doesn't work. It deletes all rows with a Zero in the 10s position. I hope no one actually uses this as they will delete data...
This comment was minimized by the moderator on the site
This was a life saver!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations