Использование функции FillUp

Question

В моей электронной таблице я пытаюсь применить функцию FillUp к столбцу I (Тип) без перезаписи AB C. Есть ли способ, которым я могу использовать это в VBA?

Если у кого-либо есть какие-либо советы, мы будем очень признательны!

Answer 1

Вы можете попробовать следующий код:

Sub macro1()

Dim lastrow, firstrow As Long
lastrow = Range("G" & Rows.Count).End(xlUp).Row
firstrow = 2

While firstrow <= lastrow
    Range("I" & firstrow).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FillUp
    Selection.End(xlDown).Select
    firstrow = ActiveCell.Offset(1, 0).Row
Wend


End Sub