In questo articolo, creeremo una macro per eliminare i record incompleti che contengono celle vuote.
I dati grezzi sono costituiti da alcuni dati di esempio, che includono Nome, Età e Sesso. Contiene anche alcune celle vuote.
Vogliamo rimuovere quei record che contengono celle vuote.
Spiegazione logica
Abbiamo creato la macro "BlankRowDeletion" per eliminare i record incompleti. Cerca e seleziona le celle vuote e quindi elimina l'intera riga che contiene una cella vuota.
Spiegazione del codice
Imposta Rng = Intervallo ("A9: C" & Ultima riga)
Il codice sopra viene utilizzato per creare un oggetto intervallo per i dati forniti.
Rng.SpecialCells(xlCellTypeBlanks).Seleziona
Il codice sopra viene utilizzato per selezionare celle vuote all'interno dell'intervallo specificato.
Selezione.InteraRiga.Elimina
Il codice sopra viene utilizzato per eliminare l'intera riga per la cella selezionata.
Si prega di seguire sotto per il codice
Option Explicit Sub BlankRowDeletion() 'Dichiarazione delle variabili Dim LastRow As Long Dim Rng As Range 'Ottenimento del numero di riga dell'ultima cella LastRow = Range("A1").SpecialCells(xlCellTypeLastCell).Row 'Selezione di tutti i dati Set Rng = Range("A9 :C" & LastRow) 'Selezione celle vuote Rng.SpecialCells(xlCellTypeBlanks).Select 'Eliminazione riga completa Selection.EntireRow.Delete Range("A9").Select End Sub
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica