Wpis z mikrobloga

@xstempolx: Sub usuwanie()
Dim ostWiersz As Long

ostWiersz = Range("A65536").End(xlUp).Row

Do While ostWiersz > 0
If IsError(Cells(ostWiersz, 1)) Or IsError(Cells(ostWiersz, 2)) Then Rows(ostWiersz).Delete
ostWiersz = ostWiersz - 1
Loop
End Sub

dla jednej kolumny
@mate05: Z innej strony. Jeśli chcesz tylko zmienić zawartość z DZIEL0 na inną to może po prostu ctrl+h (znajdź/zamień)? Dołączam się do pytania po co chcesz ogarnąć cały arkusz, nawet bardzo proste makro będzie przeszukiwało cały arkusz baaaaaardzo długo, o ile oczywiście masz odpowiednią ilość ramu na takie akcje... ( ͡º ͜ʖ͡º)