用下面的单元格值填充空白单元格

Question

我编码以填写值。这很简单，即使没有脚本也可以完成。 （特殊-空白-=值-Ctrl输入）

我还有另一列需要向上复制数据。

如下图所示，A列使用代码向下填充；

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

Operations Period是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

---

之前

---

之后