在excel日常使用時，您是否經(jīng)常在復制時遇到“不能對多重選定區(qū)域使用此命令”而導致無法復制的情況？這個非常令人苦惱，因為經(jīng)常是辛辛苦苦按著Ctrl鍵挨個選擇了單元格準備復制，一旦無法復制還得重新一個一個的選擇一遍。本例教你快速、永久性解決這個問題。

1、先來說一下這個提示產(chǎn)生的原因：

1）用鼠標選擇了非矩形區(qū)域；

2）雖然最終選區(qū)整體是矩形區(qū)域，但是每個選取不同。比如說先選中A1，點Ctrl再選擇B1，然后用鼠標選擇A2:B2，這樣的區(qū)域也是復制不了的；

3）選擇了正確的要復制區(qū)域，但是手一抖，多選擇了一個單元格，如下圖：

2、首先，按照下圖所示方法在“個人宏工作簿”中錄制一個空宏。

3、按Alt+F11打開VBA界面，并將下述代碼更新在“個人宏工作簿”的模塊中。

Sub 多區(qū)域復制粘貼()

1. On Error Resume Next      
2.     Dim SRange() As Range, UPRange As Range, TRange As Range      
3.     Dim i As Long, AreaNum As Long      
4.     Dim MinR As Long, MinC As Long      
5.     AreaNum = Selection.Areas.Count      
6.     ReDim SRange(1 To AreaNum)      
7.     MinR = ActiveSheet.Rows.Count      
8.     MinC = ActiveSheet.Columns.Count      
9.     For i = 1 To AreaNum      
10.         Set SRange(i) = Selection.Areas(i)      
11.         If SRange(i).Row < MinR Then MinR = SRange(i).Row      
12.         If SRange(i).Column < MinC Then MinC = SRange(i).Column