Kopieren Sie unvollständige Daten auf ein neues Blatt mit VBA in Microsoft Excel
auf ein neues Blatt In diesem Artikel erstellen wir ein Makro, um unvollständige Daten auf ein neues Blatt zu kopieren.
Die Rohdaten für diesen Artikel bestehen aus Gehaltsdaten, die einige unvollständige Aufzeichnungen enthalten.
Wir möchten die Aufzeichnungen der Mitarbeiter kopieren, deren Gehaltsangaben fehlen. Durch Klicken auf die Schaltfläche werden unvollständige Datensätze in das Blatt „BlankRecords“ verschoben.
Logische Erklärung
In diesem Artikel haben wir das Makro „CopyEmptys“ erstellt, um fehlende Datensätze in das Blatt „BlankRecords“ zu kopieren. Es überprüft die Spalte Gehalt auf leere Datensätze. Wenn ein leerer Datensatz gefunden wird, kopiert er diesen Datensatz in das Blatt „BlankRecords“.
Code Erklärung
intRowL = Cells (Rows.Count, 1) .End (xlUp) .Row Above Code wird verwendet, um die Zeilennummer der letzten Zelle abzurufen.
IsEmpty (Cells (intRow, 4))
Der obige Code wird verwendet, um zu überprüfen, ob das genannte Gehalt leer ist.
Bitte folgen Sie unten für den 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
Wenn dir dieser Blog gefallen hat, teile ihn mit deinen Freunden auf Facebook und Facebook.
Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]