macro para transponer

[mrocf]

Hola! anavlis. Suponiendo que:

a) Los datos los tuvieses en la hoja "Hoja3", en el rango A1:F100 con los "títulos" en la fila 1;

b) Y que los quisieses pasar a la hoja "Hoja4", en las columnas A:D con los "títulos" en la fila 1

entonces podrías intentar con el siguiente:

Código PHP:

  Sub CambioDeFormato()
Dim qPreg As Byte, C As Range

Worksheets("Hoja4").[a1].CurrentRegion.Offset(1).Delete xlShiftUp
qPreg = Worksheets("Hoja3").[a1].End(xlToRight).Column - 2

For Each C In Range(Worksheets("Hoja3").[a2], Worksheets("Hoja3").[a1].End(xlDown))
  With Worksheets("Hoja4").[a65536].End(xlUp)
    .Offset(1, 0).Resize(qPreg) = C
    .Offset(1, 1).Resize(qPreg) = WorksheetFunction.Transpose(C.Parent.[c1].Resize(, qPreg))
    .Offset(1, 2).Resize(qPreg) = WorksheetFunction.Transpose(C.Offset(, 2).Resize(, qPreg))
    C.Offset(, 1).Copy .Offset(1, 3).Resize(qPreg)
  End With
Next C
End Sub  
   

¿Te puede servir?...
Saludos, Cacho.