Tu sei qui: Home » Office » Excel

Eliminare le righe vuote

Public Sub mEliminaRigheVuote()
Dim nr As Long
Dim l As Long
   
With ActiveSheet
  nr = .Range("A65536").End(xlUp).Row
  For l = nr To 1 Step -1
    If .Cells(l, 1).Value = 0 Then
      .Rows(l).Delete Shift:=xlUp
    End If
  Next l
           
  .Cells(1, 1).Select
           
End With
End Sub