Ciclo For Each...Next


Enumeración de los elementos que forman una colección a través del ciclo For Each ... Next

Estructura del ciclo:

For Each elemento In colección
    [instrucciones]
Next [elemento]



Ejemplos del ciclo For Each...Next

Para cada una de las hojas que forman el libro activo
  • For Each hoja In ActiveWorkbook.Worksheets
Sub ciclos()
Dim hoja As Worksheet

    'Para cada una de las hojas que forman el libro activo
    For Each hoja In ActiveWorkbook.Worksheets
        MsgBox hoja.Name
    Next hoja

End Sub



Para cada una de las celdas que forman el rango "A1:A3"
  • For Each celda In Range("A1:A3")
Sub ciclos()
Dim celda As Range

    For Each celda In Range("A1:A3")
        Debug.Print celda.Value
    Next celda

End Sub



Para cada uno de los nombres que forman un arreglo de nombres

Sub ciclos()
Dim nombres As Variant
Dim nombre As Variant

    nombres = Array("Juan", "Pedro", "María")
    
    For Each nombre In nombres
        Debug.Print nombre
    Next nombre

End Sub