Comment supprimer des lignes contenant des valeurs manquantes ou des cellules vides dans certaines colonnes dans Excel ?
Dans Excel, gérer les valeurs manquantes ou les cellules vides peut être essentiel pour le nettoyage et l'analyse des données. Ce guide montre comment supprimer des lignes entières si des cellules vides sont trouvées dans des colonnes spécifiques en utilisant un script VBA.
Supprimer des lignes avec des valeurs manquantes ou des cellules vides dans certaines colonnes avec du code VBA
Supposons que vous souhaitiez supprimer des lignes si une valeur manquante existe dans les colonnes B ou D, comme illustré dans la capture d'écran ci-dessous. Vous pouvez exécuter le code VBA suivant pour y parvenir.
1. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Insertion > Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Code.
Code VBA : Supprimer des lignes avec des valeurs manquantes ou des cellules vides dans certaines colonnes
Sub DeleteRows()
Dim I As Integer
Dim xCount As Integer
Dim xRg As Range
Dim xTxt As String
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "You can’t select multiple ranges to operate", vbInformation, "Kutools for Excel"
Exit Sub
End If
xCount = xRg.Rows.Count
For I = xCount To 1 Step -1
If Application.WorksheetFunction.CountBlank(xRg.Rows(I)) > 0 Then
xRg.Rows(I).EntireRow.Delete
End If
Next
End Sub
3. Appuyez sur la touche F5 pour exécuter le code. Une boîte de dialogue Kutools for Excel apparaît, veuillez sélectionner la plage de colonnes que vous souhaitez vérifier pour voir s'il existe des valeurs manquantes, puis cliquez sur le bouton OK.
Après avoir cliqué sur le bouton OK, toutes les lignes contenant des valeurs manquantes dans les colonnes B ou D sont immédiatement supprimées. Voir la capture d'écran :
Remarque : Vous ne pouvez pas sélectionner plusieurs plages à traiter simultanément. S'il existe des valeurs manquantes dans plusieurs colonnes et que vous souhaitez supprimer toutes les lignes, répétez l'étape 3 pour chaque colonne individuellement.
Remplir facilement toutes les cellules vides avec une certaine valeur dans Excel
L'utilitaire Remplir les cellules videsde Kutools for Excel vous aide à gérer facilement les cellules vides dans Excel. Par exemple, vous pouvez remplir toutes les cellules vides dans une plage sélectionnée avec une valeur fixe, remplir les cellules vides en fonction de la valeur au-dessus, en dessous, à gauche ou à droite, ou encore remplir les cellules vides avec des valeurs linéaires. Voir la capture d'écran :
Kutools pour Excel - Boostez Excel avec plus de 300 outils essentiels. Profitez de fonctionnalités IA gratuites en permanence ! Obtenez-le maintenant
Articles connexes :
- Comment supprimer des lignes si une cellule est supérieure/inférieure à une certaine valeur dans Excel ?
- Comment supprimer toutes les lignes sauf la première ligne d'en-tête dans Excel ?
- Comment supprimer toutes les lignes sous une certaine ligne ou cellule active dans Excel ?
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office, et facilite grandement votre travail
- Activez la modification 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é de50 %, et réduit des centaines de clics de souris pour vous chaque jour !