excel - pomoc - posun riadkov

hiba · Napísal **hiba**: 10.06.2009 15:56

Ahoj, nevie mi niekto poradit s takymto problemom v exceli?
Mam stlpec s hodnotami - pribliozne 80 riadkov. Niektore bunky v tomto stlpci su prazdne.
Existuje nejaka moznost ako automaticky posunut zvysne hodnoty stlpca vyssie, tak aby tam uz nebola prazdna bunka?

Priklad stlpec so 6 hodnotami
1. riadok - 12
2. riadok - 4
3. riadok - prazdny
4. riadok - 9
5. riadok - 8
6. riadok - 11
Chcem aby sa hodnoty zo 4.,5. a 6. riadku automaticky posunuli o riadok, aby tam nebola ziadna prazdna bunka
Vdaka. Ocenil by som riesenie bez VBA.

p360t · Napísal **p360t**: 10.06.2009 19:23

Makro pre Excel 2007. Tento kód vymaže vždy celý riadok, v ktorom je v prvom stĺpci prázdna bunka; berie sa do úvahy aktívny Workbook a aktívny Worksheet. Ak to chceš pre iný stĺpec, stačí zmeniť v treťom riadku tie "A" na iné písmeno.

Kód:

Sub DeleteEmptyRows()
    Dim c, i As Long
    c = Range(Range("A1"), Range("A104576").End(xlUp)).Rows.count
    For i = c To 1 Step -1
        If Rows(i).Cells(1, 1) = "" Then
            Rows(i).Delete Shift:=xlUp
        End If
    Next i
End Sub

A ešte niečo: nefunguje to, ak niekto píše "odspodu", to znamená od 104567. riadku (ale nikto normálny tak nepíše, takže pre limitne 100% prípadov je to OK).

PaloPa · Napísal **PaloPa**: 20.07.2009 11:50

hiba píše:

... Ocenil by som riesenie bez VBA.

bez VBA:
1) Označiť celú oblasť o ktorú ide
Tip: postaviť sa na prvú ľavú hornú bunku, CRTl+SHIFT+END - označí po poslednú použitú bunku

2) Zapnúť autofilter
XL2003 - Data/Filter/Autofilter
XL2007 - záložka "Data"/ ikona "Filter"

3) Vyfiltrovať prázdne riadky
(klik na šipku pri ľubovoľnom nadpise a zvoliť "(Blanks / Prázdne)")

4) Označiť vyfitrované riadky
(napr. klik myšou na záhlavia vyfiltrovaných riadkov)

5) Vymazať označené riadky
Tip: kláv. skratka - CTRL + -(kláv mínus)

Palo

excel - pomoc - posun riadkov

PaloPa · Napísal **PaloPa**: 20.07.2009 12:12

p360t píše:

... A ešte niečo: nefunguje to, ak niekto píše "odspodu", to znamená od 104567. riadku (ale nikto normálny tak nepíše, takže pre limitne 100% prípadov je to OK).

Posledná bunka sa dá ošetriť, napr. takto:
xLastCell = Cells.SpecialCells(xlLastCell).Address
xLastCell = "A" & Mid(xLastCell, InStr(2, xLastCell, "$") + 1)

Kód:

Sub DeleteEmptyRows()
    Dim c, i As Long
    Dim xLastCell As String
    
    xLastCell = Cells.SpecialCells(xlLastCell).Address
    xLastCell = "A" & Mid(xLastCell, InStr(2, xLastCell, "$") + 1)
    
    c = Range(Range("A1"), Range(xLastCell).End(xlUp)).Rows.Count
    For i = c To 1 Step -1
        If Rows(i).Cells(1, 1) = "" Then
            Rows(i).Delete Shift:=xlUp
        End If
    Next i
End Sub

excel - pomoc - posun riadkov

Podobné témy