In questo articolo, creeremo una macro per copiare dati incompleti in un nuovo foglio.

I dati grezzi per questo articolo sono costituiti da dati sugli stipendi, che includono alcuni record incompleti.

ArrowMain

Vogliamo copiare i record di quei dipendenti di cui mancano i dettagli dello stipendio. Facendo clic sul pulsante si sposteranno i record incompleti nel foglio “BlankRecords”.

ArrowOutput

Spiegazione logica

In questo articolo, abbiamo creato la macro “CopyEmptys” per copiare i record mancanti nel foglio “BlankRecords”. Controlla la colonna Stipendio per i record vuoti. Se viene rilevato un record vuoto, copia tale record nel foglio “BlankRecords”.

Spiegazione del codice

intRowL = Cells (Rows.Count, 1) .End (xlUp) .Row Il codice sopra viene utilizzato per ottenere il numero di riga dell’ultima cella.

IsEmpty (Cells (intRow, 4))

Il codice sopra viene utilizzato per verificare se lo stipendio indicato è vuoto.

Segui sotto per il codice

Range (.Cells (intRowT, 1), .Cells (intRowT, 3)). Value = Range (Cells (intRow, 1), Cells (intRow, 3)). Il valore sopra il codice viene utilizzato per avere una copia del codice mancante registrare dal foglio principale al foglio “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

Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook e Facebook.

Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]