Makro na označení celé oblasti pod kurzorem


Pracuji s tabulkou, která má cca 500 položek, kdy se opakuje řádek dat a prázdný řádek (export ze SAPu). Jednoduchý způsob, jak se zbavit prázdných řádků je tabulku seřadit, což znamená označit celou oblast – nepřišel jsem na způsob, jak to udělat skrze klávesovou zkratku :( … tak jsem si napsal jednoduché makro B)

náhled zdrojového kódu
Sub OznacOblast()
 
 
  LastRow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
  LastCol = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
 
  Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(LastRow, LastCol)).Select
 
 
End Sub

2 komentáře

el
před čtyřmi lety
reagovat
Zkus
Ctrl+End
Shift+Ctrl+Home
Napis si spis makro pro smazani prazdnych radek. Serazenim prijdes o puvodni razeni, ale je pravda ze to nemusi byt potreba.
zmt
před čtyřmi lety
reagovat
funguje \:\) zkratka ctrl+shift+END

Přidejte komentář

Text komentáře musí být zadán, ostatní údaje nejsou povinné. HTML tagy nejsou povoleny.

Captcha picture.