< návrat zpět

MS Excel

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

Zaslal/a libres 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 Poki(23.3.2011 13:44)#004414
Poki
a co chcete eliminovat?
Vzdy ten prazdy radek?
chcete ho skryt nebo odstranit?citovat
libres(24.3.2011 13:48)#004430
avatar
odstranitcitovat
icon Poki(28.3.2011 12:53)#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 icitovat
misocko(28.3.2011 20:16)#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
Roman(30.3.2011 13:44)#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
misocko(31.3.2011 19:44)#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
richard99(1.4.2011 9:00)#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 Poki(1.4.2011 9:29)#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 Subcitovat
riuchard99(1.4.2011 10:45)#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
user5487(9.2.2015 13:45)#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

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje