Question

如何通过VBA实现自动填充

Answer 1

通过VBA实现自动填充，公式随单元格而变化：
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 4 And Target <> "" Then Range("c4").Copy Target.Offset(0, -1)
End Sub
如果不能满意，请按照自己的意愿拓展！

Answer 2

用这个代码吧
Sub 填充()
For i = 2 To [a65536].End(xlUp).Row
If Range("a" & i) = "" Then Range("a" & i) = Range("a" & i - 1)
Next
End Sub

Answer 3

sub Autofill ()
Range("A1").value="填充了"
End sub

运行就行了

Answer 4

要填充什么?

追问

如在excel中有如下的数据,需要将空白单元格填上与其前面非空单单元格相同的内容，如A2需要填充和A1相同的内容AA，A4需要填充和A3相同的内容BX，A6、A7需要填充和A5相同的内容EY.
A
1 AA
2
3 BX
4
5 EY
6
7