VBA – Bucle For a través de un rango de celdas

En VBA, se puede hacer un bucle a través de un rango de celdas, aplicando acciones a cada celda del rango.

Si quieres probar una condición para cada celda en un rango usando VBA, la mejor manera es hacer un bucle a través del rango, probando cada celda. Aquí hay dos ejemplos de código para demostrar cómo hacer un bucle a través de un rango. Puede reemplazar el valor del rango por cualquier rango que necesite recorrer.

Bucle a través de un rango de celdas

Este ejemplo recorrerá un rango de celdas. La sentencia if comprueba la condición si la celda contiene el texto «FindMe» y muestra un cuadro de mensaje con la ubicación del texto si se encuentra.

Public Sub Recorrer_celdas()
    Dim c As Range
    
    For Each c In Range("A1:A10")
        If c.Value = "FindMe" Then
          MsgBox "FindMe encontrado en " & c.Address
        End If
    Next c
End Sub

Bucle a través de toda la columna

Este ejemplo hace un bucle a través de todo el rango de la columna A.

Public Sub Recorrer_columna()
    Dim c As Range
    
    For Each c In Range("A:A")
        If c.Value = "FindMe" Then
          MsgBox "FindMe encontrado en " & c.Address
        End If
    Next c
End Sub

Bucle a través de toda la fila

El siguiente ejemplo hace un bucle a través de la fila 1 considerando toda la fila como un rango.

Public Sub Recorrer_fila()
    Dim c As Range
    
    For Each c In Range("1:1")
        If c.Value = "FindMe" Then
          MsgBox "FindMe encontrado en " & c.Address
        End If
    Next c
End Sub

<<Volver a los ejemplos de VBA