Transponer en excel sin unirlo todo

freeweb · el 20 de noviembre

Hola, soy nuevo en esto de los foros (disculpenme si me equivoco en algo:beguiled:) ...

Tengo una columna de datos así:

asdf (en negrita tal cual)

qwe

ert

yui

poiu (en negrita tal cual)

bnm

cvb

ert

tyu

cuando uso la opción de copiar y pegar me lo transpone así:

asdf qwe ert yui poiu bnmcvb ert tyu

y quiero transponerlo así:

asdf qwe ert yui

poiu bnmcvb ert tyu

como puedo hacerlo?.... tengo mas de 10000 datos. He buscado otras macros que estan en el foro pero no he conseguido una que lo haga :joyous:.

Agradecería cualquier ayuda:grief: o sugerencias....

Pinta · el 20 de noviembre

Buenas montando algo rápido podría servir esto.... suponiendo que los datos están en la columna A y que queremos que se coloquen en cada celda en negrita. Seguramente se podrá optimizar más el código...

Sub ejecuta()
    Application.ScreenUpdating = False
    Dim Celda As Range
    Dim Inicio As Boolean
    Dim Columna As Integer
    Dim Fila As Integer

    Range("A1").Select

    Columna = ActiveCell.Column + 1
    Fila = ActiveCell.Row

    While ActiveCell &lt;&gt; ""

        Do
            Cells(Fila, Columna) = ActiveCell
            Columna = Columna + 1
            ActiveCell.Offset(1, 0).Select
        Loop Until ActiveCell.Font.Bold = True Or ActiveCell = ""

        Columna = ActiveCell.Column + 1
        Fila = ActiveCell.Row
    Wend
End Sub