Ten przykład ilustruje właściwość End obiektu Range w Excel VBA. Użyjemy tej właściwości, aby wybrać zakres od aktywnej komórki do ostatniego wpisu w kolumnie.
Sytuacja:
Niektóre dane dotyczące sprzedaży w kolumnie A. Załóżmy, że z czasem będziesz dodawać więcej danych dotyczących sprzedaży.
Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:
1. Aby wybrać ostatni wpis w kolumnie, po prostu dodaj następującą linię kodu:
Zakres("A5").Koniec(xlDown).Wybierz
Uwaga: zamiast Range("A5") można również użyć Range("A1"), Range("A2") itd. Ta linia kodu jest odpowiednikiem naciśnięcia STRZAŁKI KONIEC+STRZAŁKA W DÓŁ.
Wynik po kliknięciu przycisku polecenia na arkuszu:
2. Aby wybrać zakres od komórki A5 do ostatniego wpisu w kolumnie, dodaj następującą linię kodu:
Zakres(Zakres("A5"), Zakres("A5").End(xlDown)).Wybierz
Wynik po kliknięciu przycisku polecenia na arkuszu:
3. Aby wybrać zakres od aktywnej komórki do ostatniego wpisu w kolumnie, po prostu zamień Range("A5") na ActiveCell.
Zakres (ActiveCell, ActiveCell.End(xlDown)).Wybierz
Wynik po wybraniu komórki A2 i kliknięciu przycisku polecenia na arkuszu:
Uwaga: możesz użyć stałych xlUp, xlToRight i xlToLeft, aby poruszać się w innych kierunkach. W ten sposób możesz wybrać zakres od aktywnej komórki do ostatniego wpisu z rzędu.