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

粘贴不能用(为什么复制后不能粘贴)
前言|工作场所示例
【复制完了为啥不能粘贴 粘贴不能用】在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 Intelligence Bureau的名称标签 , 然后单击查看代码 , 弹出VBA代码录入界面 , 将以下代码复制粘贴到VBA代码录入界面 。
代码如下:
Sub多重选定区域复制粘贴()OnErrorResumeNextDimSRange()AsRange,UPRangeAsRange,TRangeAsRangeDimiAsLong,AreaNumAsLongDimMinRAsLong,MinCAsLongAreaNum=Selection.Areas.CountReDimSRange(1ToAreaNum)MinR=ActiveSheet.Rows.CountMinC=ActiveSheet.Columns.CountFori=1ToAreaNumSetSRange(i)=Selection.Areas(i)IfSRange(i).Row

    推荐阅读