16、VBA 循环控制逻辑详解

VBA 循环控制逻辑详解

1. For Each 循环

在 VBA 编程中， For Each 循环是一种非常实用的工具，它可以遍历集合中的每个元素。以下是一段示例代码，用于统计名为 “Data” 的区域中包含公式的单元格数量：

Dim cell As Range
Dim counter As Integer
counter = 0
For Each cell In Range("Data")
    If cell.HasFormula Then counter = counter + 1
Next
MsgBox "There are " & counter & " cells in the Data range that contain formulas."

对于有其他编程语言经验但未接触过 VBA 的人来说，可能需要一些时间来适应 For Each 循环。因为并非所有编程语言都有对象和集合的概念，所以也就没有 For Each 循环。不过，它在处理集合时非常有用。例如，可以使用 For Each 循环遍历工作表集合、图表集合、工作表和图表工作表的组合集合以及名称集合等。还可以查看 For Each Examples.xlsm 文件中的代码，以了解更多 For Each 循环的示例。

2. Do 循环

2.1 Do 循环概述

尽管