利用VB在Excel中复制插入行

来源:互联网 发布:安川机器人数据下载 编辑:程序博客网 时间:2024/06/09 18:50

以复制5到7行的内容,插入到第8行中为例:

//选择需要复制的行: 

xlsSheet.Rows("5:7").Select

xlsSheet.Range("B5").Activate
Selection.Copy
//选择需要插入的行

xlsSheet.Rows("8:8").Select
xlsSheet.Range("I8").Activate
Selection.Insert Shift:=xlDown
xlsApp.CutCopyMode = False
//保存

xlsApp.ActiveWorkbook.Save