
Sub elimina_riga()
Dim rigaD, ColN
Dim r, c
rigaD = Range("D" & Rows.Count).End(xlUp).Row
ColN = 0
For r = rigaD To 1 Step -1
If Cells(r, 4) = "" Then
For c = 1 To 30
If Cells(r, c) <> "" Then ColN = ColN + 1
Next c
If ColN = 0 Then
Cells(r, 4).Select
Selection.EntireRow.Delete
End If
End If
ColN = 0
Next r
End Sub |
