Question

怎样用vba自动填充excel某列为空白处的数据为上一个单元格的数据

Answer 1

Sub test()

Set sh = ActiveSheet

i = 1
Text = sh.Cells(i, 1)
'从第二行开始
For i = 2 To 30
    If Trim(sh.Cells(i, 1)) = "" Then
        sh.Cells(i, 1) = Text
    Else
        Text = sh.Cells(i, 1)
    End If
Next i

End Sub

Answer 2

Sub zz()
For i = 2 To [a65536].End(3).Row
If Cells(i, 1) = "" Then Cells(i, 1) = Cells(i - 1, 1)
Next
End Sub