excel vba 帮我写一下宏谢谢哈

Question

我要怎么使用宏，让A1 ，A4，A7，A10，同时向下复制，变成如下

Answer 1

选中A列---F5定位---空值---输入 =A1---ctrl+enter 组合键---复制A列---选择性粘贴即可。

非要宏也可以：

Sub AAA()

    For I = 2 To [A65536].End(xlUp).Row

        If Range("A" & I) = "" Then

            Range("A" & I) = Range("A" & I - 1)

        End If

    Next

End Sub

Answer 2

这个不需要宏，公式就可以。

步骤：
1、选中A列中需要填充序列的范围，按F5键打开定位对话框，选择“空值”，并点击确定后会选中所有无数据单元格。
2、输入公式 =A1 ，按CTRL+回车 ，这样就会自动填充了。
3、选中A列复制，并选择性粘贴为“值”，去掉公式就可以了。