< návrat zpět
MS Excel
Téma: Vymazání každého druhého řádku 
Zaslal/a JaVa 16.12.2013 0:22
Dobrý den všem,
chtěl bych velice poprosit o pomoc s naprogramováním jednoduchého makra. Předpokládám že pro zkušené uživatel to bude hračka, pro mě nadlidský úkol :(
Jedná se mi o to, že mám asi 25000 řádků, ale potřeboval bych každý druhý vymazat, tak aby ve výsledku vznikl nepřetřitý list s 12500 řádky. Konkrétně jde o to, že mám z měření meteo údajů záznam dat za jeden rok po 15 minutách (co 15 min sada dat v jednom řádku). Ovšem potřebuji tyto meteodata přiřadit do druhého souboru, kde mám data po 30 minutách, tak aby časově seděli na sebe. Proto potřebuji každý druhý řádek smazat, nebo data někam překopírovat. Děkuji všem za případnou pomoc. Honza
Palooo(16.12.2013 8:51)#016807 
toto sa tu tolko krat riesilo ze staci si tu precitat kazdu druhu temu co tu je a mate to hotove :)
ale pre zopakovanie rakto:
For x = 12500 To 1 Step -2
Rows(x).Delete
End Sub
ochvilu ma eLCHa opravi ze preco to robim takto komplikovane :) ked to ide urobit cez nejaky special ... uz ani neviem presne ako sa vola ten prikaz ale ked vas zaujima to lepsie riesenia tak si ho najdite je to asi 1-2tyzdne stara tema
citovat
eLCHa(16.12.2013 10:08)#016812
;)
neopravím na SpecialCells, protože tady to nebude to pravé. Tady to konečně asi bude ten Set. Nebo mně napadá, že by šlo možná využít Autofilter+Pouze viditelné buňky (a bude to bez kódu), ale to by bylo třeba vidět data ;).
A budu rychlejší ;)))
citovatJaVa(16.12.2013 13:47)#016813 Panove,
sice nevim o cem mluvite, ale dekuji za pomoc! Pouzil jsem nakonec ten kod z doporucene diskuze, a i kdyz s problemy, vec se zadarila.. Asi jako kdyz zena opravuje auto, nebo kdyz muz zehli, ale nakonec to funguje.. Takze jeste jednou diky!
citovat
RSS nejnovější články