在日常使用Excel過(guò)程中，復(fù)制操作可能會(huì)出現(xiàn)“不能對(duì)多重選定區(qū)域使用此命令”的報(bào)錯(cuò)，這給用戶帶來(lái)了不少困擾。本文將介紹如何快速、永久性解決這個(gè)問(wèn)題。 報(bào)錯(cuò)原因分析1. 用鼠標(biāo)選擇了非矩形區(qū)域；2.

在日常使用Excel過(guò)程中，復(fù)制操作可能會(huì)出現(xiàn)“不能對(duì)多重選定區(qū)域使用此命令”的報(bào)錯(cuò)，這給用戶帶來(lái)了不少困擾。本文將介紹如何快速、永久性解決這個(gè)問(wèn)題。

報(bào)錯(cuò)原因分析

1. 用鼠標(biāo)選擇了非矩形區(qū)域；

2. 每個(gè)選取不同，導(dǎo)致無(wú)法正常復(fù)制；

3. 選擇區(qū)域正確，但手誤多選了一個(gè)單元格。

解決方法

步驟一：錄制宏

1. 在“個(gè)人宏工作簿”中錄制一個(gè)空宏。

2. 使用Alt F11打開(kāi)VBA界面，在“個(gè)人宏工作簿”的模塊中輸入以下代碼：

```vba

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

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

ReDim SRange(1 To AreaNum)

MinR

MinC

For i 1 To AreaNum

Set SRange(i) (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 (prompt:"選擇粘貼區(qū)域的最左上角單元格", Title:"多區(qū)域復(fù)制粘貼", Type:8)

False

For i 1 To AreaNum

SRange(i).Copy

(SRange(i).Row - MinR, SRange(i).Column - MinC).PasteSpecial paste:xlPasteValues

Next i

True

End Sub

```

步驟二：綁定宏

在Excel工作表界面，利用自定義快速訪問(wèn)工具欄的方法將該宏綁定在快速訪問(wèn)工具欄上。

步驟三：測(cè)試功能

選擇任意單元格區(qū)域，點(diǎn)擊快速訪問(wèn)工具欄上插入的按鈕，按提示選擇一個(gè)空單元格，原選中區(qū)域的內(nèi)容便可按原格式粘貼到新的單元格區(qū)域。

方法優(yōu)點(diǎn)

1. 任意選中區(qū)域可以原樣粘貼到其他單元格；

2. 可以將篩選狀態(tài)單元格粘貼到同樣篩選狀態(tài)的表格中；

3. 可以實(shí)現(xiàn)修改部分?jǐn)?shù)據(jù)后進(jìn)行“更新”原始區(qū)域的功能，同時(shí)不影響被粘貼區(qū)域的字體格式、邊框等。