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

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

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

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

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

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

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

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 for Excel

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

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

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

2. Затем нажмите Кутулс > Диапазон > Диапазон преобразования, см. снимок экрана:

3. В Диапазон преобразования диалоговое окно, выберите Диапазон до одного столбца и нажмите Ok кнопку, см. снимок экрана:

4. В следующем выскочил Диапазон преобразования поле, щелкните ячейку, в которой вы хотите вывести результат, см. снимок экрана:

5. Затем нажмите OK Кнопка, выбранные вами столбцы были объединены в один столбец в указанном вами месте. Смотрите скриншот:

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

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