Štítek


oznaceni

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