本节课是VBA教学的第三章第16节课：currentregion当前区域指定。主要讲解excel单元格区域的另外一个属性currentregion，同时讲解一下currentregion熟悉与第15节内容的相关区别。

1、Range.CurrentRegion 介绍

Range.CurrentRegion 属性，返回一个 Range 对象，该对象表示当前区域。

代码如下：单元格选择

Sub 当前区域()

[a1].CurrentRegion.Select，以A1单元格对周边区域进行选择。

[f8].CurrentRegion.Select，以F8单元格对周边区域进行选择。

End Sub

2、案例介绍：currentregion运用对单元格进行求和。

代码如下：

Sub currentregion应用()

Rows(8).Clear ‘ 清除第8行数据

a = [b2].CurrentRegion.Address ’ 选择B2单元格周边区域

b = [b5].CurrentRegion.Address ’选择B5单元格周边区域

c = [b2].CurrentRegion.Count + 1 ’对B2单元格选择区域计算并+1

Set c = Range("b8", Cells(8, c)) ‘设置RANG范围对象，

c.FormulaArray = "=" & a & "+" & b ’ 设置数组格式对对应的单元格区域进行求和。

End Sub

3、usedrange与currentregion 区别

'如果表中只有一个区域，两者最后的结果是一样的，只是表达**不一样。

代码如下：

Sub u与c()

Sheet3.UsedRange.Select

[a1].CurrentRegion.Select

End Sub