Столбец Autifil на основе данных другого столбца

Question

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

Чтобы объяснить, я хочу, чтобы автозаполнение заполняло только ячейки на основе соседних ячеек столбца (столбца I / S). Между рядами могут быть пропуски, и это следует пропустить и продолжить до последнего ряда.

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

Буду признателен за любую помощь, чтобы получить эту работу.

Код, который я использую для автозаполнения, приведен ниже. Результат тоже на картинке.

Dim Name As String
For Each C In Range("H2:H" & Cells(rows.Count, 2).End(xlUp).Row)
    If Cells(C.Row, 1) > "" Then
        Name = Cells(C.Row, 1)
    Else
        Cells(C.Row, 1).Value = Name
    End If
Next

Кроме того, по какой-то причине этот код всегда автоматически заполняет столбец A. Как я могу связать его со столбцом, который мне нужен для выполнения автоматического заполнения?

Данные и результаты

Примечание: значения могут быть любыми (1 и 4 только для справки)

Спасибо!

Answer 1

Else
    Cells(C.Row, 1).Value = Name

назначает значение ячейки в столбце A из-за ,1.Измените 1 на числовое значение столбца, в который вы хотите заполнить данные.

Пример: если вы хотите, чтобы данные заполнялись в столбце C, вы должны использовать:

Else
    Cells(C.Row, 3).Value = Name