Перейти до основного матеріалу

Як поєднати вміст кількох комірок без втрати даних у Excel?

Ми можемо часто поєднувати комірки та їх вміст у Microsoft Excel. Однак, чи знайдете ви найпростіший спосіб поєднання вмісту комірок? Тут ми поговоримо про те, як легко та швидко поєднувати вміст комірок у Excel.

Об’єднайте кілька комірок в одну комірку з кодом VBA
Об’єднайте кілька клітинок в одну за допомогою Kutools для Excel без втрати даних


Об’єднайте кілька комірок в одну комірку з кодом VBA

Наступний код VBA може допомогти вам об’єднати кілька комірок в одну комірку, і ви можете застосувати код, виконавши такі дії:

1. Клацання Розробник > Візуальний Бейсік, новий Microsoft Visual Basic для програм відобразиться вікно, натисніть Insert > Модуліта введіть наступний код в Модуль:

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. Потім натисніть doc-множення-розрахунок-3 кнопку для виконання коду. З’явиться діалогове вікно для вибору діапазону для роботи з VBA. Дивіться скріншоти:

3. Клацання Ok, відображається інше діалогове вікно для вказівки розділювача. Дивіться знімок екрана:

doc поєднує вміст комірки 2

4. Клацання Ok, тоді вміст комірки у вибраному діапазоні об’єднується в комірку. Дивіться знімок екрана:

doc поєднує вміст комірки 3


Об’єднайте кілька клітинок в одну за допомогою Kutools для Excel без втрати даних

Якщо у вас є Kutools для Excel встановлено, ви можете зручно поєднувати вміст комірок з декількох стовпців або рядків, не використовуючи формул.

1. Виділіть комірки, для яких потрібно об’єднати дані. І застосуйте цю утиліту, натиснувши Кутулс > Злиття та розділення > Поєднуйте рядки, стовпці або комірки, не втрачаючи даних.

2, в Об’єднати стовпці або рядки у діалоговому вікні вкажіть потрібні параметри. Дивіться знімок екрана:

  • (1.) Виберіть Об’єднати в одну клітинку при Комбінувати виділені клітинки згідно з наступними параметрами;
  • (2.) Вкажіть роздільник для об’єднаних даних. Ви можете розділити кожен вміст пробілом, нічим, крапкою з комою чи певним текстом. А також ви можете відобразити об’єднаний вміст у новому рядку.

doc поєднує вміст комірки 5

3. Потім натисніть OK or Застосовувати, всі дані в декількох комірках були об’єднані в одну комірку. Дивіться знімок екрана:

Примітка: Ця утиліта також може допомогти об’єднати комірки вибраних стовпців. Ви можете об'єднати ім'я та прізвище в одну клітинку з повним іменем, як показано нижче.

Тоді ви можете побачити, що імена та прізвища об’єднані та розміщені у клітинках із повними іменами.

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.


Статті по темі


Демонстрація: об’єднати / об’єднати кілька комірок в одну, не втрачаючи даних

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 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