| Jak usunąć puste wiersze z tabeli? |
|
Problem: Potrzebuję usunąć puste wiersze z tabeli (tutaj zaznaczone na zielono). ![]() Rozwiązanie: Możesz skorzystać np. z takiego makra, które usuwa puste wiersze (warunek jest taki, że w każdym wierszu tabeli nie może się znajdować żadna niepusta komórka - w przeciwnym razie procedura zmieni nieco strukturę danych). Sub KasowaniePustychWierszy() 'Kasuje puste wiersze z tabeli 'metoda SpecialCells pozwala na zaznaczenie 8192 nieciaglych zakresow With Arkusz1 .Range("A1", .Range("D" & .Rows.Count).End(xlUp)).SpecialCells(Type:=xlBlanks).Delete End With End Sub |
|
| Zmieniony ( Środa, 30. Czerwiec 2010 10:34 ) |
.jpg)