在此特定流程中自动填充Vba

Question

[请问我有这个问题，我正在尝试使用vba实现解决方案。

So cell 
A1 has value John
A2-A3 blank
A4 has value Mary
A5-A9 blank
A10 has value Mike
A11-A14 blank
And A15 has value David

我只想自动填充A列中的空白，如下所示：A2-A3空白处将被约翰填充A5-A9会充满玛丽A11-A14和Mike。

所以从技术上讲，我正在自动使用上面的值填充空白单元格

Answer 1

已经很长时间了，但是如果我没记错的话，以下应该可以工作：

Dim i As Integer, firstcell As Integer, lastcell As Integer
Dim currentValue As String

firstcell = 1
lastcell = 15
currentValue = ""

For i = firstcell To lastcell
    If Cell(i,1).Value = "" Then
        Cell(i,1).Value = currentValue
    Else
        currentValue = Cell(i,1).Value
    End If
Next i

您遍历单元格，如果其中没有内容，则在其中写入最后一个值。如果它们包含数据，则更新currentValue