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

兰色幻想

以下是引用gvntw在2004-10-25 21:40:00的发言： 也可以这样吧：Union([a1:a10], [b3:c10], [d5:f7]) = 100

Union是求多个单元格区域的并集，用法是Union（单元格区域1，单元格区域2.....）

它返回的是所有区域的所有单元格集合

兰色幻想

请运行下面的一句:

Application.Intersect(Range("a1:a10"), Range("a3:c4")).Select

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

兰色幻想

12楼这句有个Select,它是单元格被选取的意思。在我们录制宏时，会出现大量的select,其实在程序中多数Select是多余的，它影响速度又会影响程序的运行。

如：

Range("C16").Select ActiveCell.FormulaR1C1 = "100" Range("C11").Select

其实我只是在C16单元格中填入数值100，就会出现这么一大堆代码，这此代码可以优化为：

Range("C16").="100"

兰色幻想

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

下面请运行下面的一句:

Application.Intersect(Range("a1:a10"), Range("a3:c4")).Select

这一句的意思是选中区域A1：A10 和 A3:C4重叠的区域，即两个区域共有的区域，此名代码运行的结果是选中区域A3：A4

注意Intersect 方法是一个非常实用的一个方法，比如我们在动态选取工作表Sheet1A列中已存在数据的区域时，就会用到它。在介绍这个用法前还要介绍一下另一个工作表中非常实用的属性：Usedrange

你可以选试着运行一下:Activecell.usedrange.Select

[此贴子已经被作者于2004-10-25 22:43:03编辑过]

先锋

不对，噢多了个A

[此贴子已经被作者于2004-10-25 22:26:11编辑过]

兰色幻想

运行Activecell.usedrange.Select你会发现，在当前工作表中的所有用过的区域全被选中了。你明白了吗，其实usedrange就是工作表中所有已存在内容的矩形区域，为什么不说是存在内容的单元格呢？原因是比如你在一个空工作表中的B3和C5单元格任意输入一个数值，运行Activecell.usedrange.Select后选取的不只是B3和C5单元格，而是B3:C5单元格区域

[此贴子已经被作者于2004-10-25 22:43:59编辑过]

先锋

试过了，不行的。

shangyu

2003，不支持Aactivecell.usedrange.Select

activesheet.usedrange.select

先锋

以下是引用shangyu在2004-10-25 22:32:00的发言：

2003，不支持Aactivecell.usedrange.Select

activesheet.usedrange.select

可以了！

gvntw

Sheet1.UsedRange.Select