《别怕，VBA》第180页按书中代码编写为什么会出现这种错误？见图

foundking

按照《别怕，Excle VBA》第180页的图4-52中的宏试着写了三个宏，竟然出现了一个奇怪的现象。写第3个宏，主要也是因为书里没有介绍当源区域和目标区域假如出现重叠部分的时候，宏运行会出现什么的情况，这个子好了，感觉问题很严重。希望有高手的朋友帮忙看下为什么会出现这样的问题，原因是什么？出在哪里了？（图我已经传上来了，还有后面的附件，是我的Excle表格）

按书上编写了3个宏

第三个宏运行出现一个奇怪的问题

ggsmart

很明显，你是对Range对象的CurrentRegion属性没有认识清楚。你可以返回《别怕，Excel VBA其实很简单》中172页看看相应的介绍。
当然，懒得翻书的话，就看看帮助里的介绍：

【Range.CurrentRegion 属性】返回一个 Range 对象，该对象表示当前区域。当前区域是以空行与空列的组合为边界的区域。

即：Range("A12").CurrentRegion  返回的是A12单元格所在的当前区域。
究竟这个当前区域是什么？你在选中A12的时候按【CTRL+A】组合键，选中的区域就是这个当前区域了。

明白了上面的内容，再来看你的代码：

1. Range("A12").CurrentRegion.Copy Range("E15")
   

复制代码

——将在选中A12时按【CTRL+A】组合键选中的单元格区域，复制到E15单元格中。等同于你用手动完成以下操作步骤：
1、选中A12；
2、按【CTRL+A】;
3、执行复制命令；
5、选中E15；
6、执行粘贴命令。
于是，当你重复执行上面的代码（即：你在文件中写入的代码），就等于同于你在执行了这六个操作步骤之后再次重复执行以上六个操作步骤。
为什么重复执行你的程序后会得到你图中所示的效果？你手动操作一下就明白了。

hehex

很简单，你没有理解什么是CurrentRegion.
所谓Range("A1").CurrentRegion 是什么意思呢，是指A1 的连续区域。
本例就是 A1: E10 的连续区域，当你第一次复制的时候，是将A1:E10 这个区域复制到以G1 为左上顶点区域，
你会看到复制的区域是完全没有问题的。
但是以E15 为左上角的时候问题出现了，新的区域与原区域出现了交集，即有覆盖区域（其实是否覆盖不重要，关键是与A12 那片连续了，比如你试试F15,结果是一样的）。当你下一次执行的时候 range("A12").CurrentRegion 代表的地址区域变化了，其实是变大了，因为区域都是连续的，所以每次调用CurrentRegion 之类的地址区域就越来越大了。
我修改了你的macro  会显示每次调用CurrentRegion 的地址区域，你自己看看，理解下。

foundking

hehex 发表于 2013-1-7 16:19
很简单，你没有理解什么是CurrentRegion.
所谓Range("A1").CurrentRegion 是什么意思呢，是指A1 的连续区域 ...

{:soso__1329030854366471218_4:}十分的感谢啊。真是一句话就点醒了梦中的人儿那。