EXCEL: ¿Como pasar una tabla horizontal a una vertical (BD) para usar en tablas dinámicas?

Hola a todos:

En esta entrada, de mi curso gratuito, lo explico.

WordExperto.

Estimado Cesar Ayala
¡Bienvenido/a y gracias por compartir tu problema en el foro de QA!

Según la información que proporcionaste, entiendo que estás intentando convertir una tabla de datos horizontal en un formato vertical, organizado por mes. Sé que ya intentaste hacerlo manualmente copiando y pegando, pero ese método no es práctico cuando se trata de grandes volúmenes de datos.

Para resolver esto, podemos usar una macro en VBA que automatice la transformación. Aquí te explico cómo hacerlo:

Para usuarios de MacOS:

Abre Excel.

Presiona Fn + Option + F11 para abrir el Editor de VBA.

Pega el siguiente código en un nuevo módulo:

Sub TransformDataByMonth()
    ' --- SETUP ---
    ' Declare variables for our worksheets and loop counters
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim lastRow As Long
    Dim lastCol As Long
    Dim destRow As Long
    Dim r As Long ' For looping through source rows (businesses)
    Dim c As Long ' For looping through source columns (months)
    ' To make the macro run faster
    Application.ScreenUpdating = False
    ' Set your source worksheet. CHANGE "Raw Data" IF YOUR SHEET HAS A DIFFERENT NAME.
    On Error Resume Next
    Set wsSource = ThisWorkbook.Sheets("Raw Data")
    On Error GoTo 0
    If wsSource Is Nothing Then
        MsgBox "The source sheet named 'Raw Data' was not found. Please check the sheet name.", vbCritical
        Exit Sub
    End If
    ' Create or clear the destination worksheet
    On Error Resume Next
    Set wsDest = ThisWorkbook.Sheets("Formatted Data")
    On Error GoTo 0
    If wsDest Is Nothing Then
        Set wsDest = ThisWorkbook.Sheets.Add(After:=wsSource)
        wsDest.Name = "Formatted Data"
    Else
        wsDest.Cells.Clear
    End If
    ' --- CREATE HEADERS ---
    With wsDest
        .Cells(1, 1).Value = "Mes"
        .Cells(1, 2).Value = "Negocio"
        .Cells(1, 3).Value = "Datos"
        .Cells(1, 4).Value = "Ventas"
        .Range("A1:D4").Font.Bold = True ' Bold headers
    End With
    destRow = 2 ' Initialize the first row for data entry on the destination sheet
    ' --- PROCESS DATA ---
    ' Find the last used row and column on the source sheet
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    lastCol = wsSource.Cells(2, wsSource.Columns.Count).End(xlToLeft).Column
    ' *** LOGIC CHANGE IS HERE: Loop by MONTH first, then by BUSINESS ***
    ' Loop through each month block (columns), stepping 3 columns at a time
    For c = 2 To lastCol Step 3
        ' For the current month, loop through each business row (e.g., Cali, Bogota)
        For r = 3 To lastRow
            ' Get the month and business name
            Dim monthName As String
            Dim businessName As String
            monthName = UCase(wsSource.Cells(1, c).Value)
            businessName = wsSource.Cells(r, 1).Value
            ' --- Write 3 rows for each data point ---
            ' 1. Presupuesto (Budget)
            wsDest.Cells(destRow, 1).Value = monthName
            wsDest.Cells(destRow, 2).Value = businessName
            wsDest.Cells(destRow, 3).Value = "Presupuesto"
            wsDest.Cells(destRow, 3).Font.Bold = True
            wsDest.Cells(destRow, 4).Value = wsSource.Cells(r, c).Value
            destRow = destRow + 1
            ' 2. Real (Actual)
            wsDest.Cells(destRow, 1).Value = monthName
            wsDest.Cells(destRow, 2).Value = businessName
            wsDest.Cells(destRow, 3).Value = "Real"
            wsDest.Cells(destRow, 3).Font.Bold = True
            wsDest.Cells(destRow, 4).Value = wsSource.Cells(r, c + 1).Value
            destRow = destRow + 1
            ' 3. Diferencia (Difference)
            wsDest.Cells(destRow, 1).Value = monthName
            wsDest.Cells(destRow, 2).Value = businessName
            wsDest.Cells(destRow, 3).Value = "Diferencia"
            wsDest.Cells(destRow, 3).Font.Bold = True
            wsDest.Cells(destRow, 4).Value = wsSource.Cells(r, c + 2).Value
            ' Apply formatting to the "Diferencia" value
            If wsDest.Cells(destRow, 4).Value < 0 Then
                wsDest.Cells(destRow, 4).Font.Color = vbRed
            End If
            ' Add the bottom border to separate the block
            wsDest.Range("A" & destRow & ":D" & destRow).Borders(xlEdgeBottom).LineStyle = xlContinuous
            destRow = destRow + 1
        Next r ' Next business
    Next c ' Next month
    ' --- FINISH UP ---
    ' Autofit the columns for better readability
    wsDest.Columns("A:D").AutoFit
    ' Turn screen updating back on
    Application.ScreenUpdating = True
    wsDest.Activate
    MsgBox "Data transformation is complete!", vbInformation
End Sub

Presiona el botón Run para ejecutar la macro.

Notas importantes: Asegúrate de que la hoja de datos original se llame "Raw Data".
El código asume que cada mes tiene tres columnas: Presupuesto, Real y Diferencia. Por favor, asegúrate de que esta estructura se mantenga.
Toda la información que te proporciono ha sido probada en un entorno de prueba y funciona correctamente. Si surge algún problema o tienes más preguntas, no dudes en compartirlas. ¡Estoy siempre disponible para ayudarte!

"Si la respuesta es útil, haga clic en ""Aceptar respuesta"" y vote amablemente. Si tiene preguntas adicionales sobre esta respuesta, haga clic en ""Comentar"".

Nota: Siga los pasos de [nuestra documentación] para habilitar las notificaciones por correo electrónico si desea recibir la notificación por correo electrónico relacionada con este hilo."