Как autofill относительно в excel

Question

Я попытался сделать VBA, который заполняет ячейки информацией. Проблема в том, что я хочу определить диапазон относительно. Я сделал функцию, которая вычисляет, когда процесс автозаполнения должен завершиться. Поэтому вместо диапазона Range("f3:f5") должно быть Range("f3:D2")

Я приложил фотографию своей таблицы, которая, надеюсь, сделает все намного понятнее.

Sub myautofill() 
Range("F3").Value = "=R[-1]C+1" 
Range("F3").Select 
Selection.AutoFill Destination:=Range("f3:f5") 
End Sub 

enter image description here

Answer 1

Вы можете использовать содержание D2 в различных формах, таких как Cells или Range.

Я предпочитаю диапазон, и вы могли бы сделать это следующим образом:

Selection.AutoFill Destination:=Range("f3:" & Range("D2").Value) 

Результат будет диапазон от F3 к тому, что у вас есть вход в D2, что в случае вашего экрана будет F12. Значение компилятора интерпретирует это так:

Selection.AutoFill Destination:=Range("f3:f12")