excel 宏命令

最近做的一个项目需要处理大量excel数据：将excel数据转到数据库中，其中excel中的某列的值下一行此列的值与当前行此列的值相等的话就是空的，如下宏命令就是将这些空的值给加上。

Sub ad()
Range("A63356").End(xlUp).Select
A = ActiveCell.Row
Range("A1:A" & A).Select
For Each X In Selection
If ActiveCell.Value = "" Then
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value
End If
ActiveCell.Offset(1, 0).Select
Next

End Sub