複製功能不能使用怎麼辦

前言｜職場例項

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

點選上方的“執行-執行子過程/使用者窗體”，會彈出一個提示框：“請輸入貼上位置的左上角單元格”，即我們要貼上存放資料的起始位置。

如果我們想要保持貼上資料的相對位置不變，

需要將這個起始位置設定為：

我們複製的不連續的單元格中最上方的單元格所在行的最左邊單元格的位置，即F2單元格。在這個提示框裡面點選自動識別單元格位置即可。

最後點選“確定”，即可實現資料的複製貼上。如下圖所示：

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