Dans cet article, nous allons créer une macro pour supprimer les enregistrements incomplets contenant des cellules vides.

Les données brutes se composent de quelques exemples de données, notamment le nom, l’âge et le sexe. Il contient également des cellules vides.

ArrowRawData

Nous voulons supprimer les enregistrements contenant des cellules vides.

ArrowOutput

Explication logique

Nous avons créé une macro «BlankRowDeletion» pour supprimer les enregistrements incomplets.

Il recherche et sélectionne les cellules vides, puis supprime la ligne entière qui contient une cellule vide.

Explication du code

Définir Rng = Range (« A9: C » & LastRow)

Le code ci-dessus est utilisé pour créer un objet de plage pour les données données.

Rng.SpecialCells (xlCellTypeBlanks) .Select Le code ci-dessus est utilisé pour sélectionner des cellules vides dans la plage spécifiée.

Selection.EntireRow.Delete Le code ci-dessus est utilisé pour supprimer la ligne entière de la cellule sélectionnée.

Veuillez suivre ci-dessous pour le code

Option Explicit

Sub BlankRowDeletion()

'Declaring variables

Dim LastRow As Long

Dim Rng As Range

'Getting row number of last cell

LastRow = Range("A1").SpecialCells(xlCellTypeLastCell).Row

'Selecting all data

Set Rng = Range("A9:C" & LastRow)

'Selecting Blank cells

Rng.SpecialCells(xlCellTypeBlanks).Select

'Deleting complete row

Selection.EntireRow.Delete

Range("A9").Select

End Sub

Si vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.

Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer notre travail et l’améliorer pour vous. Écrivez-nous à [email protected]