Как объединить несколько столбцов в один список в 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, чтобы запустить этот код. Появится диалоговое окно с запросом выбрать диапазон данных, которые вы хотите объединить в один столбец (см. скриншот).

4. Затем нажмите кнопку ОК, и выбранные столбцы объединятся в один — как показано на следующих скриншотах:
![]() | ![]() | ![]() |
Совет: после выполнения этого кода VBA исходные данные в диапазоне будут удалены, поэтому заранее скопируйте и сохраните их в другом месте.
Объединение нескольких столбцов в один список с помощью Kutools для Excel
Если вы установили Kutools для Excel, его утилита Преобразовать диапазон поможет вам объединить несколько столбцов в один столбец или одну строку.
После установки Kutools для Excelвыполните следующие действия:
1. Выделите данные из столбцов, которые хотите объединить в один список.
2. Затем нажмите Kutools > Диапазон > Преобразовать диапазон (см. скриншот).

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

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

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

Скачайте и используйте бесплатную пробную версиюKutools для Excel прямо сейчас!
Демонстрация: объединение нескольких столбцов в один список с помощью Kutools для Excel
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал 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.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек


