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

Hugh West

16-10-2023 Основи на Excel
  • Споделя Това
Hugh West

Една от най-важните и широко използвани задачи, които трябва да изпълняваме, докато работим в Excel, е да обединяваме клетки вертикално, без да губим данни. Днес ще ви покажа как можете да обединявате клетки в Excel вертикално, без да губите данни.

Изтегляне на работна тетрадка за практика

Сливане на клетки по вертикала без загуба на данни.xlsm

4 лесни метода за вертикално сливане на клетки в Excel без загуба на данни

Тук имаме набор от данни с имената на някои автори и техните книги в книжарница, наречена Martin Bookstore.

Нашата цел днес е да обединим имената на книгите на един и същ автор вертикално в една клетка, без да губим данни.

1. Стартирайте инструмента за сливане и центриране от лентата с инструменти на Excel, за да слеете клетките в Excel вертикално, без да губите данни

Стъпка 1:

➤ Изберете първата група клетки, които искате да обедините (книгите на Чарлз Дикенс в този пример).

Стъпка 2:

➤ Отидете в Начало> Сливане & Център инструмент в лентата с инструменти на Excel в раздела, наречен Изравняване .

Стъпка 3:

➤ Щракнете върху падащото меню.

➤ От наличните опции изберете Сливане & Център .

Стъпка 4:

➤ Щракнете върху Сливане & Център .

➤ Избраната група от клетки ще бъде обединена в една клетка, но ще съдържа само стойността от първата клетка (Great Dickens в този пример).

Стъпка 5:

➤ Можете да повторите същата процедура за останалите групи клетки, за да ги обедините в една клетка.

Прочетете повече: Как да обединявате и центрирате клетките в Excel

2. Използвайте символа Ampersand (&) за вертикално обединяване на клетки в Excel, без да губите данни

Споменатият по-горе метод обединява група клетки в една единствена клетка, но не отговаря напълно на нашите изисквания.

Той запазва стойността само от първата клетка, а не от всички клетки.

Това означава, че губи данни.

За да обедините стойностите от група клетки в една клетка, можете да използвате формула, съдържаща Амперсанд (&) символ.

Формулата за първата група клетки ще бъде:

=C4&", "&C5&", "&C6

Забележка:

  • Тук съм използвал запетаи (,) между имената на книгите, за да изглеждате представително. Можете да използвате всичко, което ви харесва.

След това повторете същата процедура за всички групи клетки.

3. Използвайте формула за вертикално сливане на клетки в Excel, без да губите данни

Вместо да използвате Амперсанд (&) можете да използвате символа Функция CONCATENATE на Excel за обединяване на група от клетки в една клетка.

Формулата за обединяване на първата група клетки ще бъде:

=CONCATENATE(C4,", ",C5,", ",C6)

Забележка:

  • Тук съм използвал и запетаи (,) между имената на книгите. Можете да използвате каквото пожелаете.

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

4. Изпълнение на кодове VBA за вертикално сливане на клетки в Excel без загуба на данни

Всички методи, споменати по-горе, работят отлично, но все пак не изпълняват напълно нашата цел.

Искаме да изведем такъв метод, който да обединява всички групи клетки в единични клетки с едно щракване.

И да, има начини да го направим. В този раздел ще изведем метод, използващ VBA код, който ще слее всички групи клетки в единични клетки по възможно най-лесния начин.

Стъпка 1:

➤ Натиснете ALT+F11 на клавиатурата. VBA ще се отвори прозорец.

Стъпка 2:

➤ Отидете в Вмъкване на в прозореца VBA.

➤ От наличните опции изберете Модул .

Стъпка 3:

➤ Нов прозорец на модул, наречен "Модул 1" ще се отвори.

➤ Вмъкнете следното VBA код в модула.

Код: 

 Sub Merging_Rows() Dim out As Variant out = " Dim start As Variant start = 1 Dim ending As Variant ending = 1 Dim i As Variant Dim j As Variant For i = 2 To Selection.Rows.Count + 1 If Selection(i, 1) "" Or i = Selection.Rows.Count + 1 Then ending = i - 1 For j = start To ending If j = ending Then out = out + Range(Selection(j, 2).Address).ValueElse: out = out + Range(Selection(j, 2).Address).Value + vbNewLine End If Next j Range(Selection(start, 2).Address) = out Range(Selection(start, 1).Address + ":" + Selection(ending, 1).Address).Merge Across:=False Range(Selection(start, 2).Address + ":" + Selection(ending, 2).Address).Merge Across:=False start = iout = "" End If Next i End Sub

Стъпка 4:

➤ Запишете работната книга като Работна книга с макроси на Excel .

Стъпка 5:

➤ Върнете се в работната си книга и изберете набора от данни (без Заглавия на колони ).

Стъпка 6:

➤ Натиснете ALT+F8 на клавиатурата.

➤ Диалогов прозорец, наречен Macro ще се отвори. Изберете Обединяване на редове (Merging_Rows) и щракнете върху Изпълнявайте .

Стъпка 6:

➤ Ще се появи предупредително поле, което ще ви каже, че сливането на клетките запазва само горната лява стойност на клетката, а другите стойности се изхвърлят.

➤ Кликнете върху OK .

Стъпка 7:

➤ Няколко пъти ще се появи същото предупредително поле. Щракнете върху ОК всеки път.

➤ Накрая всички групи клетки ще бъдат обединени вертикално в единични клетки по следния начин.

Заключение

Използвайки тези методи, можете да обедините клетки в Excel вертикално, без да губите данни. Знаете ли друг метод или имате въпроси? Не се колебайте да ни попитате.

Предишна публикация Как да използвате функцията SUMIFS в Excel (6 удобни примера)
Следваща публикация Как да конвертирате число в думи в Excel (4 подходящи начина)

Хю Уест е опитен обучител и анализатор на Excel с над 10 години опит в индустрията. Има бакалавърска степен по счетоводство и финанси и магистърска степен по бизнес администрация. Хю има страст към преподаването и е разработил уникален подход на преподаване, който е лесен за следване и разбиране. Неговите експертни познания по Excel са помогнали на хиляди студенти и професионалисти по целия свят да подобрят уменията си и да постигнат отлични резултати в кариерата си. Чрез своя блог Хю споделя знанията си със света, като предлага безплатни уроци за Excel и онлайн обучение, за да помогне на хората и фирмите да достигнат пълния си потенциал.