VBA实用小程序64： 标识工作表中的名称区域

学习Excel技术，关注微信公众号：

excelperfect

在工作表中定义名称是一项很强大的功能，我们可以将定义名称的单元格区域看作一个整体，从而方便对其进行很多操作。在进行工作表数据处理时，很多人都会定义名称。

有时候，在分析工作表数据时，如果能够清楚地看出命名区域，将有助于我们了解工作表。下面的一小段程序可以将工作表中的命名区域添加红色背景色：

Sub SetNameRanges()

'声明变量

Dim rngName As Name

On Error Resume Next

'遍历当前工作簿中的名称

For Each rngName In ActiveWorkbook.Names

'将名称区域的单元格背景色设置为红色

rngName.RefersToRange.Interior.ColorIndex = 3

Next rngName

End Sub

如下图1所示，在工作表中定义了两个命名区域。

运行SetNameRanges过程，结果如下图2所示。