Excel použitá oblast buněk

[Rich]

Vzpomínám si, že existuje způsob, jak získat adresu pravého dolního rohu všech vyplněných buněk v sešitu, ale už jsem to zapoměl. Je to něco jako current region. Moc bych to potřeboval. Nevzpomene si někdo.

[Reklama]

[mikel]

Jediné, co mě napadá je:

Range("A1").CurrentRegion.End(xlDown).End(xlToRight).Address

Ale v tom případě Range(buňka) musí být uvnitř tabulky.

[Rich]

Dík

Range("A1").CurrentRegion.End(xlDown).End(xlToRight).Address

To funguje, ale není to přesně ono, myslel jsem mít možnost vybrat vše, co je v sešitu napsáno.

[mikel]

Takže,

a) za předpokladu, že buňka A1 je vždy ve vyplněné oblasti

Kód: Vybrat vše

Range(Range("A1"), Range("A1").CurrentRegion.End(xlDown).End(xlToRight)).Select

b) pokud není buňka A1 pokaždé v tabulce, ale aktivní buňka musí být uvnitř oblasti

Kód: Vybrat vše

Range(ActiveCell.CurrentRegion.End(xlUp).End(xlToLeft),ActiveCell.CurrentRegion.End(xlDown).End(xlToRight)).Select