Заполните пустые ячейки значениями ячеек ниже

Question

Я код для заполнения значений.Это просто и может быть сделано даже без сценария.(special - blanks - = value - ctrl entr)

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

Как видно на рисунке ниже, столбец A заполняется вниз, используяcode;

Sub FillDown()
With Range("A:A")
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
End Sub

Период операций - это столбец A. Вхождения - это столбец Q. Они не все равны 1.Существуют смешанные значения.

В столбце Q содержатся данные, которые необходимо заполнить вверх.

Answer 1

Адаптировано для движения назад.Не уверен, что есть более умный способ сделать это.Над моей головой, если есть.

Sub FillDown()

Dim r As Range

For Each r In Range("A:A").SpecialCells(xlCellTypeBlanks).Areas
    r.Value = r.Offset(r.Rows.Count).Resize(1).Value
Next r

End Sub

---

До

---

После