复制完了为啥不能粘贴 粘贴不能用

前言|工作场所示例
在日常使用Excel表单时 , 人们经常会将一个表单中的部分数据复制粘贴到另一个表单中 , 有时会提示该命令不能用于Excel中的多个选定区域 , 导致无法复制的现象 。下面的小系列将教你如何解决这个命令不能用于Excel中多个选定区域的问题 。
如下图所示 , 我们用一个简单的例子来说明分析:
我们想一次复制左表中单元格A2、B3、C4、D5的数据 , 粘贴到右表的对应位置 。

复制完了为啥不能粘贴 粘贴不能用

文章插图
复制完了为啥不能粘贴 粘贴不能用

文章插图

当我们按住Ctrl键选择不连续的单元格A2、B3、C4、D5时 , 鼠标右键点击“复制”按钮 , 会发现弹出一条错误信息:“此操作不能在多个选择区域进行” 。复制以失败告终 。
复制完了为啥不能粘贴 粘贴不能用

文章插图
复制完了为啥不能粘贴 粘贴不能用

文章插图

首先我们需要知道 , Excel中的“多选区域”是指多选确定的区域 , 即按Ctrl键选择得到的区域 。如下图所示:我们通过按住Ctrl键来选择不连续的单元格B2、B4和B6 。请注意 , 此时所选区域都在一列(或一行)中 。此时右击鼠标 , 实现正常复制粘贴 。
复制完了为啥不能粘贴 粘贴不能用

文章插图
复制完了为啥不能粘贴 粘贴不能用

文章插图

如下图:我们按住Ctrl键选择不连续的单元格B2、B4和B6 , 同时再次选择另一列D6单元格 。请注意 , 此时所选区域不在一列中 , 并且形成了多个区域 。右键单击鼠标并单击复制按钮 , 将出现错误消息“无法对多个选定区域执行此操作” 。
复制完了为啥不能粘贴 粘贴不能用

文章插图
复制完了为啥不能粘贴 粘贴不能用

文章插图

方案| |VBA码解决方案
首先我们还是按住Ctrl键 , 选中不连续的单元格A2、B3、C4、D5 , 然后右键点击复制 。而是在工作表中右键单击Excel情报局的名称标签 , 然后点击查看代码 , 弹出VBA代码录入界面 , 将下面的代码复制粘贴到VBA代码录入界面 。
代码如下:
【复制完了为啥不能粘贴 粘贴不能用】Sub 多重选定区域复制粘贴()On Error Resume NextDim SRange() As Range, UPRange As Range, TRange As RangeDim i As Long, AreaNum As LongDim MinR As Long, MinC As LongAreaNum = Selection.Areas.CountReDim SRange(1 To AreaNum)MinR = ActiveSheet.Rows.CountMinC = ActiveSheet.Columns.CountFor i = 1 To AreaNumSet SRange(i) = Selection.Areas(i)If SRange(i).Row

    推荐阅读