Dzień dobry.
Mam w arkuszu kolumnę, wypełnioną danymi. Powiedzmy, że to kolumna "A". Powiedzmy też, że nie znam dokładnej liczby wierszy danych, w tej kolumnie, jednak mam pewność, że nie ma w niej pustych wierszy. W jaki sposób mogę wybrać zakres obejmujący wszystkie wiersze, z danymi, z tej kolumny?
Dim zakres As Range
Set zakres = Range("A1")
Próbowałem użyć metody Resize, jednak wieszał się wtedy program
Proszę o pomoc.
Dziękuję.
PS. Dodam, że wiem, że mogę, na sztywno wpisać zakres:
Set zakres = Range("A1:A42")
jednak wtedy, po dodaniu nowych danych, będę musiał za każdym razem modyfikować kod.
Edycja:
OK, już znam rozwiązanie. Należało użyć funkcji ILE.NIEPUSTYCH, która, z poziomu VBA, nazywa się CountA
Set zakres = Range("A1:A" & Application.WorksheetFunction.CountA(Columns("A")))