
riga = 12 if cells(riga,3) = cells(2,3) then rows(riga).delete |
Sub elimina() Dim i As Long Dim valC1 As Variant valC1 = Cells(1, 3).Value For i = Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1 If Cells(i, 3).Value = valC1 Then Rows(Cells(i, 3).Row & ":" & Cells(i, 3).Row).Delete Next i End Sub |
