Прескочи на основното съдържание

Как да комбинирате съдържанието на множество клетки, без да губите данни в Excel?

Автор: Кели Последна промяна: 2020-05-26

Може често да комбинираме клетки и тяхното съдържание в 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, След това кликнете doc-умножение-изчисление-3 бутон за изпълнение на кода. Изскача диалогов прозорец, за да изберете диапазон за работа с VBA. Вижте екранни снимки:

3. Щракнете Ok, се показва друг диалогов прозорец, за да посочите разделителя. Вижте екранна снимка:

doc комбинирайте съдържанието на клетката 2

4. Щракнете Ok, тогава съдържанието на клетката в избрания диапазон се комбинира в клетка. Вижте екранна снимка:

doc комбинирайте съдържанието на клетката 3


Комбинирайте множество клетки в една клетка с Kutools за Excel, без да губите данни

Ако имате Kutools за Excel инсталиран, можете удобно да комбинирате клетъчно съдържание на множество колони или редове, без да използвате формули.

1. Изберете клетките, в които искате да обедините данните. И приложете тази помощна програма, като щракнете Kutools > Обединяване и разделяне > Комбинирайте редове, колони или клетки без загуба на данни.

2. В Комбинирайте колони или редове диалогов прозорец, задайте опциите, от които се нуждаете. Вижте екранна снимка:

  • (1.) Изберете Комбинирайте в една клетка под За комбиниране на избрани клетки според следните опции;
  • (2.) Посочете разделител за комбинираните данни. Можете да разделите всяко съдържание с интервал, нищо, точка и запетая или конкретен текст. Можете също така да покажете комбинираното съдържание в нов ред.

doc комбинирайте съдържанието на клетката 5

3, След това кликнете OK or Добавете Обява, всички данни в множество клетки са обединени в една клетка. Вижте екранна снимка:

Забележка: Тази помощна програма може също да помогне за комбиниране на клетки от избрани колони. Можете да комбинирате собствено и фамилно име в една клетка с пълно име, както е показано на екранната снимка по-долу.

След това можете да видите имената и фамилиите са комбинирани и разположени в клетките с пълно име.

  Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.


Свързани статии


Демонстрация: Комбинирайте/слейте множество клетки в една без загуба на данни

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за 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