将上一个加一并往后复制

Sub 将上一个加一并往后复制5个()
    ActiveCell.Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A2"), Type:=xlFillSeries
    ActiveCell.Range("A1:A2").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A5"), Type:=xlFillCopy
    ActiveCell.Range("A1:A5").Select
    ActiveCell.Offset(4, 0).Range("A1").Select
End Sub

操作前

Paste_Image.png

操作后

Paste_Image.png

代码截图

Paste_Image.png