< návrat zpět

MS Excel


Téma: Odstranění prázdných ř rss

Zaslal/a 15.3.2011 8:51

Dobrý den,některé importované soubory se zobrazují jako řádek dat a prázdný řádek, Jde to nějak jednoduše eliminovat?
Děkuji

stop Uzamčeno - nelze přidávat nové příspěvky.

icon #004414
Poki
a co chcete eliminovat?
Vzdy ten prazdy radek?
chcete ho skryt nebo odstranit?citovat
#004430
avatar
odstranitcitovat
icon #004448
Poki
pokud neni vice prazdnyh radku na sebou, tak bude fungovat toto:For i = 1 To Cells(65000, 1).End(xlUp).Row
If Len(Cells(i, 1)) = 0 Then
Rows(i).Delete
End If
Next i
citovat
#004453
avatar
Doplnim Pokiho kod aby mazal aj viac prazdnych riadkov

For i = 1 To Cells(65000, 1).End(xlUp).Row
If Len(Cells(i, 1)) = 0 Then
Rows(i).Delete
i = i - 1
End If
Next i
citovat
#004472
avatar
Tvůj kód se musí zacyklit, když i zmenšíš o jedničku, tak nemůžeš dosáhnout konce, všechny řádky za posledním jsou prázdné, viz nastavení cyklu.citovat
#004484
avatar
a pardon mas pravdu zabudol som ze ked som to pouzival tak som musel vyskocit podmienkov - ja som mal najviac tri riadky prazdne ak boly styry po sebe tak som ukoncoval cykluscitovat
#004489
avatar
Samozřejmě je problém s více prázdnými řádky v tom, že když vymažu např řadek 2 na řádek se dostane půnodní řádek 3, na řádku 3 je řádek, který měl původně č 4 a původní řádek č 3 se vyhne kontrole. Tomu lze předejít tím, že začnu s mazáním od řádku s nejvyšším číslem.citovat
icon #004494
Poki
Zkuste tohle:
Sub SmazRadky()
For i = 1 To Cells(65000, 1).End(xlUp).Row
If i = Cells(65000, 1).End(xlUp).Row Then Exit Sub
Do Until Len(Cells(i, 1)) > 0
Rows(i).Delete
Loop
Next i
End Sub
citovat
#004496
avatar
nebo tohle

Sub SmazRadky()

For i = Cells(65000, 1).End(xlUp).Row To 1 Step -1
If Len(Cells(i, 1)) = 0 Then Row(i).Delete
Next i

End Subcitovat
#023559
avatar
Zdravím,

já používám k odstranění prázdných řádků makro z těchto stránek:
http://www.remake.cz/odstraneni-prazdnych-radku-v-sesitu-ms-excel/

Snad pomůže.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09