excel怎设置复制时提示不能对多重选定区域使用此命令？-英雄云拓展知识分享

1. On Error Resume Next   
2.   
3.     Dim SRange() As Range, UPRange As Range, TRange As Range   
4.   
5.     Dim i As Long, AreaNum As Long   
6.   
7.     Dim MinR As Long, MinC As Long   
8.   
9.     AreaNum = Selection.Areas.Count   
10.   
11.     ReDim SRange(1 To AreaNum)   
12.   
13.     MinR = ActiveSheet.Rows.Count   
14.   
15.     MinC = ActiveSheet.Columns.Count   
16.   
17.     For i = 1 To AreaNum   
18.   
19.         Set SRange(i) = Selection.Areas(i)   
20.   
21.         If SRange(i).Row < MinR Then MinR = SRange(i).Row   
22.   
23.         If SRange(i).Column < MinC Then MinC = SRange(i).Column   
24.   
25.     Next i   
26.   
27.     Set UPRange = Cells(SRange(1).Row, SRange(1).Column)   
28.   
29.     Set TRange = Application.InputBox(prompt:="选择粘贴区域的最左上角单元格", Title:="多区域复制粘贴", Type:=8)   
30.   
31.     Application.ScreenUpdating = False   
32.   
33.     For i = 1 To AreaNum   
34.   
35.         SRange(i).Copy   
36.   
37.         TRange.Offset(SRange(i).Row - MinR, SRange(i).Column - MinC).PasteSpecial paste:=xlPasteValues   
38.   
39.     Next i   
40.   
41.     Application.ScreenUpdating = True   
42.   
43. End Sub   
44.   

4、返回Excel工作表界面，我们利用自定义内涵快捷访问工具栏的方法将该宏绑定在快捷访问工具栏，这样以后可以直接点击调用。

5、操作终了后，工具栏上将出现一个新的按钮。这样，基础工作就已做好了。下面我们来测试一下具体功能。

6、用鼠标选择任意单元格区域（次序不论，按住Ctrl怎样选择都可以），以下图黄色单元格所示：

7、点击快捷访问工具栏上刚刚插入的按钮，弹出以下提示：

8、我们只需要选择任意一个空单元格（想要粘贴区域的最左上角单元格），这时候原选中区域的内容就依照原来的格式保持相对位置不变粘贴到了新的单元格区域。

9、上述方法优点：

1）任意选中区域可以原样粘贴到其他单元格；

2）可以完成将挑选状态单元格粘贴到一样挑选状态的表格中；

3）在要粘贴的区域只要数据不和选中区域冲突，不作用被粘贴区域其他单元格。这样可以实现修改部份数据落后行“更新”原始区域的功能。也就是只更新变动过的单元格内容，同时不作用被粘贴区域的字体魄式、边框等。