您可能经常在代码中看到CurrentRegion属性，它是一个非常有用

CurrentRegion属性代表什么

您可能经常在程序代码中看到CurrentRegion属性，它是一个非常有用的属性，返回活动单元格所在的周围由空行和空列组成的单元格区域(即通常所说的当前区域。

具体地说，当前区域即活动单元格所在的矩形区域，该矩形区域的每一行和每一列中至少包含有一个数据，其周围是空行和空列，中列举了其中的4种情形(见蓝色阴影区域)。在当前区域范围内，不管活动单元格是哪一个单元格，其所在的当前区域均为同一区域，如上例中的B5:D7区域，活动单元格B5的当前区域为B5:D7，当活动单元格为C6时，其当前区域仍为B5:D7。

使用CurrentRegion属性相当于在Excel工作表中选择菜单“编辑——定位”命令，在弹出的“定位”对话框中单击“定位条件”按钮，然后在“定位条件”对话框中选中“当前区域”选项按钮，或者相当于使用Ctrl+Shift+*组合键。

CurrentRegion属性可用于很多操作，下面通过的工作表示例讲解该属性的应用。

[示例1] 在当前区域中查找空白单元格并填充

所示的工作表，现在要使用空白单元格上方的有数据的单元格中的数据来填充空白单元格。

可以编写如下的代码：

Sub FillBlankCells()

Worksheets("sheet1").Range("A1").CurrentRegion. _

SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"

Worksheets("sheet1").Range("A1").CurrentRegion.Value = _

Worksheets("sheet1").Range("A1").CurrentRegion.Value

End Sub

运行代码后，工作表中单元格A1所在区域中的空白单元格被相应数据填充。

示例2] 一个排序的简单示例

工作表，现在对第3列进行排序，按降序排列。

编写的代码如下：

Sub testSort()

Dim rng As Range

Set rng = Worksheets("sheet1").Cells(1, 1).CurrentRegion

rng.Sort Key1:=rng.Cells(1, 3), Order1:=xlDescending, Header:=xlYes

End Sub

运行代码后，工作表中的数据将按照第3列的数据从大到小进行排列

(6) 复制当前区域的数据到另一位置

Sub CopyCurrentRegion()

Sheets("sheet1").Range("A1").CurrentRegion.Copy Sheets("sheet2").Range("A1")

End Sub

上述代码将工作表Sheet1中单元格A1所在的区域复制到工作表sheet2中以单元格A1开始的单元格区域中。

(7) 格式化当前区域中的数据

Sub FormatCurrentRegion()

With ActiveCell.CurrentRegion

.Font.Bold = True

.Font.ColorIndex = 3

End With

End Sub

上述代码将工作表中活动单元格所在区域数据加粗且设置为红色。

(8) 在当前区域中自动套用格式

Sub testAutoFormatCurrentRegion()

Worksheets("sheet1").Range("A1").CurrentRegion.AutoFormat

End Sub

上述代码将在工作表sheet1中单元格A1所在区域自动套用默认的格式，当然，您可以设置所需套用的格式，默认值为xlRangeAutoFormatClassic1。

小结

1、CurrentRegion属性的基本语法为：<单元格对象>.CurrentRegion

2、可以先使用CurrentRegion属性返回指定单元格或者活动单元格所在的区域，然后使用其它的属性对该区域的数据进行操作。

小伙伴，大家一起学习Excel VBA知识，一起进步。同时欢迎大家帮忙转发并关注，谢谢大家的支持！