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代碼錄入界面。

代碼如下：

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 = Fal For i = 1 To AreaNum SRange(i).Copy TRange.Offt(SRange(i).Row - MinR, SRange(i).Column - MinC).PasteSpecial Paste:=xlPasteValues Next i Application.ScreenUpdating = TrueEndSub

點擊上方的“運行-運行子過程/用戶窗體”，會彈出一個提示框："請輸入粘貼位置的左上角單元格"，即我們要粘貼存放數據的起始位置。

如果我們想要保持粘貼數據的相對位置不變，需要將這個起始位置設置為：我們復制的不連續的單元格中最上方的單元格所在行的最左邊單元格的位置，即F2單元格。在這個提示框里面點擊自動識別單元格位置即可。

最后點擊“確定”，即可實現數據的復制粘貼。如下圖所示：

如果我們想繼續復制左表數據源中的其他的不連續區域單元格，即可以繼續重復上述的步驟操作即可。如下圖所示：