In questo articolo impareremo come eliminare le righe quando non ci sono dati nell'intera riga.
Di seguito è riportato lo snapshot dei dati in nostro possesso:
Il concetto alla base di questo tutorial è che se è presente una riga vuota completa nell'intervallo selezionato A1: E10, il codice vba dovrebbe eliminare quella riga.
Abbiamo bisogno di seguire i seguenti passaggi:
- Fare clic sulla scheda Sviluppatore
- Dal gruppo Codice, seleziona Visual Basic
- Inserisci il seguente codice nel modulo del foglio di lavoro corrente
Sub EliminaInteraRiga()
Dim I As Long
"Calcolo e aggiornamento dello schermo sono disattivati per accelerare la macro"
Con Applicazione
.Calcolo = xlManuale di calcolo
.ScreenUpdating = False
Per i = Selection.Rows.Count fino a 1 passaggio -1
Se WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Delete
Finisci se
Avanti io
.Calcolo = xlCalcoloAutomatico
.ScreenUpdating = True
Termina con
Fine sottotitolo
- Per prima cosa eliminiamo manualmente i dati di fila per testare il nostro codice.
- Dopo aver copiato il codice; seleziona l'intervallo A1: E10 ed elimina manualmente qualsiasi riga
- Ora esegui la macro usando il tasto ALT + F8 e seleziona DeleteEntireRow
- La riga vuota è stata eliminata e tutte le righe sottostanti sono state spostate verso l'alto.
In questo modo possiamo eliminare le righe usando vba in Microsoft Excel.
Scarica-Elimina righe in VBA