“不能对多重选定区域使用此命令”处理方法.docx

“不能对多重选定区域使用此命令”处理方法按着Ctrl键挨个选择了单元格复制，如果单元格是同行或是同列，则没有问题。但若是要复制的单元格不在同一行或是同一列的话，则会弹出“不能对多重选定区域使用此命令”。这个问题可以通过制作宏来解决。1.首先，录制一个空宏，保存在“个人宏工作簿”。2.进入刚刚录制的空宏进行编辑；3将下述代码复制黏贴到打开的宏的vba编辑页面中。Sub 多区域复制粘贴() On Error Resume Next Dim SRange() As Range, UPRange As Range, TRange As Range Dim i As Long, AreaNum As Long Dim MinR As Long, MinC As Long AreaNum = Selection.Areas.Count ReDim SRange(1 To AreaNum) MinR = ActiveSheet.Rows.Count MinC = ActiveSheet.Columns.Count For i = 1 To AreaNum Set SRange(i) = Selection.Areas(i) If SRange(i).Row MinR Then MinR = SRange(i).Row If SRange(i).Column MinC Then MinC = SRange(i).Column Next i Set UPRange = Cells(SRange(1).Row, SRange(1).Column) Set TRange = Application.InputBox(prompt:=选择粘贴区域的最左上角单元格, Title:=多区域复制粘贴, Type:=8) Application.ScreenUpdating = False For i = 1 To AreaNum SRange(i).Copy TRange.Offset(SRange(i).Row - MinR, SRange(i).Column - MinC).PasteSpecial paste:=xlPasteValues Next i Application.ScreenUpdating = TrueEnd Sub4保存并返回Excel工作表界面，我们利用自定义快速访问工具栏的方法将该宏绑定在快速访问工具栏，这样以后可以直接点击调用。5操作完毕后，工具栏上将出现一个新的按钮。6按住ctrl，并用鼠标选择任意单元格区域，按Alt+； 进行定位，否则黏贴的时候会按单元格排，而不是按住复制的单元格位置排列。7点击快速访问工具栏上刚刚插入的按钮“多区域复制黏贴”。8选择想要粘贴区域的最左上角单元格，点击确定，这时原选中区域的内容就按照原来的格式保持相对位置不变粘贴到了新的单元格区域。9总结：1）任意选中区域可以原样粘贴到其他单元格；2）可以完成将筛选状态单元格粘贴到同样筛选状态的表格中；3）在要粘贴的区域只要数据不和选中区域冲突，不影响被粘贴区域其他