让 VBA 循环重复工作：快速掌握 For Each…Next 循环语句

2023-09-08 09:37:16

For Each…Next循环语句的应用

For Each…Next 循环语句的概述

For Each…Next 循环语句是一种迭代语句，用于逐个遍历集合中的元素，并在每次迭代中执行指定的代码块。其基本语法如下：

For Each item In collection
    [statements]
Next [item]

item：要在集合中进行迭代的变量。
collection：要遍历的集合。可以是数组、范围、集合或任何实现了 IEnumerable 接口的对象。
statements：要在每次迭代中执行的代码块。

For Each…Next 循环语句的用法

For Each…Next 循环语句的使用非常简单，下面是一个简单的示例：

Sub PrintNumbers()
    Dim numbers As Variant
    numbers = Array(1, 2, 3, 4, 5)

    For Each number In numbers
        Debug.Print number
    Next number
End Sub

这段代码将创建一个包含五个数字的数组，然后使用 For Each…Next 循环语句逐个打印这些数字。

For Each…Next 循环语句还可以在集合的子集上使用。例如，以下代码将只打印数组中的偶数：

Sub PrintEvenNumbers()
    Dim numbers As Variant
    numbers = Array(1, 2, 3, 4, 5)

    For Each number In numbers
        If number Mod 2 = 0 Then
            Debug.Print number
        End If
    Next number
End Sub