Macro para transponer una matriz a una sola columna, mediante función =transponer().
Tengo una matriz en la hoja1, de A1:i12, por ejemplo, la cual necesito transponer a la hoja2 fila por fila a una sola columna, quedado la matriz A1:A96 mediante la utilización de la función =transponer() ya que necesito que queden relacionadas.
1 Respuesta
Respuesta de James Bond
Prueba con esta macro
Sub transponer()
Set origen = Worksheets("hoja1").Range("a1").CurrentRegion
Set hd = Worksheets("hoja2")
With origen
f = .Rows.Count: c = .Columns.Count
For i = 1 To f
If i = 1 Then Set destino = hd.Range("a1").Resize(c, 1)
If i > 1 Then Set destino = destino.Rows(destino.Rows.Count + 1).Resize(c, 1)
destino.Value = WorksheetFunction.Transpose(.Rows(i).Value)
Next i
End With
End Sub
