很久以前干过这事,在宏里面写应该能够实现,先在book1中选定范围,然后COPY,然后再激活book2中的sheet,选定要粘贴的范围,然后粘贴。
大致上是:
Windows("book1.xls").Activate
Sheets1.Range(A1:C7).Select
Selection.Copy
Windows("book2.xls").Activate
Sheet1.Range(E9:W13).Select
ActiveSheet.Paste
你调试下,应该能实现。
不连续的单元格不能一次性复制,按单元格区域分开复制就行了:
Workbooks("book1").Sheets("sheet1").Range("A1:C7").Copy _
Workbooks("book2").Sheets("sheet1").Range("A1")
Workbooks("book1").Sheets("sheet1").Range("E9:W13").Copy _
Workbooks("book2").Sheets("sheet1").Range("E9")
录制的宏有很多不必要的代码,录制完成后要修改的
excel不支持多区域的一次性复制。
你可以
到book2,使用alt键选中A1:C7和E9:W13,然后看一下当前的激活单元格,如果是E9,直接输入=sheet1!E9,然后按下crtl+回车。
1、只要选中复制部分内容,再按ctrl 和c键,完成复制。
2、到另一个表格的目标位置,同时按ctrl 和v键,完成粘贴。
另外,多个部分的选中方法是:按住ctrl键的同时,点击想要的点击单元格。
只要选中复制部分内容,再按ctrl 和c键,完成复制。 2、到另一个表格的目标位置,同时按