Перейти к основному содержанию

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

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

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


Объедините несколько ячеек в одну ячейку с кодом VBA

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

1. Нажмите Застройщик > Визуальный Бейсик, Новый 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. Затем нажмите док-умножить-расчет-3 кнопку для выполнения кода. Появится диалоговое окно, в котором вы можете выбрать диапазон для работы с VBA. Смотрите скриншоты:

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

док объединить содержимое ячеек 2

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

док объединить содержимое ячеек 3


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

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

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

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

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

док объединить содержимое ячеек 5

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

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

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

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


Статьи по теме


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

Лучшие инструменты для офисной работы

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

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

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
my earlier query is about this vba: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 Between, what does the type here, "8" & "2" refers to
This comment was minimized by the moderator on the site
how repeat the process if i have 4 different reference and need to combine them one after the other
This comment was minimized by the moderator on the site
Awesome! Greatly helps! Thank you so much!
This comment was minimized by the moderator on the site
how to merge 2 cell ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
This comment was minimized by the moderator on the site
Thanks very much - was a big help!
This comment was minimized by the moderator on the site
Thamks a lot for the code. Was very helpful.
This comment was minimized by the moderator on the site
Very helpful thank you took me a while to find it but was just what I needed. Note in the VBA code if you want to seperate data with a semicolon, comma or some other charater in the "delim = " " " field put you charater betwen the quotes example: delim = ";". Thanks again.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations