Перейти к основному содержанию

Как разделить по разделителю и транспонировать ячейки в Excel?

В этой статье я расскажу о способах разделения диапазона по определенному разделителю, а затем транспонирую его в Excel, как показано ниже. Если вас интересует эта задача, перейдите по ссылке ниже.
doc spliy транспонировать 1

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

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


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

Нет прямого способа разделить и транспонировать данные с помощью определенного разделителя, но я могу ввести код 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 нажмите клавишу для запуска кода, появится диалоговое окно, в котором вы можете выбрать диапазон для разделения и транспонирования.
doc spliy транспонировать 2

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

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

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


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

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

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. 

После установки Kutools for Excel, пожалуйста, сделайте, как показано ниже :(Скачать бесплатно Kutools for Excel сейчас!)

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

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

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

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

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

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

Лучшие инструменты для офисной работы

Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

вкладка kte 201905


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way to split data by row and transpose rows to column at the same time?
This comment was minimized by the moderator on the site
Hi, E, please describe your problem with more details, better provide some examples.
This comment was minimized by the moderator on the site
You wrote: Note: in the code, the comma in the aray = Split(strTxt, ",") is the delimiter you will split data based on, you can change it as you need.

Extra action:
also change delimter "," in code section:

<Else
strTxt = strTxt & "," & yRg.Text
End If>

Change "," to (for example ";")
This comment was minimized by the moderator on the site
Hi, Richard Hahlen, thanks for your remind. I have updated the notice.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations