大家好，我们今日继续讲解VBA代码解决方案的第123讲内容：利用单元格的Offset属性和Resize属性改变选择区域的大小.我们在操作EXCEL时候，按下鼠标，拖动就会完成一个区域的选择，那么这个动作是否可以通过VBA代码来实现呢？
在上一讲中我们谈到了Offset属性，这个属性是单元格属性中应用最为灵活的一个属性，也非常好理解，我们可以使用Offset属性完成定位，然后再改变选择区域的大小，就可以实现我们刚刚提出的问题。
假设开始选择的区域是A6:A15，如何将选择区域向下移动两行，向右移动两列，然后再改变选择区域实现选择区域是C8:F9呢？Offest属性只能完成前面部分向下移动两行，向右移动两列这个动作，实现后面部分要求另外一个属性来完成。这个就是Resize属性
Resize属性的语法为：Range对象.Resize(RowSize,ColumnSize)
Resize属性将扩展特定的单元格，返回一个由参数RowSize和ColumnSize指定行列数的单元格区域。其中：
a 参数RowSize指定新单元格区域的行数。若省略该参数，则新单元格区域的行数与原来相同。
Range('A1').Resize(1, 3).Select等价于代码：省略了第一个参数Range('A1').Resize(, 3).Select都将选择单元格区域A1:C1。
b 参数ColumnSize指定新单元格区域的列数。若省略该参数，则新单元格区域的列数与原来相同。
C 利用Resize属性对单元格进行扩张时，是以原单元格为起始点但包括原单元格本身的扩张。
我们可以结合Offset属性和Resize属性来完成上面的问题。在结合这两个属性之前，我们先看看下面的代码：
Range("A6:A15").Select
Selection.Offset(2, 2).Select
Selection.Resize(2, 4).Select
下面我们来分析上述代码的执行过程：录入代码如下
Sub mynzDM()
Sheets("sheet5").Select '定位在sheet5工作表
Range("A6:A15").Select
Selection.Offset(2, 2).Select
Selection.Resize(2, 4).Select
End Sub
代码截图:
为了看到每个步骤我设置了断点。
点击执行：
1 截图1
第一条指令选择区域A6:A15，当前活动单元格是A6。
2去掉代码Selection.Offset(2, 2).Select的断点，截图2
第二条指令将选区偏移到C8:C17。活动单元格C8处于原单元格A5的向下两行和向右两列(大家要记住这个两行和两列是不含原单元格的)。现在，活动单元格是C8。
3 去掉最后的断点，执行：
最后一条指令将当前选区 改变大小，单元格区域C8:F9被选中了，而不再是C8:C17。此时的活动单元格是C8, Selection.Resize(2, 4).Select ，就是C8的单元格向下扩展两个，向右扩展4个(这时的扩展是将起始的活动单元格计算在内的)
当然，后面两行指令可以结合成下面方式： Selection.Offset(2, 2).Resize(2, 4).Select
上面的例子，别看简单，其实分成了三个步骤：
第一步：Offset属性计算得到新区域的起始点，
第二步：Resize 属性决定新选区的大小，
第三步：Select方法选取具体的单元格区域。
在我们实际程序的编写中会经常用到的指令是ActiveCell，会代替活动单元格的具体位置，这样一来你的程序会大大的简化。如代码：ActiveCell.Offset(-3, 0).Select 都是经常用到的。
今日内容回向：
1 Resize 属性的意义是什么？
2 如何改变选择的区域呢？
