Как я могу "выровнять правильно" результаты функции Excel "текст в Столбцы"?

вот еще одна процедура VBA, чтобы сделать это.  Текст в Столбцы, затем выберите прямоугольный диапазон, в который вы помещаете данные (т. е. столбцы A - (max fields) × rows) и запустите этот макрос.  См.как добавить VBA в MS Office? для учебных материалов.

Sub Copy_Right()
    For Each rr In Selection.Rows
        For cn = Selection.Columns.Count To 1 Step -1
            If Len(rr.Cells(1, cn)) > 0 Then Exit For
        Next cn
        ' cn is now the (relative) column number of the last cell in this row
        ' that contains (non-blank) data.
        my_offset = Selection.Columns.Count - cn
        ' my_offset is how many columns to the right we need to move.
        ' If my_offset = 0, the row is full of data (or, at least,
        ' the last column contains data; there may be blank cells
        ' to its left), so there’s nowhere to move it.
        ' If cn = 0, the row is empty, so there’s nothing to move.
        If cn = 0 Or my_offset = 0 Then
            ' Nothing to do.
        Else
            For cn = Selection.Columns.Count To 1 Step -1
                If cn > my_offset Then
                    ' Copy data to the right.
                    rr.Cells(1, cn) = rr.Cells(1, cn - my_offset)
                Else
                    ' Set the cells on the left to blank.
                    rr.Cells(1, cn) = ""
                End If
            Next cn
        End If
    Next rr
End Sub

этой будет обрабатывать пустые ячейки (например,the;quick;;fox;) правильно.  В противном случае различия между этим ответом и другим просто произвольные личные предпочтения, и другие кто-то может быть выше меня в том, чего я не понимаю.