Как объединить несколько столбцов в один список в 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