MS Excel

@marjankaj
Poprosím ten kód do tagu Code

Pěkné.
Člověk nikdy nedomyslí ;)) - takže teď ještě s těmi prázdnými buňkami ;)))citovat

Takže takto?
Range(Cells(1, 1), Cells(1, Columns.Count).End(xlToLeft)).Replace What:="10", Replacement:="=na()", LookAt:=xlWhole
Range(Cells(1, 1), Cells(1, Columns.Count).End(xlToLeft)).SpecialCells(xlCellTypeFormulas, 23).EntireColumn.Deletecitovat

@marjankaj
Ano - to je ono - využití chyby a pěkně bez cyklu.
Díky.

Pro puntičkáře: samozřejmě, pokud by v prvním řádku byl vzorec s chybnou hodnotou, tak to fungovat nebude.

Díky všem, kdo to zkoušeli - vždy je to stejně jenom o tom, jestli to v té hlavě vystřelí nebo ne ;)

@xlnc
držím palce
chvíli jsem uvažoval, ale nic mně zatím nenapadlo, taxem dal 2.
Zatím ;)citovat

Vzhledem k tomu, že dvouřádkový je vyřešen, tak malý rozbor:

Úloha má dvě části:
a) Vybrat desítky
- nemůžu přijít na to, jak vybrat oblast desítek (metodu, která by vracela objekt Range s desítkami v jednom kroku). Kdyby se to podařilo, tak
b) je to jasné, nasadit na objekt typu Range EntireColumn.Delete

ad a) Sort bohužel nevrací objekt, pak by se možná v jednom nechalo nasadit vyhledávání (funkce listu, Find), Offset, Resize. SpecialCells taky nevrátí rovnou buňky s desítkama, takže jen přes Replace na něco, co dokážeme vytáhnout. Autofilter + SpecialCells by to snad dokázal v jednom kroku, nicméně nefunguje horizontálně. ALe ještě ě něco napadlo, co musím zkusit...

A opačná úloha: zkuste jednořádkový (nebo co nejkratší) kód pro odstranění nedesítkových sloupců..citovat

@xlnc
ad a)
Takže jste se dostal stejně daleko, jako já ;))

Rekurze - vložte ukázku.
Bohužel mám teď fofr - to téma mně napadlo nedávno při odpovědi na jiném fóru.

Ten jeden řádek (nedesítky) už máte vyřešený nebo jen spekulujete ;). A jde o nedesítky nebo o menší než 10 ;)))
Popřemýšlím ;)citovat