Macro Excel: Consolidar Datos de Varias Hojas en una Sola Tabla

¿Por qué es útil?

En muchos proyectos de Excel, los datos se distribuyen en diferentes hojas (por meses, departamentos, productos, etc.). Consolidar toda esa información manualmente es lento y propenso a errores. Esta macro te permite automatizar el proceso, reuniendo todos los datos en una sola hoja resumen.

Paso 1: Estructura de las Hojas

Supón que tienes un archivo con varias hojas (Enero, Febrero, Marzo, etc.), todas con la misma estructura:

Fecha	Producto	Ventas
01/01/2025	A	100
02/01/2025	B	150
...	...	...

Paso 2: Código de la Macro

Abre el Editor de VBA (ALT + F11), inserta un módulo y pega el siguiente código:

Sub ConsolidarDatos()
    Dim ws As Worksheet
    Dim wsDestino As Worksheet
    Dim UltimaFila As Long, FilaDestino As Long

    ' Crear o limpiar la hoja de consolidación
    On Error Resume Next
    Set wsDestino = Worksheets("Consolidado")
    If wsDestino Is Nothing Then
        Set wsDestino = Worksheets.Add
        wsDestino.Name = "Consolidado"
    Else
        wsDestino.Cells.Clear
    End If
    On Error GoTo 0

    FilaDestino = 1

    ' Recorrer todas las hojas
    For Each ws In Worksheets
        If ws.Name <> "Consolidado" Then
            UltimaFila = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

            ' Copiar encabezados solo la primera vez
            If FilaDestino = 1 Then
                ws.Rows(1).Copy wsDestino.Rows(FilaDestino)
                FilaDestino = FilaDestino + 1
            End If

            ' Copiar datos (sin encabezado)
            ws.Range("A2:C" & UltimaFila).Copy wsDestino.Cells(FilaDestino, 1)
            FilaDestino = FilaDestino + UltimaFila - 1
        End If
    Next ws

    MsgBox "¡Consolidación completada!", vbInformation
End Sub

Paso 3: Ejecución Paso a Paso

Prepara tus hojas: Todas deben tener la misma estructura y los datos deben comenzar en la fila 2 (encabezados en la fila 1).
Agrega la macro: Pega el código anterior en un módulo de VBA.
Ejecuta la macro: Desde el editor de VBA o asigna la macro a un botón en tu hoja de Excel.
¡Listo!: Se creará una hoja llamada "Consolidado" con todos los datos.

Diagrama de Flujo

flowchart TD A[Inicio] --> B{"¿Existe la hoja Consolidado?"} B -->|Sí| C[Limpia hoja] B -->|No| D[Crea hoja Consolidado] C --> E[Itera por cada hoja] D --> E E --> F{"¿Es la hoja Consolidado?"} F -->|Sí| E F -->|No| G[Copia encabezados si es la primera hoja] G --> H[Copia datos sin encabezados] H --> E E -->|Fin de iteración| I[Muestra mensaje de éxito]

Tabla Resumen del Proceso

Paso	Acción
1	Revisa si existe la hoja "Consolidado"
2	Limpia o crea la hoja
3	Recorre todas las hojas
4	Copia encabezados una sola vez
5	Copia datos de cada hoja
6	Muestra mensaje al finalizar

Recomendaciones

Estructura uniforme: Asegúrate de que todas las hojas tengan exactamente las mismas columnas y en el mismo orden.
Evita celdas vacías: Los datos deben estar contiguos, sin filas vacías entre ellos.
Nombres de hojas: No cambies el nombre de la hoja "Consolidado" mientras usas la macro.
Haz una copia de seguridad: Antes de ejecutar macros, guarda una copia de tu archivo por seguridad.
Personalización: Si tus datos tienen más columnas, ajusta el rango "A2:C" en el código a la última columna de tus datos (por ejemplo, "A2:E").

Conclusión

Automatizar la consolidación de datos en Excel con una macro no solo ahorra tiempo, sino que también reduce errores y mejora la productividad. Esta macro es una excelente herramienta para quienes trabajan con reportes mensuales, ventas por sucursal, o cualquier escenario donde los datos se fragmentan en varias hojas. ¡Pruébala y comparte tu experiencia en los comentarios de tu blog!

¿Te gustaría ver más ejemplos de macros útiles? ¡Déjame tus sugerencias!