¿Cómo convierto una lista delimitada en una tabla de varias columnas en Excel?

Tengo una lista como esta:

Friut;Taste;Color;Other;Apple;Good;Red and Blue;1;Orange;Really Good;Orange;12

Y quiero convertirlo seleccionando cada 4 delimitaciones y convirtiéndolas en filas como esta:

Fruit    Taste     Color     Other
Apple    Good      Red and G.1
Orange   Really Go.Orange    12

¿Cómo es esto posible con Libreoffice (preferido), Openoffice o Excel?

Editar: lo anterior es un ejemplo. Lo estoy usando para seleccionar 4 delimitaciones, pero hay alrededor de 500 filas en las que necesito que funcione.

Edit2: proporcioné mi propia respuesta (correcta)

Macro de VBA para dividir filas enteras en varias filas

Con esta macro, divide filas enteras en varias filas. Puedes elegir cuántas columnas quieres después de dividir. simplemente cambie el valor de iSpliten la primera línea. No uso un delimitador específico, solo conteo de columnas.

Comenté cada paso. Es fácil ajustar la macro a sus necesidades personales.

1. Abra el editor de Excel y VBA con Alt+F11
2. En el panel izquierdo, pegue el código debajo de la hoja donde se colocan sus datos
3. Modifique las dos primeras líneas según sus necesidades.
4. Ejecute la macro con F5

Const iSplit = 4    '## how many columns do you want after splitting

Sub transposeColumn()
    '## search the last row to know how many rows we have to iterate through
    iLastRow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row

    '## begin to loop through every row. Begin at last row and go upwards
    For r = iLastRow To 1 Step -1

        '## search the last column in the current row
        iLastCol = Rows(r).Find("*", Cells(r, 1), , , xlByColumns, xlPrevious).Column

        '## calculate how many new rows we need to insert for this row
        iNewRows = WorksheetFunction.RoundUp(iLastCol / iSplit, 0) - 1

        '## begin to copy and insert new rows, one by one
        For c = 1 To iNewRows

            '## insert a new blank line where we can copy values to
            Rows(r + c).Insert Shift:=xlDown

            '## set the source range for easier access later
            Set rngSrc = Range(Cells(r, iSplit * c + 1), Cells(r, iSplit * c + iSplit))

            '## copy and paste the range
            rngSrc.Copy Destination:=Cells(r + c, 1)

            '## clear all cells which we have just copied
            rngSrc.Clear
        Next c
    Next r
End Sub

Si la lista es un archivo de texto, puede usar el Asistente de importación de texto en Excel. Supongo que hay una herramienta similar en LibreOffice y Openoffice.org.

Sin embargo, dado que los delimitadores son los ;signos, cuando importe, será necesario organizar los datos, ya que se importarán como una fila de valores. Puede modificar el archivo de texto original y agregar otro delimitador que signifique la siguiente fila.

Mi respuesta vino del usuario49740:

sed -re 's/([^;]*);([^;]*);([^;]*);([^;]*);?/\1,\2,\3,\4\n/g' input.txt > output.txt

La primera mitad de la cadena:

([^;]*);([^;]*);([^;]*);([^;]*);?

Encuentra 4 grupos de ([^;]*)(todos los caracteres antes del punto y coma) y luego un punto y coma. La segunda mitad:

\1,\2,\3,\4\n

Cambia el texto a formato CSV. > output.txtescribirá el archivo convertido en output.txt.