主题：请问，我想用代码填充某一列数据，如果是空值就自动填入上一行单元格的值。代码怎么写啊？（已解决）

我写的不完整，请老师帮帮忙，谢谢
比如{表A}中的[第一列] ，我想用代码把数据填完整，最终效果像[第二列]那样



我是这么写的，应该是不对的，怎么写才对呢？
Dim r1,r0 As Row

r1 = Tables("表A").rows(0)
r0 = Tables("表A").rows(r1.index-1)

If r1("第一列") Is Nothing Then
    r1("第一列") = r0("第一列")
End If
    r1 = Tables("表A").rows(r1.index+1)

Dim p As String = Nothing
For Each r As Row In Tables("表B").Rows
    If r("第一列") > "" Then
        p = r("第一列")
    Else
        r("第一列") = p
    End If
Next