автозаполнение вниз в соответствии с соседней колонкой

Question

Я ищу код VBA, который будет автоматически заполнять данные в соответствии с длиной соседнего столбца. Я знаю, что есть несколько способов, чтобы идти об этом, но лучше всего ?:

If LastRow > Selection.Row Then 
    Range("D2").AutoFill Destination:=Range("D2:D" & LastRow) 

или что-то вроде:

If Not IsEmpty(ActiveCell.Offset(0,1)) Then 
    Range("D2").AutoFill Destination:=Range("D2:D" & LastRow) 

Я уверен, что ни одна из этих работ, как именно я хочу так что мне не хватает?

Answer 1

Нет необходимости в каких-либо условиях. Мы можем получить последнюю использованную строку столбца C и соответственно заполнить данные в столбце D.

Sub test() 

    Dim lastRow As Long 
    lastRow = Range("C" & Rows.Count).End(xlUp).Row 
    Range("D2").AutoFill Destination:=Range("D2:D" & lastRow) 

End Sub