带你入门VBA，第五讲：如何控制单元格

先锋 · 发表于 2004-10-25 23:13

终于明白了，开始还以为写错了呢，特别是后两句话。

[此贴子已经被作者于2004-10-25 23:15:01编辑过]

兰色幻想 · 发表于 2004-10-25 23:20

下面以一个实例说明如何动态选取一个区域：

要求：无论工作表中所有单元格如何填入，运行程序后要选取A列已用所有区域：

代码如下：

Intersect(Range("a:a"), Sheets("sheet1").UsedRange).Select

Range("a:a")是A列，Sheets("sheet1").UsedRange是工作表sheet1已使用的所有单元格区域，用Intersect求二者的共有区域，结果就是我们所要的A列已用所有区域

ScD3WaBY.rar (6.67 KB, 下载次数: 345)

先锋 · 发表于 2004-10-25 23:27

结果不是的。你把A9，A10，A11内容删掉，再运行它仍然选A3：A12这个区域？

兰色幻想 · 发表于 2004-10-25 23:40

以下是引用先锋在2004-10-25 23:27:00的发言： 结果不是的。你把A9，A10，A11内容删掉，再运行它仍然选A3：A12这个区域？

其实这中间有个规律：如果你输入的是非数字的字符，即使你删除了，也被当做已用区域（已用过的区域），而当你删除的是你输入的数字时则不受这个限制）

612321 · 发表于 2004-10-25 23:47

老师,我来了,我都等了N天了.

老师 Intersect这个函数什么意思? 哦我明白了,是不是取交集的意思啊?

union取并集合 . 都做好了老师继续

结束了啊? 我还在傻等

[此贴子已经被作者于2004-10-26 1:08:45编辑过]

先锋 · 发表于 2004-10-26 13:01

以下是引用兰色幻想在2004-10-25 23:40:00的发言：

其实这中间有个规律：如果你输入的是非数字的字符，即使你删除了，也被当做已用区域（已用过的区域），而当你删除的是你输入的数字时则不受这个限制）

兰老师：还是不明白？输入非数字的字符时，确实是这样。但是当输入的数字时，有时还是受这个限制的，如附件中的A3删掉后，怎么还选呢？应该是受“Sheets("sheet1").UsedRange是工作表sheet1已使用的所有单元格区域”的影响吧，结果只是二者的共有区域，并不是我们所要的A列已用所有区域。

兰色幻想 · 发表于 2004-10-26 13:32

以下是引用先锋在2004-10-26 13:01:00的发言：

兰老师：还是不明白？输入非数字的字符时，确实是这样。但是当输入的数字时，有时还是受这个限制的，如附件中的A3删掉后，怎么还选呢？应该是受“Sheets("sheet1").UsedRange是工作表sheet1已使用的所有单元格区域”的影响吧，结果只是二者的共有区域，并不是我们所要的A列已用所有区域。

因为这个区域是矩形区域，在其他列第三行已填有内容，所以A3即使删除也属已用区域。

你可以再试着在C20填入任意一个内容，A列选取的也是到20行

happy91 · 发表于 2004-10-26 14:19

这种选取包括带格式无内容的单元格、空格单元格......吗

兰色幻想 · 发表于 2004-10-26 15:00

以下是引用happy91在2004-10-26 14:19:00的发言：

这种选取包括带格式无内容的单元格、空格单元格......吗

包括

wx_feng · 发表于 2004-10-26 15:08

以下是引用兰色幻想在2004-10-25 23:20:00的发言：

下面以一个实例说明如何动态选取一个区域：

要求：无论工作表中所有单元格如何填入，运行程序后要选取A列已用所有区域：

代码如下：

Intersect(Range("a:a"), Sheets("sheet1").UsedRange).Select

Range("a:a")是A列，Sheets("sheet1").UsedRange是工作表sheet1已使用的所有单元格区域，用Intersect求二者的共有区域，结果就是我们所要的A列已用所有区域

兰老师：我运行这一句出错，但运行你的文件可以，把你的原封不动复制到我的文件，也出错，出错信息：方法"Intersect"作用于对象"Application"失败

		自动登录	找回密码
密码			免费注册

[求助] 带你入门VBA，第五讲：如何控制单元格