Hej,
Cytat:Rozumiecie o co chodzi? No - Prostsza jest jedynie budowa cepa. Nie prościej było zapytać gógla niż pisać ten post?
Uruchom makro przy niezabezpieczonym arkuszu:
Sub KasujWiersze()
Dim w As Long
w = Cells(Rows.Count, "A").End(xlUp).Row
Do While w >= 1
If Cells(w, "A").Value = "AGD - Produkty" Then
Rows(w).Delete
End If
w = w - 1
Loop
End Sub |