Ten kod pozwala usunąć puste wiersze. Oczywiście można również pomiędzy "" wpisać jakiś tekst i wtedy usunięte będą wszystkie wiersze w których mamy taki tekst. Wyszukiwanie możemy rozpocząć o wiersza którego wartość określona jest w pierwszej linii po Row to a kolumne zmienić w drugiej linii obecnie jest A a może być inna.
For i = Cells(65536, "A").End(xlUp).Row To 2 Step -1
If Cells(i, "A").Value = "" Then
Rows(i).Delete shift:=xlUp
End If
Next
Brak komentarzy:
Prześlij komentarz