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

前言|工作场所示例

在日常使用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 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