KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как объединить несколько столбцов в один список в Excel?

АвторСяоянДата изменения

Чтобы объединить несколько столбцов в один длинный список, можно поочерёдно копировать и вставлять данные из каждого столбца в целевой. Но я предложу вам несколько быстрых приёмов, которые упростят эту задачу в Excel.

Объединение нескольких столбцов в один список с помощью кода VBA

Объединение нескольких столбцов в один список с помощью Kutools для Excel


Объединение нескольких столбцов в один список с помощью кода VBA

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

1.Удерживая нажатыми клавиши Alt + F11, откройте окно Microsoft Visual Basic для приложений в Excel.

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

Код VBA: Объединение или слияние нескольких столбцов в один список

Sub CombineColumns1()
'updateby Extendoffice
    Dim xRng As Range
    Dim i As Integer
    Dim xLastRow As Integer
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Set xRng = Application.InputBox("please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    xLastRow = xRng.Columns(1).Rows.Count + 1
    For i = 2 To xRng.Columns.Count
        Range(xRng.Cells(1, i), xRng.Cells(xRng.Columns(i).Rows.Count, i)).Cut
        ActiveSheet.Paste Destination:=xRng.Cells(xLastRow, 1)
        xLastRow = xLastRow + xRng.Columns(i).Rows.Count
    Next
End Sub

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

Снимок экрана с приглашением VBA для выбора столбцов, которые нужно объединить

4. Затем нажмите кнопку ОК, и выбранные столбцы объединятся в один — как показано на следующих скриншотах:

Снимок экрана с исходными столбцамиСтрелкаСнимок экрана с результатом после объединения столбцов

Совет: после выполнения этого кода VBA исходные данные в диапазоне будут удалены, поэтому заранее скопируйте и сохраните их в другом месте.


Объединение нескольких столбцов в один список с помощью Kutools для Excel

Если вы установили Kutools для Excel, его утилита Преобразовать диапазон поможет вам объединить несколько столбцов в один столбец или одну строку.

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

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

1. Выделите данные из столбцов, которые хотите объединить в один список.

2. Затем нажмите Kutools > Диапазон > Преобразовать диапазон (см. скриншот).

Снимок экрана с опцией Kutools «Преобразовать диапазон»

3. В диалоговом окне Преобразовать диапазон выберите опцию Диапазон в одну колонку и нажмите кнопку ОК (см. скриншот).

Снимок экрана с диалоговым окном «Преобразовать диапазон»

4. В появившемся окне Преобразовать диапазон щёлкните ячейку, в которую хотите вывести результат (см. скриншот).

Снимок экрана с выделением ячейки для вывода объединённого столбца

5. Затем нажмите кнопку ОК, и выбранные вами столбцы объединятся в один — именно там, где вы указали (см. скриншот).

Снимок экрана с окончательным результатом объединённых столбцов

Скачайте и используйте бесплатную пробную версиюKutools для Excel прямо сейчас!


Демонстрация: объединение нескольких столбцов в один список с помощью Kutools для Excel

Kutools для Excel: Более 300 удобных инструментов всегда под рукой! Воспользуйтесь функциями на базе ИИ для более умной и быстрой работы!Скачать сейчас!

Лучшие инструменты повышения продуктивности в Office

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

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


Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек