Dans cet article, nous allons apprendre à extraire un enregistrement sans critère via VBA dans Microsoft Excel.

Prenons un exemple pour comprendre comment nous pouvons mettre le filtre et sélectionner les critères, puis effectuer l’action requise: – Nous avons des données dans la plage A: colonnes G, dans lesquelles la colonne A contient le nom, la colonne b contient l’adresse, la colonne C contient la ville , la région de la colonne D, le pays de la colonne E, le numéro de téléphone de la colonne F et la colonne G contiennent des critères.

image 1

Nous voulons écrire la macro pour mettre le filtre, puis filtrer les données en fonction de Ne contient pas de données dans la colonne G, puis supprimer le Non contient des données. Et puis supprimez le filtre et affichez toutes les données.

Pour extraire l’enregistrement avec les critères Not, suivez les étapes ci-dessous:

Ouvrez la page VBA appuyez sur la touche Alt + F11 Insérez un module Ensuite, revenez au menu Insérer et cliquez sur la procédure, où vous obtiendrez la procédure si vous ne savez pas comment démarrer la macro Écrivez le code mentionné ci-dessous:

Sub Delete_NotEligible()

ActiveSheet.Range("$A$1:$G$15").AutoFilter Field:=7, Criteria1:="<>"

Rows("2:12").Select

Selection.Delete Shift:=xlUp

Range("B1").Select

Selection.AutoFilter

End Sub

  • Pour exécuter le code, appuyez sur la touche F5 du clavier.

  • Les données seront filtrées, puis selon les critères définis, les données filtrées seront supprimées.

image 2

Explication du code:

Nous avons défini la plage d’en-tête de données pour mettre le filtre avec des critères de cellules non vides dans la colonne d’éligibilité Définir dans le code pour sélectionner la ligne, puis supprimer la ligne entière * À la fin, ouvrir le filtre De cette façon, nous peut mettre le filtre sur la base de critères particuliers, puis supprimer les données.

image 48

Si vous avez aimé nos blogs, partagez-les avec vos amis sur Facebook. Et vous pouvez aussi nous suivre sur Twitter et Facebook.

Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer, compléter ou innover notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]