我编码以填写值。这很简单,即使没有脚本也可以完成。 (特殊-空白-=值-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列中的数据需要向上填充。