excel无法复制粘贴怎么办，Excel数据不能复制粘贴解决方法？-营销圈

excel无法复制粘贴怎么办，Excel数据不能复制粘贴解决方法？

用户投稿 • 2022年5月2日 pm9:02 • 网络资讯 • 阅读 926

前言｜职场实例

大家在日常使用Excel表格中，经常会把一张表格中的部分数据复制粘贴到另一张表格，有时候会提示：Excel中不能对多重选定区域使用此命令的问题，造成了不能够复制的现象，下面小编就来教你如何解决Excel中不能对多重选定区域使用此命令的难题。

如下图所示，我们用一个简单的例子来做说明剖析：

我们想将左边表格中的A2，B3，C4，D5单元格中的数据一次性复制出来，粘贴到右边表格对应的位置。

excel无法复制粘贴怎么办，Excel数据不能复制粘贴解决方法？

当我们通过按住Ctrl键，选中不连续的单元格A2，B3，C4，D5单元格后，右击鼠标，点击“复制”按钮，发现会弹出一个错误提示：“无法对多重选择区域执行此操作”。复制粘贴以失败告终。

excel无法复制粘贴怎么办，Excel数据不能复制粘贴解决方法？

首先我们要知道Excel中的“多重选定区域”是指：进行多次选择确定下来的区域，也就是按下Ctrl键进行选择得到的区域。如下图所示：我们通过按住Ctrl键选中不连续的单元格B2，B4，B6单元格，注意此时选定区域都在一列（或一行）中，此时右击鼠标，可以实现正常的复制粘贴。

excel无法复制粘贴怎么办，Excel数据不能复制粘贴解决方法？

如下如所示：我们通过按住Ctrl键选中不连续的单元格B2，B4，B6单元格的同时，再次选中一个另一列的D6单元格。注意此时选定区域不在一列中，形成了多重区域，此时右击鼠标，点击“复制”按钮后，就会出现“无法对多重选择区域执行此操作”的错误提示。

excel无法复制粘贴怎么办，Excel数据不能复制粘贴解决方法？

方案｜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 < MinR Then MinR = SRange(i).Row
             If SRange(i).Column < MinC Then MinC = SRange(i).Column
         Next i
         Set UPRange = Cells(SRange(1).Row, SRange(1).Column)
         Set TRange = Application.InputBox(prompt:="请输入粘贴位置的左上角单元格", Title:="多重选定区域复制粘贴", Type:=8)
         Application.ScreenUpdating = False
         For i = 1 To AreaNum
            SRange(i).Copy
            TRange.Offset(SRange(i).Row - MinR, SRange(i).Column - MinC).PasteSpecial Paste:=xlPasteValues
        Next i
        Application.ScreenUpdating = True
      End Sub