【excel怎么选定不在】不能复制和粘贴excel数据。这是很多大人物解决不了的问题

前言|工作案例

在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代码输入界面中：

代码如下：

复制和粘贴子多重选择区域()

On Error Resume Next

Dimsrange () asrange、up range as range、trange as range

Dim I As Long、AreaNum As Long

Dim MinR As Long、MinC As Long

AreaNum=Selec

ReDim SRange(1 To AreaNum)

MinR=Ac

MinC=Ac

For I=1 To AreaNum

Set SRange(i)=Selec(i)

If s range (I)。row minr then minr=s range (I)。row

If s range (I)。column minc then minc=s range (I)。column

Next I

Set up range=cells (srange (1))。row、srange (1)。column)

Set TRange=A(prompt:='输入粘贴位置的左上角单元格'，Title:='复制粘贴多选内容'，Type:=8)

A=False

For I=1 To AreaNum

SRange(i)。Copy

Trange.offset (srange (I))。row-minr、srange (I)。column-minc)。pastespecial paste :

Next I

A=真

EndSub

单击上面的“运行-运行子过程/用户表单”后，将出现“输入粘贴位置左上角的单元格”提示框。也就是说，粘贴数据的起始位置。

为了保持粘贴数据的相对位置不变，必须将此起始位置设置为F2单元格，F2单元格是复制的离散单元格中顶部单元格所在行的最左侧单元格。在此提示框内单击“自动识别单元位置”即可。

最后，单击“确定”以复制和粘贴数据。如下图所示。

要继续复制左侧表数据源中的其他离散区域单元格，可以继续重复上述步骤。如下图所示。