Note: The other languages of the website are Google-translated. Back to English

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

В Excel вы можете применить Текст в столбцы функция для разделения значений ячеек на несколько столбцов по горизонтали, но она не помогает вам разделить содержимое ячейки на несколько строк по вертикали. И в этой статье я расскажу о некоторых быстрых способах разбить значения ячеек на строки по вертикали с помощью определенного разделителя в Excel.

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

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


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

Следующий код VBA может помочь вам разделить значения ячеек на строки по вертикали любым разделителем, как вы хотите, сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

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

Код VBA: разделение значений ячеек на строки по вертикали с помощью определенного разделителя

Sub splitvertically()
'updatebyExtendoffice
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xOutArr As Variant
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xStr = "" Then
            xStr = xCell.Value
        Else
            xStr = xStr & ";" & xCell.Value
        End If
    Next
    xOutArr = VBA.Split(xStr, ";")
    xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub

3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно с напоминанием о выборе значений ячеек, которые вы хотите разделить по вертикали, см. снимок экрана:

документ разделен по вертикали 1

4, Затем нажмите OK При нажатии кнопки появится другое окно, напоминающее о выборе ячейки для отображения результата, см. снимок экрана:

документ разделен по вертикали 2

5. Нажмите OK , а значения ячеек разделены на список разделителем, см. снимок экрана:

документ разделен по вертикали 3

Внимание: В приведенном выше коде вы можете изменить точку с запятой ; к любым другим нужным вам разделителям.


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

Kutools for ExcelАвтора Разделить клетки Feature - это мощная утилита, которая может помочь вам разбить значения ячеек на несколько столбцов или строк с помощью любых разделителей по мере необходимости.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. 

После установки Kutools for Excel, пожалуйста, сделайте следующее:

1. Выделите ячейки, которые вы хотите разделить на строки по определенному разделителю.

2. Затем нажмите Кутулс > Слияние и разделение > Разделить клетки, см. снимок экрана:

3. В Разделить клетки диалоговое окно, выберите Разделить на строки под Тип раздел, а затем проверьте Другое из Разделить на раздел и введите разделитель, на основе которого вы хотите разделить значения ячеек, см. снимок экрана:

документ разделен по вертикали 5

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

документ разделен по вертикали 6

5, И нажмите OK , значения ячеек были разделены на строки в зависимости от конкретного разделителя, как показано на следующем снимке экрана:

документ разделен по вертикали 7

  Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!


Демо: разделите значения ячеек на строки по вертикали с помощью разделителя с помощью Kutools for Excel

Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

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

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (0)
Оценок пока нет. Оцените первым!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL