Как перенести данные из столбца в одну ячейку в Excel?

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

Перенести данные из столбца в одну ячейку с помощью функции, определяемой пользователем

Перенести данные из столбца в одну ячейку с помощью Kutools for Excel

Перенести данные из столбца в одну ячейку с помощью функции, определяемой пользователем

За исключением функции Concatenate для объединения списка значений ячеек, вы можете применить следующий код VBA, чтобы получить результат как можно быстрее.

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

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

Код VBA: перенос данных из столбца в одну ячейку

Function transposeRange(Rg As Range)
'updateby Extendoffice
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
        If Not IsEmpty(xCell.Value) Then
            xStr = xStr & xCell.Value & ","
        End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
End Function

3. Затем сохраните и закройте этот код, вернитесь на лист и введите эту формулу: = транспонированный диапазон (A1: A10) в пустую ячейку, чтобы поместить результат, и нажмите Enter key, вы получите, что все значения ячеек в столбце были расположены в одной ячейке, см. снимок экрана:

Внимание: В приведенном выше коде A1: A10 - это диапазон списка, который вы хотите перенести в одну ячейку, а также вы можете разделить объединенный контент с другими разделителями, такими как запятая, тире, пробел и т. д., просто изменив запятую в скрипте xStr = xStr & xCell.Value & ",".

Перенести данные из столбца в одну ячейку с помощью Kutools for Exce

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

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

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

2. Нажмите Кутулс > Слияние и разделение > Комбинируйте строки, столбцы или ячейки без потери данных, см. снимок экрана:

3. В появившемся диалоговом окне выберите Объединить в одну ячейку под Чтобы объединить выбранные ячейки в соответствии со следующими параметрами, а затем укажите разделитель для разделения объединенного содержимого, см. снимок экрана:

4. Затем нажмите Ok or Применить кнопку, и вы получите следующий результат:

Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!