VBA: para cada bucle

UN For Each El bucle se utiliza para ejecutar una declaración o un grupo de declaraciones para cada elemento de una matriz o colección.

Un bucle For Each es similar al bucle For; sin embargo, el ciclo se ejecuta para cada elemento de una matriz o grupo. Por lo tanto, el contador de pasos no existirá en este tipo de bucle. Se usa principalmente con matrices o se usa en el contexto de los objetos del sistema de archivos para operar de forma recursiva.

Sintaxis

A continuación se muestra la sintaxis de un For Each bucle en VBA.

For Each element In Group
   [statement 1]
   [statement 2]
   ....
   [statement n]
   [Exit For]
   [statement 11]
   [statement 22]
Next

Ejemplo

Private Sub Constant_demo_Click()  
   'fruits is an array
   fruits = Array("apple", "orange", "cherries")
   Dim fruitnames As Variant
 
   'iterating using For each loop.
   For Each Item In fruits
      fruitnames = fruitnames & Item & Chr(10)
   Next
   
   MsgBox fruitnames
End Sub

Cuando se ejecuta el código anterior, imprime todos los nombres de las frutas con un elemento en cada línea.

apple
orange
cherries