美文网首页excel之“宏”荒之力
将上一个加一并往后复制

将上一个加一并往后复制

作者: eth10 | 来源:发表于2016-10-12 19:18 被阅读0次

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

相关文章

网友评论

    本文标题:将上一个加一并往后复制

    本文链接:https://www.haomeiwen.com/subject/fgsiyttx.html