练习小课堂

表4-6中是一个未完成的程序，请根据代码说明将程序补充完整。让程序运行后，选中活动工作表中A1：D10单元格区域里与A1单元格内容相同的所有单元格，如图4-37所示。

图4-37　程序执行效果图

表4-6

参考答案

Range对象的Offset属性" class="reference-link"> Range对象的Offset属性

“牛头市同兴路2号张大明转张姣（收）”，张姣是张大明的堂妹，写信的人不知道她家住哪里，所以让张大明转交。这是写地址的另一种方式。

就像寄信一样，如果想把500保存到A1单元格的某个邻居（单元格）里，可以利用Range对象的Offset属性。

从A1单元格出发，先向下移动2行，再向右移动3列，到达的单元格就是要保存数据的地方，如图4-38所示。

图4-38　Offset属性

修改Offset的参数可以控制移动的方向和距离。如果参数是正数，表示向下或向右移动，如图4-33所示；如果参数为负数，表示向上或向左移动；如果参数为0，则不移动，如图4-39所示。

图4-39　利用Offset属性的参数控制偏移的方向和距离

Range对象的Resize属性

使用Range对象的Resize属性扩大或缩小指定的单元格区域，得到一个新的单元格区域，如图4-40和图4-41所示）。

图4-40　使用Resize属性扩大单元格区域

图4-41　使用Resize属性收缩单元格区域

Worksheet对象的UsedRange属性

UsedRange是Worksheet对象的属性，返回工作表中已经使用的单元格围成的矩形区域，如图4-42所示。

图4-42　使用UsedRange属性返回Range对象

UsedRange属性返回的工作表中所有已经使用的单元格围成的矩形区域，而不管这些区域间是否有空行、空列或空单元格，如图4-43所示。

图4-43　使用UsedRange属性返回Range对象

Range对象的CurrentRegion属性

CurrentRegion属性返回当前区域，即以空行和空列的组合为边界的区域，如图4-44所示。

图4-44　使用CurrentRegion属性返回Range对象