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

粘贴不能用(为什么复制后不能粘贴)

前言|工作场所示例

在日常使用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多重选定区域复制粘贴()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 下一篇：北京 旅游 攻略（自己去北京玩的攻略）
上一篇：光电效应测普朗克常量（光电效应测普朗克常数数据处理）