最佳答案
在VBA编程中，For Each轮回是一种非常实用的轮回构造，它容许你遍历凑会合的每一个元素。本文将具体介绍VBA For Each函数的用法。 For Each轮回的基本语法构造是：For Each element In collection。其中，element代表凑会合的单个元素，collection代表包含多个元素的凑集。利用For Each轮回时，不须要关怀凑会合有多少个元素，VBA会主动遍历全部元素。 以下是For Each轮回的一个典范示例： Sub LoopThroughCollection() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Range("A1").Value = "Hello" Next ws End Sub 鄙人面的代码中，我们定义了一个名为LoopThroughCollection的过程。这个过程中，我们利用For Each轮回遍历了以后任务簿中的全部任务表（ThisWorkbook.Worksheets），并对每个任务表的A1单位格赋值。 须要留神的是，在利用For Each轮回时，不克不及修改凑会合的元素，比方不克不及在轮回中增加或删除任务表。假如须要修改凑集，应当利用For轮回。 其余，For Each轮回在遍历数组时也非常有效。以下是一个遍历数组的例子： Sub LoopThroughArray() Dim element As Variant Dim myArray As Variant myArray = Array(1, 2, 3, 4, 5) For Each element In myArray Debug.Print element Next element End Sub 在这个例子中，我们定义了一个名为LoopThroughArray的过程，它遍历了一个名为myArray的数组，并在破即窗口中打印每个元素的值。 总结，VBA For Each函数是一种简化凑集或数组遍历的富强东西。经由过程For Each轮回，你可能轻松地遍历凑会合的全部元素，而无需关怀元素的数量。但是，要记取不克不及在For Each轮回中修改凑集本身。