Как разделить данные по разделителю и переместить их в столбец в Excel?

В этом руководстве показано, как разделить диапазон ячеек по определенному разделителю и транспонировать полученные данные в один столбец в Excel. Независимо от того, предпочитаете ли вы использовать код VBA или мощные функции Kutools для Excel, описанные здесь методы помогут вам эффективно выполнить эту задачу.

Разделить и транспонировать с помощью VBA

Разделить и транспонировать с помощью Kutools for Excel

Разделить и транспонировать с помощью VBA

Хотя Excel не предлагает прямого способа разделения и транспонирования данных по определенному разделителю, вы можете использовать код VBA, чтобы сделать это быстро.

1. Нажмите Alt + F11 ключи для отображения Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули, и вставьте ниже код в новый Модули окно.

VBA: разделение и транспонирование

Sub Vertical()
'UpdatebyExtendoffice20161125
    Dim i As Long, strTxt As String
    Dim startP As Range
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    i = 1
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If i = 1 Then
            strTxt = yRg.Text
            i = 2
        Else
            strTxt = strTxt & "," & yRg.Text
        End If
    Next
    Application.ScreenUpdating = True
    Set startP = Application.InputBox _
    (Prompt:="paste range...", _
    Title:="Kutools For Excel", Type:=8)
    ary = Split(strTxt, ",")
    i = 1
    Application.ScreenUpdating = False
    For Each a In ary
        startP(i, 1).Value = a
        i = i + 1
    Next a
    Application.ScreenUpdating = True
End Sub

3. Нажмите F5 нажмите клавишу для запуска кода, появится диалоговое окно, в котором вы можете выбрать диапазон для разделения и транспонирования.

4. Нажмите OK. Появится диалоговое окно для выбора места для размещения данных.

5. Нажмите OK, а выделенный фрагмент разделен запятой.

Примечание: в коде запятая в стрТкст & "," и ary = Разделить (strTxt, ",") являются разделителем, на основе которого вы будете разделять данные, вы можете изменить их по мере необходимости.

Разделить и транспонировать с помощью Kutools for Excel

В Kutools for Excel, вы можете применить его Разделить клетки сначала разделить ячейки по разделителю, а затем применить Диапазон преобразования утилита для преобразования ячеек в один столбец.

1. Выберите ячейки, которые хотите разделить, и нажмите Кутулс > Слияние и разделение > Разделить клетки. Смотрите скриншот:

2. в Разделить клетки диалог, проверьте Разделить на столбцы вариант, затем укажите разделитель, на основе которого вы хотите разделить, нажмите Ok. И выберите пустую ячейку, чтобы поместить результат во вторую Разделить клетки диалог. Смотрите скриншот:

3. Нажмите OK, затем ячейки были разделены на столбцы, а затем щелкните Кутулс > Диапазон > Диапазон преобразования. Смотрите скриншот:

4. в Диапазон преобразования диалог, проверьте Диапазон до одного столбца, нажмите Ok, и выберите ячейку для размещения результата. Смотрите скриншот:

5. Нажмите OK, теперь диапазон перенесен в один столбец.