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.

ArrowMain

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».

ArrowOutput

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

Range (.Cells (intRowT, 1), .Cells (intRowT, 3)). Value = Range (Cells (intRow, 1), Cells (intRow, 3)). Value Le code ci-dessus est utilisé pour avoir une copie de enregistrer de la feuille principale à la feuille «BlankRecord».
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]