Excel – jak usunąć milion pustych wierszy po przypadkowym rozszerzeniu formuły?

Question

Witam Mam dość dziwny problem... Do sporego arkusza, który zawiera harmonogram prac (makro) postanowiłam dodać sobie kolumnę, która liczyła czas pracy (od daty realizacji odejmowałam datę złożenia zlecenia - wynik to suma dni potrzebnych na realizację zlecenia. Ponieważ zleceń jest dość dużo...

mickpr · Answer

Zaznaczyć zbędne wiersze i usunąć. Sprecyzuj - jak to nie działa? Usuń wszystko - nie tylko dane, ale i formuły! P.S. Jaka wersja Excel'a? PS.II W ostateczności skopiuj to, co cię interesuje do nowego skoroszytu.

karo0070 · Answer

Nie działa usunięcie wierszy poprzez usuń. Nawet jeśli najpierw zaznaczam wszystkie puste wiersze i DEL. Usunęłam wszystko co było w nieużywanych kolumnach i wierszach i nic...

marek003 · Answer

Bo tu chyba nie chodzi o usuwanie wierszy. W E2010 wystarczy usunąć dane i ewentualne formatowanie z komórek oraz wcisnąć zapisz i niepotrzebne wiersze znikają.

karo0070 · Answer

Normalnie tak było, ale nie działa... naprawdę... Wyłączyłam makro, wszystko najpierw DEL zapisałam i nic...

marek003 · Answer

Niestety nie wiem jak to zrobić inaczej. (oprócz przenoszenia danych do nowego arkusza).

karo0070 · Answer

Przeniesienie nie wchodzi w grę, bo to nie jest jeden arkusz, tylko kilkanaście, które są powiązane ze sobą makro... Osiwieję...

Dodano po 6 [minuty]:

Chyba nic nie wymyślę, zacznę przenosić powoli wszystko. Dzięki...

PRL · Answer

Dlatego też może okazać się, że usuwanie działa, ale trwa bardzo długo i wydaje się, że nie usuwa.

bobo · Answer

Można usuwać puste wiersze na dwa sposoby.
Pierwszy:

1. Zaznacz cały rejestr razem z wierszem nagłówka ( jak to szybko zrobić patrz PS ) i z menu Dane wybierz polecenie Filtr/ Autofiltr.
2. Rozwiń jedną z list i wybierz pozycję Puste. Widoczne będą tylko puste wiersze.
3. Zaznacz całe wiersze, które chcesz usunąć, kliknij jeden z nich prawym przyciskiem myszy i z menu podręcznego wybierz polecenie Usuń wiersz .
4. Teraz ponownie rozwiń listę, z której wcześniej korzystałaś i wybierz pozycję Wszystkie .

Drugi z VBA

Sub DeleteEmptyRows()
     LastRow = ActiveSheet.usedRange.Row - 1 + ActiveSheet.UsedRange
      _.Rows.CountApplication.ScreenUpdating = False
     For a = LastRow To 1 Step -1
     If Application.CountA(Rows(a)) = 0 Then Rows(a).Delete
     Next a
 End Sub

Pozdrówka

PS. stawiasz kursor myszy na ostatniej dolnej komórce z wciśniętym klawiszem Shift.,

karo0070 · Answer

Drugi działa... Dziękuję. Pierwszy robiłam wcześniej ale nic to nie dało. Super, wielkie dzięki Pozdrawiam

Excel – jak usunąć milion pustych wierszy po przypadkowym rozszerzeniu formuły?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Podsumowanie tematu