Jak wyznaczyć ostatnią niepustą komórką w wierszu? Bardzo podobnie jak w przypadku ostatniego wiersza w kolumnie.
Wykorzystywana jest właściwość obiektu Range czyli Range.End.
Na przykładzie takiego arkusza:
Chcąc znaleźć adres ostatniej komórki w wierszu 1 możemy skorzystać
np. z takiego kodu:
| Public Sub OstatniWiersz() Dim OstKom1 Dim OstKom2 OstKom1 = Range(„A1”).End(xlToRight).Address OstKom2 = Cells(1, Columns.Count).End(xlToLeft).Address End Sub |
OstKom1 – od komórki A1 szukana jest ostatnia niepusta komórka w prawo
OstKom2- od ostatniej komórki w wierszu (wyznaczonej przez liczbę kolumn) w lewo. Ten sposób jest najczęściej stosowany i najbezpieczniejszy.
A tu możesz mi postawić kawę:
