将上一个加一并往后复制
作者:
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
网友评论