Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як поєднати вміст кількох комірок без втрати даних у 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 для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    jennifer · 5 years ago
    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
  • To post as a guest, your comment is unpublished.
    jennifer · 5 years ago
    how repeat the process if i have 4 different reference and need to combine them one after the other
  • To post as a guest, your comment is unpublished.
    TJ · 6 years ago
    Awesome! Greatly helps! Thank you so much!
  • To post as a guest, your comment is unpublished.
    priya · 6 years ago
    how to merge 2 cell ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
  • To post as a guest, your comment is unpublished.
    Tom · 7 years ago
    Thanks very much - was a big help!
  • To post as a guest, your comment is unpublished.
    Romilla W · 8 years ago
    Thamks a lot for the code. Was very helpful.
  • To post as a guest, your comment is unpublished.
    Damon R · 8 years ago
    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.