Перейти до основного матеріалу

Як розділити на роздільник і транспонувати клітинки в Excel?

У цій статті я представляю способи розділення діапазону за конкретним роздільником, а потім транспоную його в Excel, як показано нижче. Якщо вас цікавить це завдання, перейдіть до деталей нижче.
doc spliy транспонувати 1

Розділіть і транспонуйте за допомогою VBA

Розділіть і транспонуйте за допомогою Kutools для Excel


стрілка синя права міхур Розділіть і транспонуйте за допомогою VBA

Немає прямого способу розділити та транспонувати дані за допомогою певного роздільника, але я можу ввести код VBA, який допоможе вам швидко вирішити цю проблему.

1. прес Alt + F11 клавіші для відображення Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модуліта вставте нижче код до нового Модулі вікна.

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

Примітка: у коді кома в strTxt & "," та  ary = Split(strTxt, ",") є роздільником, на основі якого ви будете розділяти дані, ви можете змінити їх за потреби.


стрілка синя права міхур Розділіть і транспонуйте за допомогою Kutools для Excel

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

після установки Kutools для Excel, виконайте наведені нижче дії:(Безкоштовно завантажте Kutools для 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 для Excel спочатку, а потім перейдіть до застосування операції, як описано вище.

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 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