office无法复制粘贴怎么办(数据不能复制粘贴)

时间:2022-10-18 00:56

前言|职场实例

大家在日常使用Excel表格中,经常会把一张表格中的部分数据复制粘贴到另一张表格,有时候会提示:Excel中不能对多重选定区域使用此命令的问题,造成了不能够复制的现象,下面小编就来教你如何解决Excel中不能对多重选定区域使用此命令的难题。

如下图所示,我们用一个简单的例子来做说明剖析:

我们想将左边表格中的A2,B3,C4,D5单元格中的数据一次性复制出来,粘贴到右边表格对应的位置。

office无法复制粘贴怎么办(数据不能复制粘贴)

当我们通过按住Ctrl键,选中不连续的单元格A2,B3,C4,D5单元格后,右击鼠标,点击“复制”按钮,发现会弹出一个错误提示:“无法对多重选择区域执行此操作”。复制粘贴以失败告终。

office无法复制粘贴怎么办(数据不能复制粘贴)

首先我们要知道Excel中的“多重选定区域”是指:进行多次选择确定下来的区域,也就是按下Ctrl键进行选择得到的区域。如下图所示:我们通过按住Ctrl键选中不连续的单元格B2,B4,B6单元格,注意此时选定区域都在一列(或一行)中,此时右击鼠标,可以实现正常的复制粘贴。

office无法复制粘贴怎么办(数据不能复制粘贴)

如下如所示:我们通过按住Ctrl键选中不连续的单元格B2,B4,B6单元格的同时,再次选中一个另一列的D6单元格。注意此时选定区域不在一列中,形成了多重区域,此时右击鼠标,点击“复制”按钮后,就会出现“无法对多重选择区域执行此操作”的错误提示。

office无法复制粘贴怎么办(数据不能复制粘贴)

方案|VBA代码解决方案

首先,我们依旧通过按住Ctrl键,选中不连续的单元格A2,B3,C4,D5单元格后,先不着急右击点击复制;而是右击工作表“Excel情报局”名称标签,接着点击“查看代码”,弹出VBA代码录入界面,将下面一段代码复制粘贴到VBA代码录入界面。

代码如下:

Sub多重选定区域复制粘贴()OnError Resume NextDimSRange() As Range, UPRange As Range, TRange As RangeDimi As Long, AreaNum As LongDimMinR As Long, MinC As LongAreaNum= Selection.Areas.CountReDimSRange(1 To AreaNum)MinR= ActiveSheet.Rows.CountMinC= ActiveSheet.Columns.CountFori = 1 To AreaNumSetSRange(i) = Selection.Areas(i)IfSRange(i).Row < MinR Then MinR = SRange(i).RowIfSRange(i).Column < MinC Then MinC = SRange(i).ColumnNextiSetUPRange = Cells(SRange(1).Row, SRange(1).Column)SetTRange = Application.InputBox(prompt:="请输入粘贴位置的左上角单元格", Title:="多重选定区域复制粘贴", Type:=8)Application.ScreenUpdating= FalseFori = 1 To AreaNumSRange(i).CopyTRange.Offset(SRange(i).Row- MinR, SRange(i).Column - MinC).PasteSpecial Paste:=xlPasteValuesNextiApplication.ScreenUpdating= TrueEndSub

office无法复制粘贴怎么办(数据不能复制粘贴)

点击上方的“运行-运行子过程/用户窗体”,会弹出一个提示框:"请输入粘贴位置的左上角单元格",即我们要粘贴存放数据的起始位置。

如果我们想要保持粘贴数据的相对位置不变,需要将这个起始位置设置为:我们复制的不连续的单元格中最上方的单元格所在行的最左边单元格的位置,即F2单元格。在这个提示框里面点击自动识别单元格位置即可。

最后点击“确定”,即可实现数据的复制粘贴。如下图所示:

office无法复制粘贴怎么办(数据不能复制粘贴)

如果我们想继续复制左表数据源中的其他的不连续区域单元格,即可以继续重复上述的步骤操作即可。如下图所示:

office无法复制粘贴怎么办(数据不能复制粘贴)

标签:
随便看看
本类推荐
本类排行
热门标签

我国国家通讯社行不行啊细狗新年贺词祝福语2023年祝福语新年新年贺词新年贺词祝福语居家抗病毒小药箱除夕高速免费吗2022年除夕高速免费吗春联春联句子大全春联句子大全七字年夜饭十二道菜年夜饭十二道菜单年夜饭吃什么年夜饭吃什么菜吃年夜饭的寓意年夜饭黑芝麻菊花茶晒菊花茶腌腊肉送妈妈生日礼物汉白玉送闺蜜水钻送女人礼物爸爸生日送礼物送老公