Range对象应用大全(5)

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

（7）格式化当前区域中的数据

Sub FormatCurrentRegion()

With ActiveCell.CurrentRegion .Font.Bold = True .Font.ColorIndex = 3 End With End Sub

上述代码将工作表中活动单元格所在区域数据加粗且设置为红色。 （8）在当前区域中自动套用格式

Sub testAutoFormatCurrentRegion()

Worksheets(\).Range(\).CurrentRegion.AutoFormat End Sub

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

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

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

图4

可以编写如下的代码：

Sub FillBlankCells()

Worksheets(\).Range(\).CurrentRegion.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = \

Worksheets(\).Range(\).CurrentRegion.Value Worksheets(\).Range(\).CurrentRegion.Value End Sub

=

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

图5

示例下载：

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

如图6所示的工作表，现在对第3列进行排序，按降序排列。

图6

编写的代码如下：

Sub testSort() Dim rng As Range

Set rng = Worksheets(\).Cells(1, 1).CurrentRegion

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

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

图7

示例下载：

小结

1、CurrentRegion属性的基本语法为：

<单元格对象>.CurrentRegion

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库Range对象应用大全(5)在线全文阅读。