前言|職場實例
大家在日常使用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單元格。在這個提示框裡面點擊自動識別單元格位置即可。
最後點擊“確定”,即可實現數據的複製粘貼。如下圖所示:

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

原創文章,作者:投稿專員,如若轉載,請註明出處:https://www.506064.com/zh-hant/n/212586.html