以复制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
利用VB在Excel中复制插入行
最新推荐文章于 2024-07-15 21:31:41 发布