[求助]EXCEL 20007 自动向下填充空白行问题

jsyyds

比如A1单元格内容为:张三,A4内容为老李,需要自动将A2,A3填充为:张三,

因为需处理的记录有几十万条,在EXCEL 2003下用以下代码可以实现的:

Private Sub CommandButton1_Click()
Dim reg As Range
Set reg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks)
For Each nx In reg
nx.Value = nx.Offset(-1).Value

Next
End Sub

但是EXCEL 2007 K 运行出错,请教各位老师了~

gvntw

Dim c As Range
For Each c In Range("A1:A10").SpecialCells(xlCellTypeBlanks)
c = c(0)
Next

gvntw

Dim c As Range
For Each c In Range("A1:A10").SpecialCells(xlCellTypeBlanks)
c = c(0)
Next

sbynkidt

向上填充代码，
谁能写一呢，
应该是倒过来循环吧