¿Cómo trabajar con rangos y celdas desde VBA?

Trabajar con rangos y celdas desde VBA significa leer, escribir y manipular datos en una hoja de Excel usando los objetos Range, Cells y Offset.

Estos tres objetos son el núcleo de cualquier macro que procese datos reales. Sin dominarlos, no puedes automatizar reportes, rellenar tablas ni limpiar información.

El objeto Range

Range es la forma más directa de referirte a una celda o grupo de celdas. Su sintaxis básica es:

Range("dirección")

Ejemplos de direcciones válidas:

Leer y escribir con Range

Para leer el valor de una celda:

Dim nombre As String
nombre = Range("B2").Value

Para escribir un valor en una celda:

Range("B2").Value = "Liverpool"

Para escribir una fórmula:

Range("D2").Formula = "=B2*C2"

Propiedad clave: Siempre usa .Value para datos y .Formula para fórmulas. Si omites la propiedad, VBA usa .Value por defecto, pero ser explícito evita confusiones.

El objeto Cells

Cells referencia una celda usando números de fila y columna en lugar de letras. Su sintaxis es:

Cells(fila, columna)

Donde fila y columna son números enteros. Cells(1, 1) equivale a A1; Cells(2, 3) equivale a C2.

¿Por qué usar Cells en lugar de Range?

Cells es ideal cuando el número de fila o columna cambia dentro de un bucle. Con Range, la dirección es texto fijo. Con Cells, puedes usar variables.

Ejemplo práctico — Reporte de ventas Bimbo:

Supón que tienes una lista de 50 productos en las filas 2 a 51. Quieres escribir "Bimbo" en la columna A de cada fila:

Sub RellenarEmpresa()
    Dim i As Long
    For i = 2 To 51
        Cells(i, 1).Value = "Bimbo"
    Next i
End Sub

Con Range esto sería imposible de hacer dinámicamente sin concatenar texto. Con Cells es limpio y directo.

Combinar Range y Cells

Puedes combinar ambos para definir un bloque dinámico:

Dim ultimaFila As Long
ultimaFila = 51
Range(Cells(2, 1), Cells(ultimaFila, 4)).Interior.Color = RGB(255, 255, 0)

Esto pinta de amarillo el bloque de A2 hasta D51 sin escribir la dirección como texto.

El objeto Offset

Offset desplaza la referencia a otra celda a partir de una celda inicial. Su sintaxis es:

Range("celda").Offset(filas, columnas)

Los valores positivos bajan o van a la derecha. Los negativos suben o van a la izquierda.

Ejemplo con Offset — Reporte FEMSA

Tienes encabezados en la fila 1: Producto, Cantidad, Precio Unitario, Total. Los datos empiezan en A2. Quieres calcular el total de cada fila sin escribir una fórmula en cada celda:

Sub CalcularTotalesFEMSA()
    Dim celdaBase As Range
    Dim i As Long
    Dim cantidad As Long
    Dim precio As Double
    Dim total As Double

    For i = 2 To 11
        Set celdaBase = Cells(i, 1)
        cantidad = celdaBase.Offset(0, 1).Value
        precio = celdaBase.Offset(0, 2).Value
        total = cantidad * precio
        celdaBase.Offset(0, 3).Value = total
    Next i
End Sub

Offset hace que el código sea legible: siempre partes de la misma columna base y te mueves relativamente.

Rellenar un reporte automáticamente

Aquí aplicas todo lo anterior en un caso realista. Supón que el sistema de Mercado Libre exporta datos crudos: Vendedor, Unidades, Precio en las columnas A, B y C. Tú necesitas agregar automáticamente:

• Columna D: Total por vendedor
• Columna E: Comisión del 8 %
• Columna F: Etiqueta "Alto" si el total supera $15,000, "Normal" en otro caso

Sub ReporteVentasMercadoLibre()
    Dim ultimaFila As Long
    Dim i As Long
    Dim total As Double
    Dim comision As Double

    ' Detectar la última fila con datos en la columna A
    ultimaFila = Cells(Rows.Count, 1).End(xlUp).Row

    ' Escribir encabezados
    Range("D1").Value = "Total"
    Range("E1").Value = "Comision"
    Range("F1").Value = "Nivel"

    For i = 2 To ultimaFila
        total = Cells(i, 2).Value * Cells(i, 3).Value
        comision = total * 0.08

        Cells(i, 4).Value = total
        Cells(i, 5).Value = comision

        If total > 15000 Then
            Cells(i, 6).Value = "Alto"
        Else
            Cells(i, 6).Value = "Normal"
        End If
    Next i

    MsgBox "Reporte completado. " & (ultimaFila - 1) & " filas procesadas."
End Sub

Línea clave:

ultimaFila = Cells(Rows.Count, 1).End(xlUp).Row

Esta línea detecta automáticamente hasta dónde llegan los datos. No necesitas escribir el número de filas a mano. Es la técnica estándar para listas de longitud variable.

Propiedades útiles de celdas y rangos

Errores comunes

Error 1 — Confundir .Value con .Text Si una celda muestra "$18,500" por formato, .Text devuelve ese texto. .Value devuelve el número 18500. Usa .Value para cálculos matemáticos y .Text solo para mostrar información.

Error 2 — Usar Range con variables sin concatenar correctamente Escribir Range("A" & i) funciona, pero es fácil cometer errores de formato con rangos compuestos. Usa Cells(i, 1) cuando la fila sea variable. Es más limpio y menos propenso a errores.

Error 3 — No detectar la última fila y procesar celdas vacías Si escribes For i = 2 To 1000 y solo tienes 80 filas de datos, el bucle procesará 920 filas vacías. Usa siempre Cells(Rows.Count, 1).End(xlUp).Row para obtener el límite real.

Error 4 — Offset fuera de rango Si estás en la celda A1 y aplicas Offset(-1, 0), VBA genera un error en tiempo de ejecución porque no existe la fila 0. Valida siempre que el desplazamiento no saque la referencia fuera de la hoja.

Error 5 — No calificar el rango con la hoja correcta Cuando tu macro puede ejecutarse con varias hojas abiertas, Range("A1") siempre afecta la hoja activa. Si necesitas una hoja específica, usa:

Sheets("Reporte").Range("A1").Value = "FEMSA"

Sin calificar la hoja, tu macro puede sobrescribir datos en la hoja equivocada.

Resumen de cuándo usar cada objeto

Puntos clave

• Range usa direcciones de texto ("A1", "B2:D10"); es ideal para referencias fijas como encabezados o celdas de configuración.
• Cells(fila, columna) usa números; es la opción correcta cuando la fila o columna cambia dentro de un bucle For-Next.
• Offset desplaza la referencia de forma relativa; simplifica el código cuando procesas filas completas desde una celda base.
• Detecta siempre la última fila con Cells(Rows.Count, 1).End(xlUp).Row para evitar bucles que procesen celdas vacías.
• Califica siempre el rango con la hoja (Sheets("nombre").Range(...)) cuando la macro opera en múltiples hojas para evitar sobrescribir datos en la hoja equivocada.