前言|职场实例
大家在日常使用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多重选定区域复制粘贴()OnError Resume NextDimSRange() As Range, UPRange As Range, TRange As RangeDimi As Long, AreaNum As LongDimMinR As Long, MinC As LongAreaNum=Selection.Areas.CountReDimSRange(1 To AreaNum)MinR=ActiveSheet.Rows.CountMinC=ActiveSheet.Columns.CountFori = 1 To AreaNumSetSRange(i) = Selection.Areas(i)IfSRange(i).Row
特别声明:文章来源用户上传并发布,本站只提供信息存储服务,不拥有所有权,内容仅供参考。