BCB 在EXCEL中兑现自动填充

BCB 在EXCEL中实现自动填充
Sub Macro7()
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A2:A3").Select
    Selection.AutoFill Destination:=Range("A2:A999")
    Range("A2:A999").Select
    Range("A1").Select
    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal
End Sub
这是宏录制的。就是在A2处填1, A3处填2。然后自动填充，实现工作表第一列有序号。

[解决办法]