Как объединить содержимое нескольких ячеек в Excel, не потеряв ни одного фрагмента данных?
Нам часто приходится объединять ячейки и их содержимое в 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. Затем нажмите кнопку 
, чтобы запустить код. Появится диалоговое окно, в котором нужно выбрать диапазон для работы с VBA. См. скриншоты:
3. Нажмите ОК, после чего появится ещё одно диалоговое окно для указания разделителя. См. скриншот:
4. Нажмите ОК, и содержимое ячеек из диапазона «Выберите диапазон» объединится в одну ячейку. См. скриншот:
Объединение нескольких ячеек в одну с помощью Kutools для Excel без потери данных
Если у вас установлено расширение Kutools для Excel, вы сможете легко и удобно объединять содержимое ячеек из нескольких столбцов или строк — без единой формулы!
1. Выделите ячейки с данными, которые нужно объединить, и примените эту функцию, выбрав: Kutools > Объединить и разделить > Объединить строки/столбцы/ячейки и сохранить значения.
2. В диалоговом окне Объединить столбцы или строки укажите необходимые параметры. См. скриншот:
- (1.) Выберите Объединить в одну ячейкув разделе Объединить выбранный диапазон следующим образом;
- (2.) Разделитель для объединённых данных. Вы можете разделять каждое значение пробелом, без разделителя, точкой с запятой или заданным текстом. Кроме того, объединённое содержимое можно отображать с переводом строки.
3. Затем нажмите ОК или Применить, и все данные из нескольких ячеек объединятся в одну. См. скриншот:
Примечание. Эта функция также позволяет объединять ячейки выбранных столбцов. Например, можно объединить столбцы «Имя» и «Фамилия» в одну ячейку «Полное имя», как показано на скриншоте ниже.
После этого вы увидите, что имя и фамилия объединены в ячейках «Полное имя».
Если вы хотите воспользоваться бесплатной пробной версией (30 дней) этой утилиты, нажмите, чтобы скачать её, а затем выполните операцию в соответствии с приведёнными выше шагами.
Демонстрация: объединение нескольких ячеек в одну без потери данных
Связанные статьи
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек