国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 辦公 > Excel > 正文

excel怎設(shè)置復(fù)制時(shí)提示不能對(duì)多重選定區(qū)域使用此命令?

2019-12-13 13:56:11
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友

在excel日常使用時(shí),您是否經(jīng)常在復(fù)制時(shí)遇到“不能對(duì)多重選定區(qū)域使用此命令”而導(dǎo)致無(wú)法復(fù)制的情況?這個(gè)非常令人苦惱,因?yàn)榻?jīng)常是辛辛苦苦按著Ctrl鍵挨個(gè)選擇了單元格準(zhǔn)備復(fù)制,一旦無(wú)法復(fù)制還得重新一個(gè)一個(gè)的選擇一遍。本例教你快速、永久性解決這個(gè)問(wèn)題。

1、先來(lái)說(shuō)一下這個(gè)提示產(chǎn)生的原因:

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

2)雖然最終選區(qū)整體是矩形區(qū)域,但是每個(gè)選取不同。比如說(shuō)先選中A1,點(diǎn)Ctrl再選擇B1,然后用鼠標(biāo)選擇A2:B2,這樣的區(qū)域也是復(fù)制不了的;

3)選擇了正確的要復(fù)制區(qū)域,但是手一抖,多選擇了一個(gè)單元格,如下圖:

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

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

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

   

復(fù)制內(nèi)容到剪貼板
  1. On Error Resume Next   
  2.   
  3.     Dim SRange() As Range, UPRange As Range, TRange As Range   
  4.   
  5.     Dim i As Long, AreaNum As Long   
  6.   
  7.     Dim MinR As Long, MinC As Long   
  8.   
  9.     AreaNum = Selection.Areas.Count   
  10.   
  11.     ReDim SRange(1 To AreaNum)   
  12.   
  13.     MinR = ActiveSheet.Rows.Count   
  14.   
  15.     MinC = ActiveSheet.Columns.Count   
  16.   
  17.     For i = 1 To AreaNum   
  18.   
  19.         Set SRange(i) = Selection.Areas(i)   
  20.   
  21.         If SRange(i).Row < MinR Then MinR = SRange(i).Row   
  22.   
  23.         If SRange(i).Column < MinC Then MinC = SRange(i).Column   
  24.   
  25.     Next i   
  26.   
  27.     Set UPRange = Cells(SRange(1).Row, SRange(1).Column)   
  28.   
  29.     Set TRange = Application.InputBox(prompt:="選擇粘貼區(qū)域的最左上角單元格", Title:="多區(qū)域復(fù)制粘貼", Type:=8)   
  30.   
  31.     Application.ScreenUpdating = False   
  32.   
  33.     For i = 1 To AreaNum   
  34.   
  35.         SRange(i).Copy   
  36.   
  37.         TRange.Offset(SRange(i).Row - MinR, SRange(i).Column - MinC).PasteSpecial paste:=xlPasteValues   
  38.   
  39.     Next i   
  40.   
  41.     Application.ScreenUpdating = True   
  42.   
  43. End Sub   
  44.   

4、返回Excel工作表界面,我們利用自定義快速訪問(wèn)工具欄的方法將該宏綁定在快速訪問(wèn)工具欄,這樣以后可以直接點(diǎn)擊調(diào)用。

5、操作完畢后,工具欄上將出現(xiàn)一個(gè)新的按鈕。這樣,基礎(chǔ)工作就已經(jīng)做好了。下面我們來(lái)測(cè)試一下具體功能。

6、用鼠標(biāo)選擇任意單元格區(qū)域(次序不論,按住Ctrl怎么選擇都可以),如下圖黃色單元格所示:

7、點(diǎn)擊快速訪問(wèn)工具欄上剛剛插入的按鈕,彈出如下提示:

8、我們只需要選擇任意一個(gè)空單元格(想要粘貼區(qū)域的最左上角單元格),這時(shí)原選中區(qū)域的內(nèi)容就按照原來(lái)的格式保持相對(duì)位置不變粘貼到了新的單元格區(qū)域。

9、上述方法優(yōu)點(diǎn):

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

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

3)在要粘貼的區(qū)域只要數(shù)據(jù)不和選中區(qū)域沖突,不影響被粘貼區(qū)域其他單元格。這樣可以實(shí)現(xiàn)修改部分?jǐn)?shù)據(jù)后進(jìn)行“更新”原始區(qū)域的功能。也就是只更新變動(dòng)過(guò)的單元格內(nèi)容,同時(shí)不影響被粘貼區(qū)域的字體格式、邊框等。

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 德昌县| 弥渡县| 长丰县| 武定县| 阿克陶县| 伊川县| 天津市| 钟祥市| 兰坪| 固镇县| 泌阳县| 贵定县| 张掖市| 布尔津县| 延边| 白银市| 调兵山市| 东平县| 临汾市| 西贡区| 贵州省| 渝北区| 根河市| 津南区| 佛冈县| 车致| 河南省| 台东县| 武平县| 虹口区| 平谷区| 鲁甸县| 安多县| 保亭| 肇庆市| 浙江省| 东平县| 天门市| 甘孜县| 陇西县| 九龙城区|