Sommario
Elimina righe vuote
Il modo più ovvio per rimuovere le righe vuote da un set di dati è semplicemente ordinare i dati. Questo sposta le righe vuote nella parte inferiore dei dati e le "rimuove". Ma cosa succede se si desidera rimuovere le righe vuote, tuttavia non si desidera che i dati vengano ordinati? VBA.
La seguente macro rimuoverà le righe vuote senza alcun ordinamento (disattiva l'aggiornamento dello schermo per andare più veloce).
Sub DeleteBlankRows() Dim x As Long With ActiveSheet For x = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 If WorksheetFunction.CountA(.Rows(x)) = 0 Then ActiveSheet.Rows(x).Delete End If Next End With End Sub
