这个用VB自动填充可以做到下面是代码，你可以试一下。
Sub aa()
For i = 2 To [a65536].End(xlUp).Row
If Range("a" & i) = "" Then Range("a" & i) = Range("a" & i - 1)
Next
End Sub
追问对我来说太深奥了，有简单点的吗？我都不知道这个程序写到哪里去。
追答有邮箱么？发个样板给你看看，是不是符合你的要求
追问[email protected]
谢谢
追答查看邮箱
追问谢谢。收到了。您有联系电话吗？我还是没明白。我给你打电话吧。
追答0757-28385547