Установить диапазон до конца столбца в Vba?

Question

У меня очень простая проблема, которая меня немного раздражает. Я хочу установить переменную в диапазоне в Excel, где последний ряд всегда отличается.

Set d = Worksheets("sheet1").Range(("A3":Range("A3".End(xlDown))))

Я пробовал разные варианты этого, но, похоже, ни один из них не работает. Диапазон находится на другом листе, если это вызывает какие-либо проблемы.

Есть ли простой способ решить эту проблему?

Answer 1

Используйте это:

With Worksheets("sheet1")

Set d = .Range("A3:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)

End With