Copier des données incomplètes à une nouvelle feuille en utilisant VBA dans Microsoft Excel
Dans cet article, nous allons créer une macro pour copier des données incomplètes dans une nouvelle feuille.
Les données brutes de cet article se composent de données sur les salaires, qui comprennent des enregistrements incomplets.
Nous voulons copier les enregistrements des employés dont les détails de salaire sont manquants. Cliquez sur le bouton pour déplacer les enregistrements incomplets vers la feuille «BlankRecords».
Explication logique
Dans cet article, nous avons créé une macro «CopyEmptys» pour copier les enregistrements manquants dans la feuille «BlankRecords». Il vérifie la colonne Salaire pour les enregistrements vides. Si un enregistrement vierge est rencontré, il copie cet enregistrement sur la feuille «BlankRecords».
Explication du code
intRowL = Cells (Rows.Count, 1) .End (xlUp) .Row Le code ci-dessus est utilisé pour obtenir le numéro de ligne de la dernière cellule.
IsEmpty (Cellules (intRow, 4))
Le code ci-dessus est utilisé pour vérifier si le salaire mentionné est vide.
Veuillez suivre ci-dessous pour le code
Option Explicit Sub CopyEmptys() 'Declaring variables Dim intRow As Integer, intRowL As Integer, intRowT As Integer 'Getting row number of last cell intRowL = Cells(Rows.Count, 1).End(xlUp).Row 'Looping from 10th row to last cell For intRow = 10 To intRowL 'Checking the fourth column whether it is empty If IsEmpty(Cells(intRow, 4)) Then With Worksheets(2) 'Getting row number of row next to last row intRowT = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 'Inserting data to "BlankRecords" sheet .Range(.Cells(intRowT, 1), .Cells(intRowT, 3)).Value = _ Range(Cells(intRow, 1), Cells(intRow, 3)).Value End With End If Next intRow 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 le rendre meilleur pour vous. Écrivez-nous à [email protected]