Sarakkeen viimeisen käytetyn solun valinta, tyhjiä

Range("C6:C" & Range("C" & Rows.Count).End(xlUp).Row).Select

C-sarakkeessa viimeinen rivi {Range("C" & Rows.Count)}
Sitten ctrl nuoliylös {End(xlUp)}
tästä otetaan rivinumero {.row}
joka yhdistetään alkuosaan {"C6:C" &}

http://stackoverflow.com/questions/8283797/return-a-range-from-a1-to-the-true-last-used-cell

Näppäimistöllä ctrl alas kunnes alin rivi
ctrl ylös
ctrl shift ylös kunnes rivi 1 (alhaalta laskien ensimmäinen)

LibreOffice tavalla näin

- Ctrl End
- Home
- Ctrl Shift Home

Cells.Find("*", cells(1,ActiveCell.Column 1), xlFormulas, , xlByColumns, xlPrevious).select

Tuo hakee taaksepäin. Aloitussolua ei lasketa mukaan. Siksi haku alkaa suurimmasta rivinumerosta edellisestä sarakkeesta (laskuri pyörähtää ympäri). Sama kait jos hakisi funktiolla suurimman rivinumeron ja käyttäisi sitä. Kumpi parempi?

Sub ViimeinenTaytettySolu()

' Valitsee vimeisen ei-tyhjän solun sarakkeesta jonka solu on valittu

Cells.Find("*", Cells(1, ActiveCell.Column 1), _
xlFormulas, , xlByColumns, xlPrevious).Select

End Sub

Näyttäisi toimivan. Rivi jaettu kahdelle riville alaviivalla.