Двойной щелчок внизу справа от автозаполнения

Question

кажется здесь простым вопросом, но есть ли код, имитирующий двойной щелчок в правом нижнем углу маркера заливки? Таким образом, я выбрал бы 3 ячейки из столбцов A, B и C; и автозаполнение должно дублировать значения внутри всех пробелов в A, B и C до тех пор, пока не останется больше пробелов в C.

к этому:

Answer 1

Попробуйте:

Sub FillDown()
    Dim rng As Range

    Set rng = Range(Selection, Selection.End(xlDown))
    Set rng = rng.Resize(rng.Rows.Count - 1, rng.Columns.Count)

    rng.FillDown
End Sub