Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

Как объединить содержимое нескольких ячеек без потери данных в Excel?

Author Kelly Last modified

Мы часто объединяем ячейки и их содержимое в Microsoft Excel. Однако, нашли ли вы самый простой способ объединения содержимого ячеек? Здесь мы поговорим о том, как легко и быстро объединить содержимое ячеек в Excel.

Объединение нескольких ячеек в одну с помощью кода VBA
Объединение нескольких ячеек в одну с помощью Kutools для Excel без потери данных


Объединение нескольких ячеек в одну с помощью кода VBA

Следующий код VBA может помочь вам объединить несколько ячеек в одну, и вы можете применить этот код, выполнив следующие шаги:

1. Нажмите Разработчик > Visual Basic, откроется новое окно Microsoft Visual Basic для приложений, нажмите Вставить > Модуль и введите следующий код в Модуль:

Sub MergeOneCell()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol merge", xTitleId, "", Type:=2)
xOut = ""
Application.DisplayAlerts = False
For Each Rng In WorkRng
    xOut = xOut & Rng.Value & Sigh
Next
With WorkRng
    .Merge
    .Value = VBA.Left(xOut, VBA.Len(xOut) - 1)
End With
Application.DisplayAlerts = True
End Sub

2. Затем нажмите Run button кнопку для выполнения кода. Появится диалоговое окно, в котором вам предложат выбрать диапазон для работы с VBA. См. скриншоты:

A screenshot showing the range selection dialog

3. Нажмите ОК, появится другое диалоговое окно, в котором вы сможете указать разделитель. См. скриншот:

A screenshot showing the dialog to specify a separator when combining cell contents

4. Нажмите ОК, затем содержимое ячеек в выбранном диапазоне будет объединено в одну ячейку. См. скриншот:

A screenshot showing the combined cell contents after using VBA


Объединение нескольких ячеек в одну с помощью Kutools для Excel без потери данных

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

Kutools для Excel предлагает более 300 продвинутых функций для упрощения сложных задач, повышая креативность и эффективность. Интеграция с возможностями ИИ позволяет Kutools автоматизировать задачи с высокой точностью, делая управление данными без усилий. Подробная информация о Kutools для Excel...  Бесплатная пробная версия...

1. Выберите ячейки, данные которых вы хотите объединить. Примените эту утилиту, нажав Kutools > Объединить и разделить > Объединить строки, столбцы или ячейки без потери данных.

A screenshot showing the Combine Rows, Columns or Cells without Losing Data option on the Kutools tab on the ribbon

2. В диалоговом окне « Объединить столбцы или строки» укажите нужные параметры. См. скриншот:

  • (1.) Выберите «Объединить в одну ячейку» в разделе «Объединить выбранный диапазон следующим образом»;
  • (2.) Укажите разделитель для объединенных данных. Вы можете разделить каждое содержимое пробелом, ничем, точкой с запятой или определенным текстом. Также вы можете отобразить объединенное содержимое в новой строке.

A screenshot of the Combine Columns or Rows dialog

3. Затем нажмите ОК или Применить, все данные из нескольких ячеек будут объединены в одну ячейку. См. скриншот:

A screenshot showing the result of merging multiple cells into one using Kutools

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

A screenshot showing the process of merging first and last names into full names using Kutools

Затем вы увидите, что имена и фамилии объединены и находятся в ячейках полного имени.

A screenshot showing the result of combining first and last names into full names using Kutools

  Если вы хотите воспользоваться бесплатной пробной версией (30-день) этой утилиты, пожалуйста, нажмите, чтобы скачать её, а затем перейдите к выполнению операции согласно вышеуказанным шагам.


Демонстрация: Объединение / Слияние нескольких ячеек в одну без потери данных

Kutools для Excel: Более 300 удобных инструментов у вас под рукой! Наслаждайтесь постоянно бесплатными функциями ИИ! Скачать сейчас!

Связанные статьи

Лучшие инструменты для повышения продуктивности в Office

🤖 Kutools AI Aide: Совершенно новый подход к анализу данных благодаря: Интеллектуальное выполнение |  Генерация кода  |  Создание пользовательских формул |  Анализ данных и построение диаграмм  |  Вызов Kutools Functions
Популярные функции: Поиск, выделение или отметка дубликатов | Удалить пустые строки | Объединить столбцы или адреса без потери данных | Округлить ...
Супер ПОИСК: VLOOKUP по нескольким критериям | VLOOKUP по нескольким значениям | Многолистовой поиск | Распознавание нечетких соответствий ...
Расширенный раскрывающийся список: Быстро создать раскрывающийся список | Зависимый раскрывающийся список | Множественный выбор в раскрывающемся списке ...
Менеджер столбцов: Добавить определённое количество столбцов | Переместить столбцы | Переключить видимость скрытых столбцов | Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка фокусировки | Дизайн листа | Улучшенная строка формулы | Управление книгой и листами | Библиотека автотекста | Выбор даты | Объединить данные | Зашифровать/расшифровать ячейки | Отправить письмо по списку | Супер фильтр | Специальный фильтр (фильтр жирный/курсив/зачеркнутый...) ...
Топ15 наборов инструментов:12 текстовых инструментов (Добавить текст, Удалить определенные символы, ...) |50+ типов диаграмм (Диаграмма Ганта, ...) |40+ полезных формул (Расчет возраста на основе даты рождения, ...) |19 инструментов для вставки (Вставить QR-код, Вставить изображение по пути, ...) |12 инструментов преобразования (Преобразовать в слова, Конвертация валюты, ...) |7 инструментов объединения и разделения (Расширенное объединение строк, Разделить ячейки, ...) | ... и многое другое
Используйте Kutools на предпочитаемом вами языке — поддерживает Английский, Испанский, Немецкий, Французский, Китайский и более40 других языков!

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