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

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

Вы могли заметить, что когда мы применяем функцию СЦЕПИТЬ в Excel, формат даты (2014-01-03) и числовой формат, например формат валюты ($734.7), процентный формат (48.9%), десятичных знаков (24.5000) и т. д. удаляются и отображаются как общие числа в результатах конкатенации. В этой статье мы предлагаем несколько обходных путей для объединения данных с сохранением даты или форматирования чисел в Excel.


Объединить с сохранением формата даты в Excel

В этом разделе рассказывается о том, как сохранить формат даты в функции СЦЕПИТЬ в Excel.

1. Выберите пустую ячейку, в которой будет выведен результат конкатенации, и введите формулу = СЦЕПИТЬ (ТЕКСТ (A2; "гггг-мм-дд"); ""; B2) (A2 - это ячейка с датой, которую вы объедините, а B2 - это еще одна ячейка, которую вы объедините) в нее и нажмите Enter .
doc concatenate сохранить форматирование числа даты 2

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

Внимание: Эта формула = СЦЕПИТЬ (ТЕКСТ (A2; "гггг-мм-дд"); ""; B2) покажет даты любого формата даты как гггг-мм-дд, Такие, как 2014-01-03. Чтобы сохранить другой формат даты в функции CONCATENATE, вы можете изменить yyyy-mm-dd на определенный код формата даты по мере необходимости. Как получить код формата даты / числа?

лента для заметок Формула слишком сложна для запоминания? Сохраните формулу как запись Auto Text для повторного использования одним щелчком мыши в будущем!
Подробнее ...     Бесплатная пробная версия

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

Обычно при объединении ячеек с помощью функции «Слияние» в Excel удаляется все содержимое ячеек, кроме содержимого первой ячейки. Однако с Kutools for Excel's Объединить (строки и столбцы) утилита, вы можете легко объединить несколько ячеек / строк / столбцов без потери данных. Более того, эта утилита также поддерживает оставшийся исходный формат даты и числовые форматы в результатах комбинации. 


Kutools for Excel - Дополните Excel более чем 300 основными инструментами. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Get It Now


Объединение с сохранением числового формата (валюта / процент / десятичные разряды) в Excel

В этом разделе говорится о сохранении числового формата, такого как формат валюты, процентный формат, десятичные разряды чисел и т. Д. В функции СЦЕПИТЬ в Excel.

Совет: Если вы знакомы с кодами форматов чисел, которые вы будете объединять, нажмите здесь.

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

2. В открывшемся диалоговом окне Формат ячеек перейдите к Номер регистрации , нажмите На заказ в Категории поле скопируйте код формата в Тип и закройте диалоговое окно Формат ячеек. Смотрите скриншот:
doc concatenate сохранить форматирование числа даты 5

3. Затем мы преобразуем число, которое вы объедините, в текстовую строку. Выберите пустую ячейку (в нашем примере - ячейку E2), введите формулу = ТЕКСТ (B2; "$ #, ## 0.00 _); ($ #, ## 0.00)") (B2 - это ячейка валюты, которую вы объедините) в нее и нажмите Enter .
doc concatenate сохранить форматирование числа даты 6
Заметки:
(1) В приведенном выше формате $ #, ## 0.00 _); ($ #, ## 0.00) - это код формата, который мы скопировали на шаге 2. И вы можете изменить код формата на свой скопированный.
(2) Иногда код формата копируемой валюты может быть очень сложным, что приводит к ошибкам в формулах. Если да, просто введите код формата, например $ #, ## 0.00 _); ($ #, ## 0.00).

4. Если вы объедините несколько типов чисел, повторите шаги 1-3, чтобы преобразовать эти числа в текстовые строки.

5. После преобразования чисел со специальными форматами чисел в текстовую строку мы можем сконцентрировать их, введя формулу = СЦЕПИТЬ (A2; ""; E2; ""; F2) (A2, E2 и F2 - это ячейки, которые мы объединим) в пустую ячейку (в нашем примере ячейка G1) и нажмите Enter ключ. Смотрите скриншот:
doc concatenate сохранить форматирование числа даты 7

6. Выберите диапазон E2: G2, а затем перетащите маркер автозаполнения в нужный диапазон. И тогда вы увидите, что каждая строка была объединена с сохранением всех видов числовых форматов. Смотрите скриншот:
doc concatenate сохранить форматирование числа даты 8
Внимание: Если вы знакомы с кодами формата чисел, которые вы будете объединять, вы можете применить формулу = СЦЕПИТЬ (A2, "", ТЕКСТ (B2, "$ #, ## 0.00 _); ($ #, ## 0.00)"), "", ТЕКСТ (C2, "0.00%")) и замените коды формата $ #, ## 0.00 _); ($ #, ## 0.00) и 0.00% в зависимости от вашего требования.

лента для заметок Формула слишком сложна для запоминания? Сохраните формулу как запись Auto Text для повторного использования одним щелчком мыши в будущем!
Подробнее ...     Бесплатная пробная версия

Объедините с сохранением даты и формата чисел с помощью Kutools for Excel

Не можете запомнить коды формата дат и чисел и устали многократно их копировать? Kutools для Excel Сочетать Утилита может помочь вам объединить данные с сохранением всех видов форматов даты и числовых форматов несколькими щелчками мыши в Excel.

Kutools for Excel - Содержит более 300 основных инструментов для Excel. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Скачать сейчас!

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

2. В открывшемся диалоговом окне «Объединить столбцы или строки» выполните следующие действия:
doc concatenate сохранить форматирование числа даты 10
(1) Проверьте Объединить столбцы вариант в Чтобы объединить выбранные ячейки в соответствии со следующими параметрами раздел;
(2) Отметьте один вариант разделителя в Укажите разделитель раздел (проверяем Space вариант в нашем примере);
(3) Укажите место, куда вы поместите результат конкатенации. В нашем примере мы указываем Левая ячейка;
(4) В Опции раздел, мы проверяем Удалить содержимое объединенных ячеек вариант;
(5) Проверьте Использовать форматированные значения в нижней части этого диалогового окна.

3. Нажмите Ok кнопку для применения этой утилиты. И тогда вы увидите, что каждая строка была объединена в свою первую ячейку с сохранением всех видов форматов даты и числовых форматов. Смотрите скриншот:
doc concatenate сохранить форматирование числа даты 12


Демо: объединение с сохранением формата числа / даты в Excel


Kutools for Excel: Более 300 удобных инструментов у вас под рукой! Начните 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 (29)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Yes! It’s working now. Thanks so much Amanda Lee
This comment was minimized by the moderator on the site
Amanda Lee I’ve tried that, it’s not helping.
This comment was minimized by the moderator on the site
Hi Joseph,

Nothing happened after you ran the code? Did you check if the sheet name and range name are right?
I just tried and the code works properly on my sheet.

Amanda
This comment was minimized by the moderator on the site
Can anyone please check why this code is not working?

Sub MergeFormatCell()
'Updateby Extendoffice
Dim xSRg As Range
Dim xDRg As Range
Dim xRgEachRow As Range
Dim xRgEach As Range
Dim xRgVal As String
Dim I As Integer
Dim xRgLen As Integer
Dim xSRgRows As Integer
Dim xAddress As String
On Error Resume Next
'xAddress = ActiveWindow.RangeSelection.Address
'Set xSRg = Application.InputBox("Please select cell columns to concatenate:", "KuTools For Excel", xAddress, , , , , 8)
'If xSRg Is Nothing Then Exit Sub
'Set xDRg = Application.InputBox("Please select cells to output the result:", "KuTools For Excel", , , , , , 8)
'If xDRg Is Nothing Then Exit Sub
Set xSRg = ActiveWorkbook.Sheets("Person List").Range("J2:Z142").Value
xSRgRows = xSRg.Rows.Count
Set xDRg = ActiveWorkbook.Sheets("Person List").Range("G2:G125").Value
Set xDRg = xDRg(1)
For I = 1 To xSRgRows
xRgLen = 1
With xDRg.Offset(I - 1)
.Value = vbNullString
.ClearFormats
Set xRgEachRow = xSRg(1).Offset(I - 1).Resize(1, xSRg.Columns.Count)
For Each xRgEach In xRgEachRow
.Value = .Value & Trim(xRgEach.Value) & " "
Next
For Each xRgEach In xRgEachRow
xRgVal = xRgEach.Value
With .Characters(xRgLen, Len(Trim(xRgVal))).Font
.Name = xRgEach.Font.Name
.FontStyle = xRgEach.Font.FontStyle
.Size = xRgEach.Font.Size
.Strikethrough = xRgEach.Font.Strikethrough
.Superscript = xRgEach.Font.Superscript
.Subscript = xRgEach.Font.Subscript
.OutlineFont = xRgEach.Font.OutlineFont
.Shadow = xRgEach.Font.Shadow
.Underline = xRgEach.Font.Underline
.ColorIndex = xRgEach.Font.ColorIndex
End With
xRgLen = xRgLen + Len(Trim(xRgVal)) + 1
Next
End With
Next I
End Sub
This comment was minimized by the moderator on the site
Hi there,

In the snippet below, you should delete ".Value"
Set xSRg = ActiveWorkbook.Sheets("Person List").Range("J2:Z142").Value
xSRgRows = xSRg.Rows.Count
Set xDRg = ActiveWorkbook.Sheets("Person List").Range("G2:G125").Value

Amanda
This comment was minimized by the moderator on the site
I am trying to update the month of a new company excel sheet and this is the issues I came across (=CONCATENATE(“Month 1 -“,TEXT($H$19,”d mmm yyyy”)) how do fix this
This comment was minimized by the moderator on the site
Hi there, you used the wrong quotation marks, please copy the formula below: =CONCATENATE("Month 1 - ",TEXT($H$19,"d mmm yyyy"))
Amanda
This comment was minimized by the moderator on the site
I have name in A column and in B column i have given today formula -1 i.e yesterday dateKnow i want every date to update name from A column and yesterday date
This comment was minimized by the moderator on the site
means? can explain bit more?
This comment was minimized by the moderator on the site
Thanks a lot ^^
This comment was minimized by the moderator on the site
Thank you very much, it helped me A LOT!
This comment was minimized by the moderator on the site
Hi How can I concatenate two date?10.06.2020 24.06.2020
This comment was minimized by the moderator on the site
Hi Gissu,
Do you mean to concatenate 10.06.2020 and 24.06.2020, and return 10.06.2020 24.06.2020? Or show the date with different style in the concatenaated results ?
Only if the combined data is date, you can apply the TEXT function ( TEXT(date, "mm.dd.yyyy") or TEXT(date, "dd.mm.yyyy") ) to convert the date to text while converting.
This comment was minimized by the moderator on the site
I have 789 records concatenated and I need to establish the frequency of the data, but I don't know how to get the class rank.
This comment was minimized by the moderator on the site
Hi Armando,

You can apply the Advanced Combine Rows feature of Kutools for Excel to get it done.

https://www.extendoffice.com/product/kutools-for-excel/excel-combine-duplicate-rows.html
This comment was minimized by the moderator on the site
concatenate but keep long date?
This comment was minimized by the moderator on the site
Hi NYC74,
For example, you need to concatenate the cell values in Cell A1 and B1, and B1 contains the date you will show as long date format in the concatenation result. Now you can use this formula:
=CONCATENATE(A1, " ", TEXT(B1,"dddd,mmmm dd, yyyy"))
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations