Как объединить несколько столбцов в один список в Excel?
Чтобы объединить или слить несколько столбцов в один длинный список, обычно вы можете копировать и вставлять данные столбцов по одному в указанный столбец. Но здесь я могу представить вам несколько быстрых приемов для выполнения этой задачи в Excel.
Объединение нескольких столбцов в один список с помощью кода VBA
Объединение нескольких столбцов в один список с помощью Kutools для Excel
Объединение нескольких столбцов в один список с помощью кода VBA
Без повторяющегося копирования и вставки данных столбцов следующий код VBA может помочь вам справиться с этой задачей быстро и легко.
1. Удерживайте клавиши Alt + F11 в Excel, и откроется окно Microsoft Visual Basic for Applications.
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. После этого нажмите кнопку OK, и выбранные столбцы будут объединены в один столбец, как показано на следующих скриншотах:
 |  |  |
Советы: После выполнения этого VBA исходные данные диапазона будут очищены, лучше скопируйте и сохраните их в другом месте заранее.
Объединение нескольких столбцов в один список с помощью Kutools для Excel
Если у вас установлен Kutools для Excel, его функция Преобразовать Диапазон поможет вам объединить несколько столбцов в один столбец или одну строку.
После установки Kutools для Excel сделайте следующее:
1. Выберите данные столбцов, которые вы хотите объединить в один список.
2. Затем нажмите Kutools > Диапазон > Преобразовать Диапазон, см. скриншот:
3. В диалоговом окне Преобразовать Диапазон выберите опцию Диапазон в одну колонку и нажмите кнопку Ok, см. скриншот:
4. В появившемся окне Преобразовать Диапазон нажмите на ячейку, где вы хотите вывести результат, см. скриншот:
5. Затем нажмите кнопку OK, и ваши выбранные столбцы будут объединены в один столбец в указанном месте. См. скриншот:
Скачать и бесплатная пробная версия 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек