
Sub EliminaRigheVuote()
ActiveSheet.UsedRange.Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub |
Sub elimina_righe() Dim Intervallo As Range Dim Righe, R Set Intervallo = ActiveSheet.UsedRange Righe = Intervallo.Rows.Count Application.EnableEvents = False For R = Righe To 1 Step -1 If WorksheetFunction.CountA(Rows(R)) = 0 Then Intervallo(R, 1).EntireRow.Delete End If Next Application.EnableEvents = True End Sub |
