在对象中循环——For Each-Next结构的使用-英雄云拓展知识分享

前面我们介绍过Excel的对象模型及一些经常使用的对象，也解过对象变量的概念及声明对象变量的方法。其实，在绝大多数情况下，我们都是经过使用Excel VBA操纵Excel对象来到达我们的目标。举例来看，我们可以操作工作表对象，为工作表命名、排序工作表、统计工作表个数；我们可以操作单元格对象，在单元格区域中填充内容、查找有指定内容的单元格；等等。

为方便操控Excel对象，VBA提供了For Each-Next结构，可以在对象组成的汇聚中循环，给汇聚中的所有对象履行操作，或汇聚中满足相干条件的对象履行操作。

使用For Each-Next结构，我们无需知道汇聚中对象的数目，只需要声明相应的对象变量，编写履行操作的指令。

For Each-Next结构的语法以下：

For Each 对象变量In 对象汇聚

[语句块]

[Exit For]

[语句块]

Next [对象变量]

说明：

依照惯例，方括号中的内容表示可选项。

对象变量在使用前需要进行声明。

Exit For语句表示提早退出循环。

无需知道汇聚中的对象数目。

可以与其它语法结构相互嵌套。

下面经过示例来演示For Each-Next结构的使用。

示例1：下面的代码遍历当前工作簿中的工作表并顺次显示工作表的名字。

Sub ForEach1()

Dim wks As Worksheet ‘声明工作表对象变量

‘遍历工作表汇聚并顺次显示工作表的名字

For Each wks In Worksheets

MsgBox “工作表的名字是:”& wks.Name

Next wks

End Sub

示例2：经过改进上面的示例1，在显示工作表名字时表示是第几个工作表，最后统计出工作簿中的工作表数，代码以下。

Sub ForEach2()

Dim wks As Worksheet ‘声明工作表对象变量

Dim i As Long ‘声明用于统计工作表数的变量

i = 0 ‘给变量赋初始值

For Each wks In Worksheets

i = i + 1

MsgBox “第” &i & “个工作表的名字是:” & wks.Name

Next wks

MsgBox “本工作簿共有” & i& “个工作表.”

End Sub

示例3：下面的代码遍历当前工作表的单元格区域A1:A5，并顺次显示每一个单元格中的内容。

Sub ForEach3()

Dim cell As Range ‘声明单元格对象变量

‘遍历单元格区域A1:A5并顺次显示单元格内容

For Each cell In Range(“A1:A5”)

MsgBox cell.Value

Next cell

End Sub

示例4：下面的代码与示例3的效果相同，但我们设置了代表单元格区域的对象变量并赋值，让For Each结构在对象变量代表的区域内循环遍历。

Sub ForEach4()

Dim cell As Range, rng As Range ‘声明单元格对象变量

‘设置rng变量的值

Set rng = Range(“A1:A5”)

‘遍历rng对象变量代表的单元格区域并顺次显示单元格内容

For Each cell In rng

MsgBox cell.Value

Next cell

End Sub

示例5：下面的代码结合If-Then结构判断满足相应条件的单元格数。

以下图所示，要统计成绩大于80分的学生人数。

运行下面的代码便可。

Sub ForEach5()

Dim cell As Range, rng As Range ‘声明单元格对象变量

Dim i As Long ‘声明计数变量

‘设置rng变量的值

Set rng = Range(“B2:B9”)

i = 0

‘遍历rng对象变量代表的单元格区域

‘并判断单元格中的值是不是大于80

For Each cell In rng

If cell.Value > 80 Then

i = i + 1

End If

Next cell

MsgBox “共有” & i& “名学生超过80分.”

End Sub

代码在For Each循环结构中使用If-Then语句来检查每一个单元格中的值，如果其值大于80，变量i就增加1。