admin 管理员组

文章数量: 1184232


2024年3月27日发(作者：做网站哪家公司好)

“不能对多重选定区域使用此命令”处理方法

按着Ctrl键挨个选择了单元格复制，如果单元格是同行或是同列,则没有问

题。但若是要复制的单元格不在同一行或是同一列的话,则会弹出“不能对多重

选定区域使用此命令”。这个问题可以通过制作宏来解决。

错误!未定义书签。

１.首先，录制一个空宏,保存在“个人宏工作簿”。

2．进入刚刚录制的空宏进行编辑;

3将下述代码复制黏贴到打开的宏的vｂa编辑页面中。

Ｓub 多区域复制粘贴()

On Error Resumｅ Next

Diｍ ＳRange() Ａs Range, UＰRaｎge Aｓ Range, TRange Ａs Range

Dim i As Lonｇ, AreaNum Ａs Long

Dim ＭｉnR Aｓ Ｌｏｎg, ＭiｎC Ａs Ｌｏng

AｒeaNum ＝ Sｅｌectiｏｎ．Areaｓ.Count

ReＤim SRaｎge(１ To AreaＮｕm)

MinＲ ＝ ＡctivｅSheｅｔ.Ｒowｓ．Cｏｕnt

MｉｎC ＝ ActiｖeShｅeｔ.Ｃｏlumnｓ．Coｕnt

Foｒ i = 1 Ｔo ＡreａNum

Ｓet SＲanｇe(i） = Selectiｏｎ.Areas(ｉ）

If ＳRange(i).Row < MinＲ Ｔhｅn MinR = SRanｇｅ(ｉ）.Row

If SRanｇe(i）.Column ＜ MinＣ Theｎ MｉnＣ = SＲaｎge(ｉ）．Ｃ

ｏlｕmn

Ｎext i

Set UPRange = Ｃells(ＳRange（1）.Ｒow, ＳRaｎgｅ(1）.Columｎ)

Ｓet TRange = AppｌｉcａｐutBoｘ(ｐrompt:="选择粘贴区域的最左

上角单元格"， Tｉtle:＝"多区域复制粘贴＂, Tyｐｅ：＝8）

Aｐplicaｔioｎ.ScrｅｅｎＵpdａtｉnｇ = Fａｌse

Fｏr ｉ = 1 Tｏ AｒeａＮum

SRangｅ(i).Copy

TRanｇe.Oｆｆsｅt(ＳRanｇe（i).Rｏｗ - ＭinR, ＳＲange（i).Cｏｌumn

－ MinＣ).PastｅＳpeciaｌ paｓｔe:=ｘlPasteＶaｌues

Next i

Ａｐplicatｉon．ScreenUｐｄａｔiｎg ＝ Truｅ

End Sｕｂ

４保存并返回Excｅl工作表界面,我们利用自定义快速访问工具栏的方法将该宏

绑定在快速访问工具栏，这样以后可以直接点击调用。

5操作完毕后,工具栏上将出现一个新的按钮。


本文标签： 工具栏 区域 命令

版权声明：本文标题：「“不能对多重选定区域使用此命令”处理方法」 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711481477a596267.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。