Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - 23. Ostatni wiersz

toxic · Excel Expert Posty: 357

Przy bardzo wielu makrach konieczne jest odnalezienie ostatniej komórki w danej kolumnie wypełnionej danymi.
Jeśli obszar jest spójny (nie ma pustych komórek w środku, wystraczy (tu dla kolumny A):

Kod:

ostatnia = Range("A1").End(xlDown)

Jeśli pomiędzy wypełnionymi obszarami istnieją przerwy można wykorzystać następujący kod:

Kod:

ostatnia = WorksheetFunction.CountA(Columns(1))
If ostatnia <> 0 Then ostatnia = Columns(1).Find(What:="*", After:=Cells(1, 1), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

Wyznaczenie ostatniej komórki może być przydatne np do określenia, gdzie mają być wpisywane kolejne dane. Wystarczy wtedy przejść do kolejnego rzędu:

Kod:

pierwsza_pusta = ostatnia.offset(1,0)

waldek_r · słuchacz Posty: 5

W jaki sposób zmodyfikować powyższy kod, aby móc wyszukać Ostatni wiersz w dowolnym Arkuszu.

Np. kod makro przypisany jest do Arkusza1 i chcemy dowiedzieć się, jaki jest ostatni wiersz w Arkusz2.

[ Dodano: 2007-08-02, 16:04 ]
Rozwiązanie okazało się proste:

Kod:

ostatnia = WorksheetFunction.CountA(Sheets(3).Columns())
If ostatnia <> 0 Then ostatnia = Sheets(3).Columns().Find(What:="*", After:=Cells(1, 1), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

Piotr_Korbicz · Excel Expert Posty: 534

rozwiązanie

Kod:

ostatnia = Range("A1").End(xlDown)

to nic innego jak wykonanie ruchu klawiaturowego CTRL + strzałka w dół
Lecz zdarza się, że Excel głupieje i zamiast do ostatniej wypełnionej komórki po wykonaniu tego ruchu przechodzi na koniec arkusza - do ostatniego wiersza

Ja stosują zamiennie nastepujące rozwiązania:

1. Jeśli dane mają formę lisy (nie ma między nimi pustych wierszy)

Kod:

ostatnia = Range("A1").CurrentRegion.Rows.Count

2. Jeśli dane mają nieciekawą formę

Kod:

ostatnia = Range("A1").UsedRange.Rows.Count

LAnd · Excel Expert Posty: 609

CurrentRegion - zgłosi błąd w chronionym arkuszu
UsedRange - obejmie puste komórki ale ze sformatowanym np. obramowaniem

metoda Find "zawija" obszar przeszukiwany i poprzednia komórka ( xlPrevious ) dla pierwszej komórki zakresu Zakres.Cells(1,1) poprzednią komórką będzie ostatnia komórka tego zakresu ( prawa dolna ) i od niej rozpocznie się przeszukiwanie wierszami ( xlByRows ) od końca ( xlPrevious ) każdego wiersza

Kod:

Function OstatniWierszNiePusty(Zakres As Range) As Long
On Error Resume Next 'jeżeli arkusz będzie pusty
With Zakres
OstatniWierszNiePusty= .Find("*", .Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
End With
On Error GoTo 0
End Function

Lukasz · słuchacz Posty: 7

lub:

Kod:

ostatnia_niepusta = Range("A65536").End(xlUp).Row

Zaletą tego jest że nie "przeszkadzają" blanki w środku kolumny - po prostu łapie ostatni niepusty.
Edit: dotyczy Excela w wersji do 2003

Trebor · Excel Expert Posty: 2319

iskandir · Starszy Forumowicz Posty: 28

Ostatnio mialem z tym niezly problem przy imporcie danych z Accessa - znalazlem fajne rozwiazanie. Otoz gdy importujemy z Accessa, to Excel automatycznie tworzy tabele. Tabela ta ma wlasciowosc .count. Wystarczy liczbe zwrocona podzielic przez liczbe kolumn i mamy liczbe wierszy. I nie daje sie zwiesc jakims tam pustym wierszom :)

Moze komus sie kiedys przyda.

Pozdrawiam

Szarkiz · Exceloholic Posty: 153

Kod:

Dim ostatniPelnyWiersz as Long
ostatniPelnyWiersz = Activesheet.Range("B1").End(xlDown).Row

ma podstawowową wadę. Jeżeli jedynym wypełnionym wierszem będzie wiersz pierwszy (np. szukamy pierwszej wolnej komórki w kolumnie B ) i w B1 bedzie cokolwiek wpisane efektem powyższego kodu bedzie ostatni wiersz arkusza: dla Ex2003 wartosc 65536, dla Ex2007: 1048576.

Zamiast szukac ostatniego wypełnionego od góry lepiej poszukać pierwszego pełnego od dołu.

Kod:

Activesheet.Range("B" & activesheet.Rows.Count).End(xlUp).Row

wydaje sie być uniwersalniejszym rozwiązaniem.

chips · Exceloholic Posty: 242

Szarkiz · Exceloholic Posty: 153

bodek · Posty: 1679

Panie/Panowie nie odkrywajmy ponownie czegoś, co już dawno ktoś zrobił...
Trebor zadał sobie swego czasu trud i problem rozpracował -> http://excelperfect.pl/vba/50-ostatni-wiersz