Автозаполнение вниз в соответствии с соседней колонкой - программирование
Подтвердить что ты не робот

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

Я ищу код 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)

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

4b9b3361

ОТВЕТЫ

Ответ 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