Как объединить ячейки в 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. Используйте символ амперсанда (&) для вертикального слияния ячеек в 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 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 на клавиатуре.

➤ Появляется диалоговое окно под названием Макро откроется. Выберите Слияние_строк и нажмите на Запускайте .

Шаг 6:

➤ Вы получите предупреждающее окно, в котором будет сказано, что при объединении ячеек сохраняется только значение верхней левой ячейки, а остальные значения отбрасываются.

➤ Нажмите на OK .

Шаг 7:

➤ Вы несколько раз получите одно и то же предупреждающее окно. Нажмите кнопку OK каждый раз.

➤ Наконец, вы увидите, что все ваши группы ячеек объединены по вертикали в одну ячейку, как показано ниже.

Заключение

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

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

Хью Уэст — опытный тренер и аналитик Excel с более чем 10-летним опытом работы в отрасли. Он имеет степень бакалавра в области бухгалтерского учета и финансов и степень магистра делового администрирования. Хью страстно любит преподавать и разработал уникальный подход к обучению, которому легко следовать и который легко понять. Его экспертные знания Excel помогли тысячам студентов и специалистов по всему миру улучшить свои навыки и преуспеть в своей карьере. В своем блоге Хью делится своими знаниями со всем миром, предлагая бесплатные учебные пособия по Excel и онлайн-обучение, чтобы помочь отдельным лицам и компаниям полностью раскрыть свой потенциал.