
Sub elimina_intestazioni()
Dim ur As Integer, i As Integer
Application.ScreenUpdating = False
ur = Cells(Rows.Count, 1).End(xlUp).Row
For i = ur To 2 Step -1
If Cells(i, 1) = Trim("User") Or WorksheetFunction.Count(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub
|
