EXCEL中如何多重区域粘贴

如题所述

第1个回答  推荐于2016-06-14
将两个工作表放在一个Excel文件里,图二取名Sheet2,图一取名Sheet1(或者将下面代码中的名字改成你的)。
同时按Ctrl和F11,点新出来的窗口菜单的插入,模块;在右边的窗口中粘贴如下代码:
Sub Macro1()
Dim i As Integer
Dim myArray(1 To 20)
Sheets("Sheet2").Select
For i = 4 To 23
myArray(i - 3) = Cells(i, 3)
Next i
Sheets("Sheet1").Select
For i = 0 To 19
Cells(i * 39 + 8, 7) = myArray(i + 1)
Next
End Sub

按F5运行此宏,完成。本回答被提问者采纳
第2个回答  2011-03-09
这个应该是ctrl键多重复制吧!不知道你是指的怎么多重,是多个工作薄么
那就用引用吧!还是很方便的!
相似回答