Excel макросы для объединения ячеек без потери

Надпись на заборе: «Катя + Миша + Семён + Юра + Дмитрий Васильевич +
товарищ Никитин + рыжий сантехник + Витенька + телемастер Жора +
сволочь Редулов + не вспомнить имени, длинноволосый такой +
ещё 19 мужиков + муж = любовь!»

Способ 1. Функции СЦЕПИТЬ, СЦЕП и ОБЪЕДИНИТЬ

В категории Текстовые есть функция СЦЕПИТЬ (CONCATENATE), которая соединяет содержимое нескольких ячеек (до 255) в одно целое, позволяя комбинировать их с произвольным текстом. Например, вот так:

Нюанс: не забудьте о пробелах между словами — их надо прописывать как отдельные аргументы и заключать в скобки, ибо текст. 

Очевидно, что если нужно собрать много фрагментов, то использовать эту функцию уже не очень удобно, т.к. придется прописывать ссылки на каждую ячейку-фрагмент по отдельности. Поэтому, начиная с 2016 версии Excel, на замену функции СЦЕПИТЬ пришла ее более совершенная версия с похожим названием и тем же синтаксисом — функция СЦЕП (CONCAT). Ее принципиальное отличие в том, что теперь в качестве аргументов можно задавать не одиночные ячейки, а целые диапазоны — текст из всех ячеек всех диапазонов будет объединен в одно целое:

Для массового объединения также удобно использовать новую функцию ОБЪЕДИНИТЬ (TEXTJOIN), появившуюся начиная с Excel 2016. У нее следующий синтаксис:

=ОБЪЕДИНИТЬ(Разделитель; Пропускать_ли_пустые_ячейки; Диапазон1; Диапазон2 … )

где

• Разделитель — символ, который будет вставлен между фрагментами
• Второй аргумент отвечает за то, нужно ли игнорировать пустые ячейки (ИСТИНА или ЛОЖЬ)
• Диапазон 1, 2, 3 … — диапазоны ячеек, содержимое которых хотим склеить

Например:

Способ 2. Символ для склеивания текста (&)

Это универсальный и компактный способ сцепки, работающий абсолютно во всех версиях Excel. 

Для суммирования содержимого нескольких ячеек используют знак плюс «+«, а для склеивания содержимого ячеек используют знак «&» (расположен на большинстве клавиатур на цифре «7»). При его использовании необходимо помнить, что:

• Этот символ надо ставить в каждой точке соединения, т.е. на всех «стыках» текстовых строк также, как вы ставите несколько плюсов при сложении нескольких чисел (2+8+6+4+8)
• Если нужно приклеить произвольный текст (даже если это всего лишь точка или пробел, не говоря уж о целом слове), то этот текст надо заключать в кавычки. В предыдущем примере с функцией СЦЕПИТЬ о кавычках заботится сам Excel — в этом же случае их надо ставить вручную.

Вот, например, как можно собрать ФИО в одну ячейку из трех с добавлением пробелов:

Если сочетать это с функцией извлечения из текста первых букв — ЛЕВСИМВ (LEFT), то можно получить фамилию с инициалами одной формулой:

Способ 3. Макрос для объединения ячеек без потери текста.

Имеем текст в нескольких ячейках и желание — объединить эти ячейки в одну, слив туда же их текст. Проблема в одном — кнопка Объединить и поместить в центре (Merge and Center) в Excel объединять-то ячейки умеет, а вот с текстом сложность — в живых остается только текст из верхней левой ячейки. 

Чтобы объединение ячеек происходило с объединением текста (как в таблицах Word) придется использовать макрос. Для этого откройте редактор Visual Basic  на вкладке Разработчик — Visual Basic (Developer — Visual Basic) или сочетанием клавиш Alt+F11, вставим в нашу книгу новый программный модуль (меню Insert — Module) и скопируем туда текст такого простого макроса:

Sub MergeToOneCell()
    Const sDELIM As String = " "     'символ-разделитель
    Dim rCell As Range
    Dim sMergeStr As String
    If TypeName(Selection) <> "Range" Then Exit Sub   'если выделены не ячейки - выходим
    With Selection
        For Each rCell In .Cells
            sMergeStr = sMergeStr & sDELIM & rCell.Text  'собираем текст из ячеек
        Next rCell
        Application.DisplayAlerts = False   'отключаем стандартное предупреждение о потере текста
        .Merge Across:=False                'объединяем ячейки
        Application.DisplayAlerts = True
        .Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM))    'добавляем к объед.ячейке суммарный текст
    End With
End Sub

Теперь, если выделить несколько ячеек и запустить этот макрос с помощью сочетания клавиш Alt+F8 или кнопкой Макросы на вкладке Разработчик (Developer — Macros), то Excel объединит выделенные ячейки в одну, слив туда же и текст через пробелы.

Ссылки по теме

• Делим текст на куски
• Объединение нескольких ячеек в одну с сохранением текста с помощью надстройки PLEX
• Что такое макросы, как их использовать, куда вставлять код макроса на VBA

Объединить ячейки чтобы придать таблице читабельный вид очень часто существенно усложняется с увеличением объема данных. Так же весьма неблагодарным занятием является присвоение соответственных границ для ячеек. На помощь пользователям приходят макросы, благодаря которым все эти действия можно выполнить автоматически.

Автоматическое объединение большого количества ячеек по вертикали

Допустим мы имеем маркетинговый план внедрения нового информационного программного продукта:

Чтобы план было легче визуально анализировать лучше объединить ячейки этапов выполнения плана: A2:A4, B2:B4 и т.д. К сожалению, многократно объединять диапазоны с большим количеством строк вручную – это задание требует слишком много времени и сил. Кроме того, можно допустить много ошибок после очередного десятка выделения ячеек перед объединением. Рассмотрим каким способом можно существенно облегчить свой труд переложив большую часть работы на простую программу, написанную на языке VBA прямо в Excel. Для этого следует написать макрос, который безошибочно быстро и автоматически объединит ячейки диапазонов с разным количеством строк для каждого столбца.

1. Сначала откройте редактор макросов: «РАЗРАБОТЧИК»-«Код»-«Visual Basic» (или просто нажмите ALT+F11).



2. Откройте стандартный модуль выбрав инструмент в редакторе: «Insert»-«Module» и введите в него следующий код макроса для объединения ячеек:

Sub ObedenitVertikal()
Dim i As Long
Dim j As Long
Dim intext As String
Application.DisplayAlerts = False
For i = 1 To Selection.Columns.Count
  intext = Selection.Cells(1, i)
  For j = 2 To Selection.Rows.Count
    intext = intext & Chr(10) & Selection.Cells(j, i)
  Next
  Selection.Columns(i).Merge
  Selection.Cells(1, i) = intext
Next
Application.DisplayAlerts = True
End Sub


Пока что это еще не полная версия макроса поэтому перед тем как его проверить нам все еще вручную необходимо выделить первый диапазон A2:D4. После чего можно выполнить нашу первую версию макроса.



Запуск макроса для объединения ячеек

Выбираем инструмент: «РАЗРАБОТЧИК»-«Код»-«Макросы».

В появившемся диалоговом окне выделяем значение «ObedenitVertikal» и нажимаем на кнопку «Выполнить».

Потом снова вручную выделите новый диапазон A5:D9 и повторно выполните тот же макрос. Ячейки будут выделены как показано ниже на рисунке:

В начале кода определены 3 переменные: две из них выполняют функцию счетчика, а третья служит для временного хранения текстового содержания ячеек. Счетчик первой переменной в цикле проходит по очереди все столбцы выделенного диапазона ячеек. В каждом таком столбце в текстовую переменную записывается текст, который содержится в первой ячейке каждого выделенного столбца. Второй счетчик идет по строкам каждого столбца и дописывает в текстовую переменную текстовые значения из остальных ячеек каждого текущего столбца выделенного диапазона – сверху вниз. Тексты, взятые из отдельных ячеек разделяться символом обрыва строки.

Символ обрыва строки вставлен с помощью функции Chr(10). Каждый вводимый символ из клавиатуры имеет свой код ASCII. Если введем код 10 в качестве аргумента для функции Chr(), тогда она будет возвращать символ обрыва строки. Такой же код ASCII на клавиатуре вызывается клавишей Enter для обрыва строки во всех текстовых редакторах.

Потом остальной код макроса объединяет все ячейки столбцов в выделенном диапазоне, а потом заполняет их текстом из текстовой переменной. Чтобы не появлялось предупреждающее сообщение об объединении ячеек, в начале кода программы макроса отключаем отображение сообщений в Excel средствами программирования. Для этой цели используем свойство: Application.DisplayAlerts = Fale. После выполнения кода макроса изменяем значение свойства на True, чтобы в дальнейшем процессе работы с программой Excel все сообщения предупреждений (Alerts) имели возможность отображаться.

Внимание! Если ячейки выделенного диапазона будут содержать формулы, то после выполнения макроса эти формулы будут заменены на текст. В результате после объединения ячеек макросом, формулы могут быть утеряны.

Модернизация и настройка кода макроса для объединения ячеек

Если нам нужно изменить текст разделяющий отдельные строки символов содержащийся в целых ячейках, то можно вписать другой код символа, текст или несколько текстов соединенных символом амперсантом (&). Допустим мы хотим вставить между двумя символами разрыва строки текст, состоящий из пяти тире «——». Тогда данную строку следует модифицировать следующим образом:

intext = intext & Chr(10) & “——” & Chr(10) & Selection.Cells(j, i)

Если в объединенной ячейке мы хотим всегда вставлять только текст из первой ячейки в выделенном столбце (без текстов, записанных в остальных ячейках), тогда удалим или закомментируем переменную второго счетчика и часть кода второго цикла:

Если нам нужно чтобы выполнять макрос после выделения нескольких диапазонов (с удержанием клавиши CTRL), тогда можно добавить еще одну переменную, которая будет дополнять функцию счетчика:

Dim k As Long

Перед первым циклом добавим новую строку с кодом:

For k = 1 To Selection.Areas.Count

А после последнего цикла добавим строку конца нового цикла:

Next

Соответственно добавим новый отступ, чтобы код был более читабельным. Кроме того, после всех изменений для объекта Selection добавим ссылку на диапазон:

Selection.Areas(k)

Полная новая версия макроса для объедения ячеек выделенных нескольких диапазонов, выглядит так:

Sub ObedenitVertikal()
Dim i As Long
Dim j As Long
Dim k As Long
Dim intext As String
Application.DisplayAlerts = False
For k = 1 To Selection.Areas.Count
  For i = 1 To Selection.Areas(k).Columns.Count
    intext = Selection.Areas(k).Cells(1, i)
    For j = 2 To Selection.Areas(k).Rows.Count
     intext = intext & Chr(10) & Selection.Areas(k).Cells(j, i)
    Next
    Selection.Areas(k).Columns(i).Merge
    Selection.Areas(k).Cells(1, i) = intext
  Next
Next
Application.DisplayAlerts = True
End Sub


Тепер выделяем 2 диапазона подряд A2:D4, A5:D8, A с нажатой клавишей CTRL на клавиатуре:

В результате получаем идентичный вид таблицы с объединенными ячейками:

Читайте также:

Как разъединить объединенные ячейки в Excel используя макрос.

Как объединить столбцы в Excel используя макрос.

Если выполнить первую версию макроса (без всех этих изменений), для многократного выделения диапазонов с нажатой клавишей CTRL, то объединение строк по столбцам будет выполнено только для первого диапазона.

Популярные сообщения из этого блога

Как в Excel объединить ячейки с текстом в одну без потери данных

Многофункциональный редактор таблиц Microsoft Excel позволяет решать одну и ту же задачу несколькими способами. Пользователь может выполнять действия вручную, с помощью горячих клавиш, формул, специальных надстроек. Это же касается и объединения ячеек с разными условиями. Сегодня мы поговорим о том, как в Экселе объединить ячейки с текстом в одну без потери данных. Эта операция выполняется как штатными средствами программы, так и с помощью сторонних плагинов. Если соединять заполненные клетки обычным образом, то сохранится содержимое только левой ячейки, поэтому без хитростей в данном случае не обойтись.

Буфер обмена

С помощью обычной процедуры копирования и вставки можно решить данную проблему. Однако успешно перенести содержимое ячеек можно с помощью встроенной функции «Буфер обмена». Рассмотрим процедуру детально:

1. Сначала вам нужно открыть боковое окно с содержимым буфера обмена. Для этого во вкладке «Главная» нажмите на кнопку отображения этого блока в основном окне Excel.
2. Теперь выделите мышкой ячейки, содержимое которых нужно объединить в одну. Скопируйте их с помощью панели инструментов, контекстного меню или сочетания клавиш Ctrl + C .
3. Теперь дважды щелкните мышкой по ячейке, где должен поместиться объединенный текст.
4. Кликните по вставляемому объекту из окна «Буфер обмена». После чего текст из двух ячеек появится в одной клетке.

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

Объединение с помощью формулы

Теперь перейдем к более сложным методам. Одним из них является использование формулы. Рассмотрим процедуру подробнее:

1. Дважды кликните мышкой по ячейке, в которую необходимо поместить объединенный текст.
2. Начните вписывать формулу. Для этого поставьте знак = и кликните сначала по первой ячейке. Затем через знак & добавляйте остальные клетки. Примените формулу клавишей Enter .
3. Теперь вы видите содержимое ячеек, но без разделительных знаков. Чтобы между словами или блоками появились пробелы, необходимо усложнить формулу. Она примет вид =D3&” “&E3 .

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

Как объединить ячейки в Excel без потери данных?

Описание проблемы

К сожалению, при объединении двух или более ячеек, содержащих текст, Excel сохраняет значение только первой ячейки. Данные в остальных ячейках будут удалены. Решить эту задачу стандартным способом можно предварительно объединив текст ячеек с помощью функции СЦЕПИТЬ. Однако это несколько неудобно и отнимает большое количество времени. Чтобы быстро и удобно объединять ячейки и НЕ терять данные в них, лучше пользоваться дополнением к Excel — надстройкой VBA-Excel. Это наглядно продемонстрировано на рисунке справа.

Программа позволяет объединить ячейки с сохранением данных как отдельно выбранного диапазона, так и объединять ячейки построчно или по столбцам.

Ниже подробно описан порядок действий для этих случаев.

Если необходимо объединить одну область ячеек

1. Выделите диапазон ячеек, которые хотите объединить с сохранением текста.
2. Перейдите на вкладку VBA-Excel
3. Нажмите на команду Объединить ячейки
   
4. Выберите разделитель в появившемся диалоговом окне. Для удобства имеется предварительный просмотр результата.
   
5. Нажмите кнопку Объединить

​Если необходимо объединить сразу несколько диапазонов ячеек

Надстройка VBA-Excel сможет облегчить процесс даже в том случае, если необходимо объединить большое количество ячеек с сохранением данных (например, по строкам или столбцам).

Для этого необходимо выполнить первые 4 действия из инструкции выше и дополнительно задать тип объединения ячеек.

3 способа склеить текст из нескольких ячеек

Надпись на заборе: «Катя + Миша + Семён + Юра + Дмитрий Васильевич +
товарищ Никитин + рыжий сантехник + Витенька + телемастер Жора +
сволочь Редулов + не вспомнить имени, длинноволосый такой +
ещё 19 мужиков + муж = любовь!»

Способ 1. Функции СЦЕПИТЬ, СЦЕП и ОБЪЕДИНИТЬ

В категории Текстовые есть функция СЦЕПИТЬ (CONCATENATE) , которая соединяет содержимое нескольких ячеек (до 255) в одно целое, позволяя комбинировать их с произвольным текстом. Например, вот так:

Нюанс: не забудьте о пробелах между словами — их надо прописывать как отдельные аргументы и заключать в скобки, ибо текст.

Очевидно, что если нужно собрать много фрагментов, то использовать эту функцию уже не очень удобно, т.к. придется прописывать ссылки на каждую ячейку-фрагмент по отдельности. Поэтому, начиная с 2016 версии Excel, на замену функции СЦЕПИТЬ пришла ее более совершенная версия с похожим названием и тем же синтаксисом — функция СЦЕП (CONCAT) . Ее принципиальное отличие в том, что теперь в качестве аргументов можно задавать не одиночные ячейки, а целые диапазоны — текст из всех ячеек всех диапазонов будет объединен в одно целое:

Для массового объединения также удобно использовать новую функцию ОБЪЕДИНИТЬ (TEXTJOIN) , появившуюся начиная с Excel 2016. У нее следующий синтаксис:

=ОБЪЕДИНИТЬ( Разделитель ; Пропускать_ли_пустые_ячейки ; Диапазон1 ; Диапазон2 . )

• Разделитель — символ, который будет вставлен между фрагментами
• Второй аргумент отвечает за то, нужно ли игнорировать пустые ячейки (ИСТИНА или ЛОЖЬ)
• Диапазон 1, 2, 3 . — диапазоны ячеек, содержимое которых хотим склеить

Например:

Способ 2. Символ для склеивания текста (&)

Это универсальный и компактный способ сцепки, работающий абсолютно во всех версиях Excel.

Для суммирования содержимого нескольких ячеек используют знак плюс «+«, а для склеивания содержимого ячеек используют знак «&» (расположен на большинстве клавиатур на цифре «7»). При его использовании необходимо помнить, что:

• Этот символ надо ставить в каждой точке соединения, т.е. на всех «стыках» текстовых строк также, как вы ставите несколько плюсов при сложении нескольких чисел (2+8+6+4+8)
• Если нужно приклеить произвольный текст (даже если это всего лишь точка или пробел, не говоря уж о целом слове), то этот текст надо заключать в кавычки. В предыдущем примере с функцией СЦЕПИТЬ о кавычках заботится сам Excel — в этом же случае их надо ставить вручную.

Вот, например, как можно собрать ФИО в одну ячейку из трех с добавлением пробелов:

Если сочетать это с функцией извлечения из текста первых букв — ЛЕВСИМВ (LEFT) , то можно получить фамилию с инициалами одной формулой:

Способ 3. Макрос для объединения ячеек без потери текста.

Имеем текст в нескольких ячейках и желание — объединить эти ячейки в одну, слив туда же их текст. Проблема в одном — кнопка Объединить и поместить в центре (Merge and Center) в Excel объединять-то ячейки умеет, а вот с текстом сложность — в живых остается только текст из верхней левой ячейки.

Чтобы объединение ячеек происходило с объединением текста (как в таблицах Word) придется использовать макрос. Для этого откройте редактор Visual Basic на вкладке Разработчик — Visual Basic (Developer — Visual Basic) или сочетанием клавиш Alt + F11 , вставим в нашу книгу новый программный модуль (меню Insert — Module) и скопируем туда текст такого простого макроса:

Теперь, если выделить несколько ячеек и запустить этот макрос с помощью сочетания клавиш Alt + F8 или кнопкой Макросы на вкладке Разработчик (Developer — Macros) , то Excel объединит выделенные ячейки в одну, слив туда же и текст через пробелы.

Как в Excel объединить текст из двух и нескольких ячеек в одну

Объединение текста нескольких ячеек в одну – базовая функция при работе с табличными данными, с ее п.

Объединение текста нескольких ячеек в одну – базовая функция при работе с табличными данными, с ее помощью содержание произвольного количества полей можно сцеплять нужным образом и размещать в свободных ячейках. Она используется при составлении пофамильных списков сотрудников, отчетов различных направлений и других операциях с большими массивами информации. Для объединения ячеек есть два способа: с потерей данных и без потери. В первом случае в объединенной ячейке остается только одно значение, во втором – сохраняется весь текст. Второй способ предполагает как минимум четыре варианта объединения: с использованием двух функций («Сцеп-сцепить» и «Объединить»), при помощи символа амперсанд и с применением макроса. В статье подробно разберемся, как в Excel объединить текст нескольких ячеек в одну.

С помощью функции

Excel предусматривает несколько функций для объединения ячеек. Для начала, расскажем о самой простой и «теряющей» информацию. Если интересует, как в Экселе соединить текст из двух ячеек в одну, оставив только одно значение – то вам понадобится функция «объединить» в разделе «Формат ячейки».

1. Выделите мышкой ячейки, которые нужно объединить.
2. По образовавшемуся полю щелкните правой кнопкой мыши.
3. Выберите пункт «Формат ячеек».
4. В появившемся окне зайдите в раздел «Выравнивание».
5. Отметьте галочкой пункт «Объединить ячейки» и нажмите «Ок». Выделенные поля объединяться в одну большую с сохранением содержания первой ячейки.

Также эта функция есть в графе «Главная» в разделе «Выравнивание» в верхней части экрана.

С помощью функции «Сцеп-сцепить»

В ранних версиях Excel для объединения текста ячеек применялась функция «Сцепить», в новых вариантах программы ее заменили функцией «Сцеп». Для ее использования:

1. Щелкните по пустой ячейке в Excel.
2. Поставьте знак «=» и большими буквами введите «Сцепить» либо «Сцеп».
3. В скобках после формулы кликните по ячейке, которая должна быть первой в объединенной ячейке, либо введите ее адрес вручную (например, A1). Затем поставьте точку с запятой, после щелкните или напишите вторую ячейку. Затем поставьте точку с запятой и отметьте третье поле. После перечисления адресов нажмите «Enter». В поле, где вбивали формулу, появится объединенный текст. Он появится без пробелов между текстовыми блоками. Чтобы этого избежать, отбейте пробел в каждой отдельно взятой ячейке после находящегося текста, либо после адреса ячейки в формуле добавьте пробел вручную, написав « » (пробел в кавычках). Пробел в формуле также отделяется от остальных элементов точкой с запятой.

Как в Экселе соединить текст из двух ячеек в одну с помощью функции «Объединить»

«Объединить» — усовершенствованная вариация функции «Сцеп». Ее отличие в том, что параметры вводятся единожды на этапе написания функции. В частности, разделитель придется указать один раз для содержимого всех ячеек. Для того чтобы воспользоваться функцией «Объединить» нужно выполнить действия:

1. В пустой ячейке поставьте знак «=» и напишите большими буквами «Объединить».
2. В скобках после формулы укажите разделитель в кавычках (« » ,«,»,« и »), затем поставьте точку с запятой. Второй параметр формулы – это игнорирование пустых полей. Если они не должны учитываться в формуле, напишите «1», в ряде версий этот параметр обозначается словом «Истина» или «Ложь». Затем перечислите через запятую ячейки, которые нужно объединить, и нажмите «Enter».

В итоге формула должна иметь вид: «=ОБЪЕДИНИТЬ(« »;ИСТИНА; «A1»; «A2»; «A3»).

Если в A1 – «Иванов», в А2 – «Иван», в А3 – «Иванович», то после нажатия «Enter» в пустой ячейке появится «Иванов Иван Иванович».

С помощью символа «&»

Четвертый способ объединить ячейки – использовать амперсанд ( «&»). Для этого:

1. В пустой ячейке наберите «=».
2. Напишите нужную ячейку, например, А1, затем поставьте знак «&», потом в кавычках введите разделитель. Это может быть пробел или запятая, он также помещается в кавычки, потом введите вторую ячейку, которую нужно объединить. Если их больше двух, пробел выставите после каждой нового поля. Формула должна выглядеть так: «=А1&« »&А2& « »&А3». После нажатия «Enter» содержимое ячеек объединится.

С помощью макроса

Макрос в Excel – это сервис для автоматизации повторяющихся действий, он представляет собой записанную последовательность примененных функций и щелчков мышью для последующего воспроизводства. Используется, если нужно регулярно выполнять типовые задачи, в которых меняются данные, но не структура. Например, макросы используются при составлении ежемесячных отчетов о заработной плате, в которых меняются только цифры, но не метод расчета. Тогда макрос избавит пользователя от необходимости регулярно вручную настраивать и использовать формулы.

Чтобы записать макрос:

1. В разделе «Разработчик» в графе «Код» нажмите на клавишу «Записать макрос».
2. В появившемся окне выберите имя макроса, чтобы потом было удобнее его искать, присвойте ему сочетание клавиш и место хранения, добавьте описание.
3. Нажмите «Ок», затем точно и без ошибок (потому что макрос записывает и ошибки тоже) проделайте алгоритм.
4. Вернитесь во вкладку «Разработчик» и «Код» и нажмите «Остановить запись».

Макрос записывается в виде кода Visual Basic для приложений на одноименном языке программирования, который доступен для редактирования при нажатии комбинации ALT + F11. При ручном редактировании становится доступным правка записанного макроса, однако это требует дополнительных знаний и недоступно для рядового пользователя. Также макросы способны работать в нескольких продуктах Microsoft Office одновременно. Выполняется макрос нажатием присвоенной комбинации либо через окно «Макрос», которое вызывается комбинацией ALT + F8.

Как объединить ячейки в таблице Excel

При работе с таблицами в программе Эксель у пользователей нередко возникает потребность в объединении некоторых ячеек. Сама по себе эта задача не представляет никакой сложности, если в этих ячейках нет данных, т.е. они пустые. Но как быть в ситуации, когда в ячейках содержится какая-либо информация? Не потеряются ли данные после объединения? В этой статье мы подробно разберём этот вопрос.

Как объединить ячейки

Процедура довольно легкая и может использоваться в следующих случаях:

1. Объединение пустых ячеек.
2. Объединение ячеек, среди которых только одна содержит заполненные данные.

Прежде всего, необходимо выделить левой кнопкой мыши объединяемые ячейки. Затем переходим в меню программы на вкладку «Главная» и ищем там нужный нам параметр — «Объединить и поместить в центре».

При таком способе выделенные ячейки будут объединены в одну единую, а содержимое будет выровнено по центру.

В случае, если требуется, чтобы информация располагалась не по центру, а с учетом форматирования ячейки, следует нажать небольшую стрелку вниз, расположенную рядом с пиктограммой объединения ячеек и в открывшемся меню выбираем пункт «Объединить ячейки».

При таком способе объединения данные будут выровнены по правому краю объединенной ячейки (по умолчанию).

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

При таком способе объединения результат несколько иной: ячейки объединились в одну, но с разбивка по строкам сохранилась.

Как объединить ячейки через контекстное меню

Ячейки также можно объединить посредством использования контекстного меню. Для выполнения этой задачи необходимо выделить курсором объединяемую область, щелкнуть правой кнопкой мыши, после чего выбрать из списка «Формат ячеек».

А появившемся окне выбираем пункт «Выравнивание» и ставим галочку напротив «Объединение ячеек». В этом меню также можно выбрать и другие параметры объединения: перенос текста по словам, автоподбор ширины, горизонтальная и вертикальная ориентация, направление, различные варианты выравнивания и прочее. После того как все параметры выставлены кликаем на «OK».

Итак, как мы и хотели, ячейки объединились в одну.

Как объединить ячейки без потери данных

Но как быть в ситуации, когда несколько ячеек содержат данные? Ведь при простом объединении вся информация, кроме левой верхней ячейки, будет удалена.

И у этой, казалось бы, непростой задачи есть решение. Для этого можно воспользоваться функцией «СЦЕПИТЬ».

Первым шагом делаем следующее. Между объединяемыми ячейками необходимо добавить пустую ячейку. Чтобы это сделать нужно правой кнопкой мыши щелкнуть на номер столбца/строки, перед которыми мы хотим добавить новый столбец/строку и выбрать в раскрывшемся меню пункт “Вставка”.

В полученной новой ячейке прописываем формулу по следующему шаблону: “=СЦЕПИТЬ(X;Y)“. При этом X и Y — это значения координат объединяемых ячеек.

В нашем случае, требуется сцепить ячейки B2 и D2, значит, прописываем формулу “=СЦЕПИТЬ(B2;D2)” в ячейку C2.

Итогом будет склеивание данных в объединенной ячейке. Однако, как вы можете заметить, у нас получились целых три ячейки, вместо одной объединенной: две исходные и, соответственно, сама объединенная.

Для того чтобы убрать лишние ячейки, щелкаем мышью (правой кнопкой) по получившейся объединенной ячейке. В выпадающем списке необходимо нажать «Копировать».

Далее идем в ячейку, находящуюся справа от объединенной (в которой находятся изначальные данные), щелкаем правой кнопкой мыши по ней, после чего выбираем из списка параметр “Специальная вставка».

В открывшемся окне среди всех вариантов выбираем “Значения” и щелкаем “ОК”.

В результате в этой ячейке окажется результат ячейки C2, в которой мы объединили первоначальные значения ячеек B2 и D2.

Теперь, после того, как мы вставили результат в ячейку D2, можно удалить лишние ячейки, которые теперь не нужны (B2 и С2). Для этого выбираем лишние ячейки/столбцы левой кнопкой мыши, далее по выделенному диапазону щелкаем правой кнопкой мыши и в открывшемся меню выбираем “Удалить”.

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

Заключение

Таким образом, в обычном объединении ячеек ничего сложного нет. А вот чтобы объединить ячейки сохранив данные придётся слегка потрудиться. Но все же эта задача вполне выполнимая благодаря удобному функционалу программы Excel. Главное – запастись терпением и соблюдать правильную последовательность действий. Рекомендуем перед началом работы на всякий случай сделать копию документа, если вдруг что-то не получится и данные будут утеряны.

Примечание: Все вышеописанные операции можно применять в отношении как ячеек столбца (нескольких столбцов), так и в отношении ячеек строк (нескольких строк). Очередность действий и доступность функций при этом остается одинаковой.

Расскажи друзьям, если статья оказалась полезной:

    Видеоинструкции по использованию надстройки MulTEx

Как объединить два столбца в Excel без потери данных

​Смотрите также​ retrieved​ было пользоваться раздельно.​: The_Prist,​Они появляются после​ макрос. Для этого​

​где​ в одну. Читайте​ нужно, то не​ текста». Часть функций​ ячейки без потери​Теперь надо ввести аргументы​ иконку малярной кисти​ с которой можно​(Пуск) >​ кнопкой мыши по​ на заголовок столбца​Из этой короткой статьи​The following error​Вот что получилось:​СУПЕР!!!​ разгруппировки, а самое​ откройте редактор Visual​Разделитель​

​ статью «Как объединить​ нужно копировать значение​ не выведена кнопками​ данных, столбцы, строки,​ функции. Перед собой​​ и находится в​​ справиться в одно​​All Programs​​ любой ячейке в​ (в нашем случае​ Вы узнаете, как​ was encountered while​Sub Fill_Sel_by_Link() ‘​Отлично работает!​ главное, что видятся​ Basic на вкладке​

​- символ, который​ таблицы в Excel».​

• ​ столбца с формулой​​ на закладке, п.э.​ списки, таблицы​ вы видите три​ группе инструментов «Буфер​​ нажатие кнопки мыши,​(Все программы) >​ том же столбце​ это столбец D),​ в Excel объединить​
• ​ trying to retrieve​ заполнить Selection формулами-ссылками​​Особенно порадовало название​ автофильтром.​Разработчик -​ будет вставлен между​Можно, ухитриться, и​ (пункт 4 не​​ нужно вызвать окно​,​ поля: «Текст1», «Текст2»​ обмена».​ другие же попросту​Accessories​

​ (Full Name) и​ кликните по нему​ несколько столбцов в​ the URL: ?​ на Selection(1)​ временного листа «Бракозябула_вот_так_сам_в_шоке»​Возникла идея выполнять​Visual Basic (Developer -​

• ​ фрагментами​объединить сводные таблицы в​
• ​ нужно делать). А​ формата ячеек, нажав​

Объединяем два столбца при помощи формул

​т.д.​ и «Текст3» и​Выделите остальную часть столбцов,​ не знают, как​(Стандартные) >​ в контекстном меню​ правой кнопкой мыши​ один, не потеряв​The request or​If Selection.Cells.Count With​

1. ​Да уж, вероятность​ такое объединение макросом​ Visual Basic)​Второй аргумент отвечает за​ Excel.​ столбец с формулой​ в правом нижнем​Как объединить ячейки в​ так далее.​ которую хотите слить​​ это сделать. В​​Notepad​ выберите​​ и в контекстном​​ при этом данные.​
2. ​ reply is too​​ Union(Selection.Resize(Selection.Rows.Count — 1).Offset(1),​​ того, что лист​ без использования промежуточных​

   ​или сочетанием клавиш​
​ то, нужно ли​

   ​В Excel нет​​ объединить со вторым​​ углу раздела «Выравнивание»​​Excel.​В поле «Текст1» введите​​ воедино.​​ любом случае, эта​​(Блокнот)​​Paste Special​ меню выберите пункт​У Вас есть таблица​ large.​ _​ с таким именем​ ячеек для форматирования.​ Alt+F11, вставим в​ игнорировать пустые ячейки​ функции объединить сводные​ столбцом.​

   

   ​ маленькую кнопку со​Выделяем ячейки, которые​ имя первой ячейки.​После этого снова нажмите​ статья будет полезна​Вставьте данные из буфера​(Специальная вставка). Отметьте​Insert​ в Excel, и​

   

3. ​Alex_ST​Selection.Resize(, Selection.Columns.Count -​ есть у кого-то​​А уж если​​ нашу книгу новый​ (ИСТИНА или ЛОЖЬ)​ таблицы, но есть​Можно столбец А просто​ стрелкой.​ хотим объединить. На​Во второе поле введите​
4. ​ по кнопке «Формат​ всем, так как​ обмена в Блокнот​ вариант​(Вставить). Давайте назовём​ Вы хотите объединить​​: Что-то у меня​​ 1).Offset(, 1))​​ в книге, так​​ в скрываемые при​ программный модуль (меню​Диапазон 1, 2, 3​​ способ сделать это.​​ скрыть, чтобы не​
5. ​Если​ закладке «Главная» в​ имя второй ячейки,​ по образцу».​ в ней представлено​ (нажмите​Values​ новый столбец​ два столбца в​ вдруг СЕГОДНЯ перестал​​.Formula = «=»​​ сильно стремится к​​ объединении ячейки опционально​​Insert — Module​… — диапазоны​​ Все описано в​​ мешал.​​текст не входит в​​ разделе «Выравнивание» нажимаем​ расположенной рядом с​Как только вы это​ три способа того,​Ctrl+V​(Значения) и нажмите​Full Name​ один построчно. Например,​​ работать макрос заполнения​​ & Selection(1).Address​ нулю, что ей​​ (или другим макросом)​​) и скопируем туда​​ ячеек, содержимое которых​​ статье «Сводная таблица​
6. ​Как найти в​​ ячейку,​​ на кнопку «Объединить».​​ ней.​​ сделаете, все выделенные​ как объединить два​или​
   • ​ОК​​.​​ необходимо объединить столбец​ …​​.Font.ColorIndex = 5​​ можно пренебречь…​ можно будет вместо​​ текст такого простого​​ хотим склеить​
   • ​ в Excel из​ таблице все объединенные​​можно поставить «​​Ещё функцию «Объединить»​​При желании можете продолжить​​ столбцы станут единым​ столбца в один​​Shift+Ins​​.​​В ячейке​​ с именем и​Sub Fill_Sel() ‘​​ ‘ сделать шрифт​​Alex_ST​

​ их текста вставить​ макроса:​Например:​ нескольких таблиц» тут.​ ячейки, читайте в​​Переносить по словам​​ можно вызвать из​

​ ввод ячеек, если​ целым. Это был​ в Excel.​​)​Удалите столбцы​D2​

Объединяем столбцы при помощи Блокнота

​ столбец с фамилией​ заполнить Selection формулами-ссылками​ формул синим (это​: The_Prist, ещё вопросик-просьба:​ формулы = первой​Sub MergeToOneCell() Const​Это универсальный и компактный​Формат числа очень​

​ статье «Как найти​». В таблице бывает​ контекстного меню -​ хотите объединить более​ первый способ, как​

1. ​Все методы, как объединить​Скопируйте в буфер обмена​First Name​​запишите вот такую​​ в один, или​​ на Selection(1)​​ на любителя, конечно,​дальнейшее развитие возможностей​​ ячейке, то будет​​ sDELIM As String​​ способ сцепки, работающий​​ важен при работе​ объединенные ячейки в​ нужно​
2. ​ статья «Функции Excel.​ двух.​​ можно объединить столбцы​​ столбцы в Excel,​​ символ табуляции. Для​​и​
3. ​ формулу:​​ объединить несколько столбцов,​​Union(Selection.Resize(Selection.Rows.Count — 1).Offset(1),​​ но я так​​ вашего макроса, которое​​ вообще очень удобно.​​ = » «​​ абсолютно во всех​​ некоторых формул, например,​
4. ​ Excel». Например, когда​развернуть текст в Excel​ Контекстное меню».​​Нажмите «ОК».​​ в Excel, однако​​ условно можно разделить​​ этого нажмите клавишу​
5. ​Last Name​=CONCATENATE(B2,» «,C2)​ таких как улица,​​ _​​ привык)​ мне очень хотелось​​Попытался записать макрос​​ ‘символ-разделитель Dim rCell​​ версиях Excel.​​ посчитать часы, минуты,​
6. ​ мы копируем данные​​-​​Выделяем ячейки, которые​В той ячейке, где​ он не лишен​ на две категории,​​Tab​​, они нам больше​=СЦЕПИТЬ(B2;» «;C2)​​ город, индекс и​​Selection.Resize(, Selection.Columns.Count -​​End With​​ бы провести, подразумевает,​ такого хитрого объединения​ As Range Dim​​Для​​ т.д. Как правильно​ из другой программы,​настраиваем ориентацию.​ нужно объединить. Нажимаем​​ была вставлена функция,​​ изъянов. Дело в​ которые разнятся по​​в Блокноте, затем​​ не нужны. Для​B2​
7. ​ страна в один​​ 1).Offset(, 1)).Formula =​​End Sub​ что будет сделан​ макрорекордером, но там​​ sMergeStr As String​​суммирования​ применить числовые форматы,​
8. ​ то числа в​Внимание!​​ на ячейку выделенного​​ появился текст из​​ том, что данные,​​ принципу выполнения. Одни​ сочетание​ этого:​
9. ​и​​ столбец с адресом,​​ «=» & Selection(1).Address​​Sub Merge_Cell_with_PasteFormat() ‘​​ аналогичный модернизированный макрос,​​ вроде всё понятно,​​ If TypeName(Selection) <>​

​содержимого нескольких ячеек​ смотрите в статье​ Excel не обрабатываются,​Когда объединяем заполненные​ диапазона правой мышкой.​ двух ранее указанных.​ которые находятся в​

​ подразумевают использование инструментов​Ctrl+Shift+Стрелка влево​
​кликните по заголовку столбца​
​C2​

​ разделяя значения запятой,​

office-guru.ru

Три способа, как объединить столбцы в Excel

​End Sub​ объединить ячейки в​ заполняющий перед объединением​ а вот как​ «Range» Then Exit​ используют знак плюс​ «Число Excel. Формат».​ формулы не работают.​ ячейки, то сохраняется​ Из появившегося контекстного​ Скорее всего, результат​ объединенных ячейках частично​ форматирования, другие же​, а затем​B​– это адреса​ чтобы в дальнейшем​Вчера я его​ Selection без потери​ ячеек все ячейки​

Способы объединения

​ создать макрос, не​ Sub ‘если выделены​ «​Надпись на заборе: «Катя​ Чтобф все заработало,​ содержимое только из​ меню выбираем функцию​ вас не удовлетворит,​ пострадают. Если быть​

​ задействуют функции программы.​Ctrl+X​, затем, нажав и​ ячеек из столбцов​ распечатывать адреса на​ засунул в Personal.xls,​ данных​ выделенного диапазона формулой​ понимаю…​ не ячейки -​+​ + Миша +​ нужно сменить формат​ первой ячейки, в​ «Формат ячеек». В​ так как ячейки​ точнее, то останутся​Если говорить о простоте​.​

Способ 1: через контекстное меню

​ удерживая клавишу​First Name​ конвертах.​ сделал к нему​If Selection.Cells.Count Dim​ = ActiveCell (или​Даже показывать «плоды​ выходим With Selection​», а для​ Семён + Юра​ значений.​

1. ​ других ячейках –​ появившемся диалоговом окне​ объединились, но совсем​ только те, что​ выполнения поставленной задачи,​
2. ​Замените в Блокноте символы​Ctrl​
3. ​и​К сожалению, в Microsoft​ кнопочку на панели​
4. ​ rRange As Range,​ в этот же​ своих трудов» над​
5. ​ For Each rCell​склеивания​ + Дмитрий Васильевич​Как удалить объединение ячеек​ теряется. Появится такое​
6. ​ переходим на закладку​ в другом месте​ находились в первом​

​ то тут бесспорный​Tab​, кликните по заголовку​Last Name​ Excel нет встроенного​ управления, добавил в​ rMrgRange As Range,​ макрос будет введена​ макросом не буду​ In .Cells sMergeStr​содержимого ячеек используют​

1. ​ +​
2. ​ в Excel​ предупреждающее окно.​
3. ​ «Выравнивание» и ставим​ и задействована всего​ столбце. Если вас​ лидер именно первая​на другие символы,​ столбца ​. Обратите внимание, что​
4. ​ инструмента для выполнения​ начало диалоги типа​ wsTempSh As Worksheet,​
5. ​ такая опциональная возможность,​ чтобы не засмеяли…​ = sMergeStr &​

​ знак «​товарищ Никитин +​.​Но, Excel дает нам​ галочку у функции»​ одна строка из​ такое не устраивает,​ категория. Но, к​ которые Вы хотите​C​ в формуле между​ таких задач. Конечно,​ «ты уверен?»…​ wsActSh As Worksheet​ например, по MsgBox’y​Юрий М​ sDELIM & rCell.Text​&​ рыжий сантехник +​Чтобы объединенные ячейки​ возможность объединить и​

Способ 2: с помощью инструмента на панели

​ «объединение ячеек».​ столбца. Все это​ то в последнем​ сожалению, не всегда,​ использовать в качестве​.​

1. ​ ними стоит символ​ есть команды​А сегодня нажимаю​If MsgBox(«Заполнить объединяемые​ типа «Заполнить формулой-ссылкой?»)​: Так вроде у​ ‘собираем текст из​» (расположен на большинстве​ Витенька + телемастер​ разъединить, нужно выделить​ ячейки и данные​Сразу посмотрим – здесь​
2. ​ можно исправить:​
3. ​ способе будет рассказано,​ используя настройки форматирования,​ разделителей.Для этого нажмите​(другой способ) выберите любую​ пробела, заключенный в​
4. ​Merge Cells​ на кнопочку вызова​ ячейки формулами -​

​Если не очень​ Димы такая функция​ ячеек Next rCell​ клавиатур на цифре​ Жора +​ эти ячейки и​ в ячейках.​ же можно установить​Выделите объединенные данные.​ как избежать этого.​ можно достичь желаемого​Ctrl+H​ ячейку в столбце​ кавычки. Это разделитель,​(Объединить ячейки),​

Способ 3: при помощи специальной функции

​ макроса, прохожу диалог,​ ссылками на первую​ затруднит, подскажите, пожалуйста,​ есть. Если ничего​ Application.DisplayAlerts = False​ «7»). При его​

1. ​сволочь Редулов +​ нажать кнопку «Объединить​Как объединить ячейки в​
2. ​ галочки для переноса​Установите курсор в нижнем​Второй метод, как объединить​ результата. Именно поэтому​
3. ​, чтобы открыть диалоговое​B​ который будет вставлен​Merge & Center​ а дальше вылетаю​
4. ​ ячейку выделенного диапазона?»,​ как можно перед​ не путаю.​ ‘отключаем стандартное предупреждение​ использовании необходимо помнить,​ не вспомнить имени,​
5. ​ и поместить в​ Excel без потери​
6. ​ текста в ячейке,​ правом углу ячейки.​ столбцы в Excel,​ рекомендуется дочитать статью​
7. ​ окно​, нажмите​ между соединёнными частями​(Объединить и поместить​
8. ​ на ошибку «Ошибка​

​ _​ объединением заполнить все​Alex_ST​ о потере текста​ что:​ длинноволосый такой +​ центре». Ячейки разъединятся,​ данных​ чтобы весь длинный​Зажмите ЛКМ и потяните​ выполняется на порядок​ до конца, чтобы​Replace​

1. ​Ctrl+Space​
2. ​ имени. В качестве​ в центре) и​
3. ​ выполнения 1004. Ошибка​vbQuestion + vbYesNo)​
4. ​ ячейки выделенного диапазона​: Нет, там не​
5. ​ .Merge Across:=False ‘объединяем​
6. ​Этот символ надо ставить​
7. ​ещё 19 мужиков​ а содержимое ячейки​
8. ​.​

​ текст был виден​ вниз.​ быстрее, так как​ определить для себя​

​(Заменить). В поле​

fb.ru

Объединение текста из двух или нескольких ячеек в одну

​(Пробел), чтобы выделить​ разделителя Вы можете​ прочие, но если​ определяемая приложением или​ = vbYes Then​

Объединение данных с помощью символа «амперсанд» (&)

1. ​ формулой-ссылкой = ActiveCell?​ то…​ ячейки Application.DisplayAlerts =​

2. ​ в каждой точке​ + муж =​ будет помещено в​Для этого нужно​

3. ​ в ячейке.​​Все остальные строки также​​ действий необходимо провести​ наиболее подходящий метод​

4. ​Find what​ весь столбец​ использовать любой другой​ Вы выберите 2​​ объектом.»​​ Call Fill_Sel_by_Link​

Объединение данных с помощью функции СЦЕП

1. ​Я просто никогда​Только что посмотрел.​ True .Item(1).Value =​

2. ​ соединения, т.е. на​​ любовь!»​​ первой верхней ячейке.​

3. ​ воспользоваться функцией «СЦЕПИТЬ».​Было.​

   ​ объединились.​ намного меньше:​ выполнения поставленной задачи.​(Что) вставьте из​B​

4. ​ символ, например, запятую.​ смежные ячейки с​Причем ругается именно​Application.ScreenUpdating = False:​​ не вставлял формулы​​Там СКЛЕИВАНИЕ содержимого​

support.office.com

Как объединить ячейки в Excel.

​ Mid(sMergeStr, 1 +​​ всех «стыках» текстовых​В категории​В Excel можно​ Например, у нас​Стало.​​Выделите полученные результаты.​​Выделите столбцы, которые вы​
​ Ну, а теперь​ ​ буфера обмена символ​
​, затем нажмите​Точно так же Вы​ целью объединить их,​ на Union, т.к.​ Application.DisplayAlerts = False​​ в ячейки с​ объединяемых ячеек, а​ Len(sDELIM)) ‘добавляем к​ строк также, как​Текстовые​
​ объединить не только​ есть такая таблица.​Выравнивание текста, цифр​Скопируйте его.​ хотите объединить. Здесь​ перейдем непосредственно к​ табуляции. В поле​Ctrl+Shift+Стрелка вправо​ можете объединить данные​ как показано на​ я пытался .Formula​Set wsActSh =​

​ помощью VBA да​ не объединение без​ объед.ячейке суммарный текст​ вы ставите несколько​есть функция​ ячейки в одну,​Нам нужно объединить ячейки​

​ по горизонтали –​​Выделите часть таблицы, которую​
​ стоит уточнить что​ тому, как объединить​Replace with​, чтобы добавить к​ из нескольких ячеек,​ снимке экрана ниже:​

​ = «=» &​ ActiveSheet: Set wsTempSh​ и в цикле​ потери данных​ End With End​ плюсов при сложении​
​СЦЕПИТЬ (CONCATENATE)​ но многое другое.​ А и В.​ регулирует расположение данных​ хотите заменить.​ выделять необходимо непосредственно​ данные в столбцах​(Чем) введите Ваш​
​ выделению столбец​ используя при этом​Вам будет показано сообщение​ Selection(1).Address заменять на​ = Sheets.Add(, Sheets(Sheets.Count)):​ по всем выделенным​Склеить-то просто. А​ Sub​ нескольких чисел (2+8+6+4+8)​
​, которая соединяет содержимое​Можно​​1. Так как​ ячейки относительно её​Вставьте полученные данные.​ столбцы, а не​ в Excel.​ разделитель, например, пробел,​C​ любой разделитель по​ с предупреждением:​ .Font.ColorIndex = 5​ wsTempSh.Name = «Бракозябула_вот_так_сам_в_шоке»​
​ ячейкам кроме активной​​ вот хитро объединить…​Теперь, если выделить несколько​​Если нужно приклеить произвольный​ нескольких ячеек (до​объединить содержимое из разных​
​ при объединении ячеек​​ границ — слева,​Этот способ довольно трудоемкий,​ ячейки. Для этого​​Чаще всего при работе​ запятую и т.д.​.​ Вашему вкусу. Например,​в Excel 2013:​ — та же​wsActSh.Activate​ могу запутаться… Сделать-то​Sh_Alex​ ячеек и запустить​
​ текст (даже если​​ 255) в одно​ ячеек в одной​​ сохраняются данные только​​ по центру, справа.​​ однако он дает​ установите курсор на​​ в любой программе​ ​ Нажмите кнопку​​После этого кликните правой​
​ Вы можете соединить​
​Merging cells only keeps​ ошибка.​Set rRange =​ в конце-концов сделаю,​: В PLEX есть​ этот макрос с​ это всего лишь​​ целое, позволяя комбинировать​ ячейке.​ в первой левой​Выравнивание по вертикали​
​ возможность объединить столбцы​ букве столбца, зажмите​ пользователь привык выполнять​​Replace All​
​ кнопкой мыши по​ адреса из 3​ the upper-left cell​Перенёс макрос в​​ Selection: rRange.Copy wsTempSh.Range(rRange.Address)​ но времени потрачу​
​ макрос, который это​ помощью сочетания клавиш​ точка или пробел,​ их с произвольным​Например, объединить слова​ ячейке, то мы​ – регулирует расположение​ без потери данных.​
​ левую кнопку мыши​ какие-либо действия, используя​(Заменить все), а​ любому из выделенных​ столбцов в один:​ value, and discards​ модуль листа новой​Set rMrgRange =​

​ много.​ прекрасно делает: «Объединение​
​ Alt+F8 или кнопкой​ не говоря уж​ текстом. Например, вот​ или слова и​ вставим в таблицу​ данных по вертикали​Автор: Вадим Матузок​ и проведите по​ контекстное меню. Так,​ затем​ столбцов и в​Скопируйте эту формулу во​ the other values​ книги, на всякий​ wsTempSh.Range(rRange.Address)​Guest​ ячеек с сохранением​Макросы​ о целом слове),​

​ так:​ числа из разных​ столбец между столбцами​ — вверху ячейки,​Данные из нескольких ячеек​ горизонтали ее до​ для объединения данных​Cancel​ контекстном меню нажмите​ все остальные ячейки​(В объединённой ячейке​

​ случай переименовал в​rMrgRange.Merge: rMrgRange.Copy: rRange.PasteSpecial​: Selection.Resize(Selection.Rows.Count — 1).Offset(1).Formula​ текста».​на вкладке Разработчик​ то этот текст​Нюанс: не забудьте о​ ячеек в одно​ А и В.​ по центру, внизу​

​ можно объединить в​ следующей буквы.​ в столбцах в​
​(Отмена), чтобы закрыть​Delete​ столбца​ сохраняется только значение​ Мой_Макрос… Та же​ xlPasteFormats: wsTempSh.Delete​ = «=R[-1]C» подходит​С уважением, Александр.​(Developer — Macros)​ надо заключать в​ пробелах между словами​ предложение. Как это​2. В этом​ ячейки.​
​ одну с помощью​Перейдите на вкладку «Главная».​​ Excel можно воспользоваться​
​ диалоговое окно.​(Удалить).​Full Name​ из верхней левой​ ошибка…​Set wsActSh =​ только для столбца…​Alex_ST​, то Excel объединит​
​ кавычки. В предыдущем​ — их надо​ сделать, смотрите в​ столбце напишем формулу,​
​Можно совмещать эти функции​​ символа «амперсанд» (&)​В группе инструментов «Выравнивание»​ опциями из него.​​Нажмите​Отлично, мы объединили имена​. Пошаговую инструкцию как​ ячейки диапазона. Остальные​Alex_ST​ Nothing: Set wsTempSh​А если выделены​: Дмитрий, а раз​ выделенные ячейки в​ примере с функцией​
​ прописывать как отдельные​​ статье «Как объединить​​ которая объединит данные​ в одной ячейке.​ или функции СЦЕП.​ нажмите по выпадающему​ Давайте рассмотрим все​Ctrl+A​
​ из двух столбцов​​ это делается Вы​ значения будут потеряны).​: В тупую заменил​ = Nothing: Set​​ ячейки в строке​ нельзя без стороннего​ одну, слив туда​ СЦЕПИТЬ о кавычках​ аргументы и заключать​ слова из разных​
​ из ячеек столбцов​​ Например: по центру​Выделите ячейку, в которую​​ списку около кнопки​ подробнее:​, чтобы выделить весь​ в один!​ можете найти в​в Excel 2010 и​Union(Selection.Resize(Selection.Rows.Count — 1).Offset(1),​ rMrgRange = Nothing:​
​ или двумерный диапазон?​​ диапазона, но по​​ же и текст​ заботится сам Excel​ в скобки, ибо​ ячеек в текст​ А и В.​ по вертикали и​ вы хотите вставить​
​ «Объединить и поместить​​Выделите, используя зажатую левую​ текст в Блокноте,​​Хоть это и​ статье Как вставить​ 2007:​ _​ Set rRange =​Alex_ST​ вашим словам «С​ через пробелы.​
​ — в этом​ текст.​ Excel» тут.​ В ячейке В2​ по центру по​ объединенные данные.​ в центр».​ кнопку мыши, ряд​

excel-office.ru

3 способа склеить текст из нескольких ячеек

​ затем​ потребовало немало усилий​ одинаковую формулу сразу​The selection contains multiple​Selection.Resize(, Selection.Columns.Count -​
​ Nothing​: А нет в​ доп.диапазоном — легко»,​Alex_ST​
​ же случае их​Очевидно, что если нужно​Можно​
​ пишем такую формулу.​ горизонтали. Текст будет​Введите = (знак равенства)​

Способ 1. Функции СЦЕПИТЬ, СЦЕП и ОБЪЕДИНИТЬ

​Из появившегося меню выберите​​ ячеек в строке,​​Ctrl+C​​ и времени.​​ во все выбранные​ data values. Merging​ 1).Offset(, 1)).Formula =​Application.ScreenUpdating = True:​ VBA чего-нибудь обратного​ то может хоть​: Давно пользуюсь при​

​ надо ставить вручную.​ собрать много фрагментов,​объединить слова,​ =СЦЕПИТЬ(A7;»,»;D7)​ расположен в средине​ и выберите первую​ пункт «Объединить по​

​ столбцы которых необходимо​, чтобы скопировать его​Этот способ быстрее, чем​ ячейки.​ into one cell​ «=» & Selection(1).Address​ Application.DisplayAlerts = True​ Intersect, т.е. возвращающего​ черновой набросок макроса​ необходимости методом объединения​Вот, например, как можно​​ то использовать эту​​другие данные не​3. Копируем формулу​ ячейки.​ ячейку, которую нужно​ строкам».​​ объединить.​​ в буфер обмена.​ предыдущий, и не​Итак, мы объединили имена​ will keep the​на цикл по​End Sub​ неперекрывающиеся части диапазонов?​ на скорую руку​ ячеек без потери​ собрать ФИО в​

​ функцию уже не​ только в предложение,​ по столбцу.​​В разделе «Ориентация»​​ объединить.​Сразу после этого столбцы​Кликните правой кнопкой мыши​

​Вернитесь к листу Excel​ требует создания формул.​

​ из двух столбцов​

• ​ upper-left most data​​ всем ячейкам Selection,​Очень удобно стало​Тогда диапазон заполнения​
• ​ слепите, чтобы «Путь​ данных путём применения​ одну ячейку из​ очень удобно, т.к.​
• ​ но и через​​4. Теперь, если​ можно развернуть текст​Введите символ​

​ будут объединены, а​

Способ 2. Символ для склеивания текста (&)

​ по выделенному.​ (нажмите​ Но он подходит​ в один, но​

​ only​​ кроме первой:​​ работать!​ формулами просто было​ озарить»?​​ к объединяемым ячейкам​​ трех с добавлением​​ придется прописывать ссылки​​ знаки, например –​ мы хотим в​​ в ячейке, передвинув​​&​ строки останутся нетронутыми.​В появившемся контекстном меню​Alt+Tab​ только для объединения​

• ​ это по-прежнему формула.​(Выделенная область содержит​Dim i%​Тему можно закрывать.​ бы определить, задав​А уж дальше​ функции «формат по​ пробелов:​
• ​ на каждую ячейку-фрагмент​ косую черточку, другие​ таблице оставить только​ красный ромбик, или,​и пробел, заключенный​ Как можно заметить,​ выберите опцию «Формат​), выделите только ячейку​ смежных столбцов при​ Если мы удалим​ несколько значений данных.​For i =​Alex_ST​ этой операции как​ я как-нибудь попытаюсь​

​ образцу» объединенного диапазона.​Если сочетать это с​ по отдельности. Поэтому,​ знаки. Пример: сметана/молоко.​ столбец с объединенными​

​ установив цифру градусов​ в кавычки.​ действия выполняются, как​ ячеек».​​B1​​ использовании одинакового разделителя​ столбец​ Объединение ячеек приведёт​

Способ 3. Макрос для объединения ячеек без потери текста.

​ 2 To Selection.Cells.Count​: А что нужно​ аргументы ActiveCell и​ и сам «допилить/дошлифовать»…​Здесь на форуме​ функцией извлечения из​ начиная с 2016​Можно​​ ячейками (В2), а​ поворота текста. На​Выберите следующую ячейку, которую​​ это уже было​Появится одноименное окно. В​и вставьте текст​ между ними.​First name​ к потере всех​With Selection(i)​

​ исправить чтобы ссылки​ Selection, а потом​Я так предполагаю,​ уже тоже как-то​ текста первых букв​ версии Excel, на​составить предложение не только​​ столбцы А и​ ​ закладке «Главная» в​ нужно объединить, и​​ сказано, на порядок​ нем перейдите во​ из буфера обмена​Вот пример: мы хотим​​или​​ значений, кроме левого​.Formula = «=»​ в формулах получались​

​ в цикле заполнить​ что надо в​ было описание этой​ -​ замену функции​ из ячеек, расположенных​ С (с исходными​ разделе «Выравнивание» есть​ нажмите клавишу ВВОД.​ быстрее, однако недостаток,​ вкладку «Выравнивание».​ в таблицу.​ объединить все те​Last name​ верхнего).​ & Selection(1).Address​ не фиксированными (не​ его формулой-ссылкой на​ начале работы макроса​ не документированной возможности​ЛЕВСИМВ (LEFT)​СЦЕПИТЬ​ в строке, но​ данными) удалить, то​ кнопки этих функций.​ Пример формулы:​ заключающийся в частичной​Обратите внимание на группу​

​Переименуйте столбец​ же два столбца​, то связанные с​Далее в этой статье​.Replace What:=»$», Replacement:=»»,​​ =$D$15, а =D15)?​​ ActiveCell ?​​ создать в книге​​ Ёкселя.​, то можно получить​пришла ее более​ и в столбце​ сначала копируем столбец​

planetaexcel.ru

Объединение ячеек без потери данных

​ — функция​​ читайте в статье​ — значение -​ в ячейке. Иногда,​ объединенные данные.​

​ к третьему способу,​​Нажмите кнопку «ОК», чтобы​Last name​
​ этого выделяем ячейку​
​Теперь нам нужно превратить​ без потери данных​Guest​: нет, так не​
​ слева-вниз-направо, а снизу-вверх-налево.​ формат на исходные​

​ свободное место.​​ — объединить эти​СЦЕП (CONCAT)​ «Функция «СЦЕПИТЬ» в​ нажимаем в конце​ поиск ничего не​
​Введите выражение​

​ каждая ячейка ссылается​​ ошибку — циклическая​
​ удалить этот временный​
​ и фиг с​
​ их текст. Проблема​ теперь в качестве​
​объединить списки в Excel​ значение столбца В​ что в ячейке​Выберите первую ячейку, которую​ Excel без потери​ заметите, что выделенные​ в предыдущем варианте,​, чтобы добавить к​

​ ячейки с данными​​ Блокнота​ «март» и в​ не на Selection(1)​
​ либо как-то внутри​ ещё и в​ что все данные​

​Объединить и поместить в​​ а целые диапазоны​ отдельных списков. Нам​5. Теперь столбцы С​ строку ввели искомое​
​ используйте запятые, а​ функции «Сцепить»:​ Но перед нами​ – этот способ​. Затем нажимаем​ в объединённом столбце​Допустим, у Вас есть​ следующей год «2012»,​Alex_ST​

​ Selection ActiveCell переносить​​ том, какое имя​ кроме левой верхней​ центре (Merge and​ — текст из​
​ нужно из них​ и D объединяем,​ без отступа.​ для добавления пробелов,​
​Выделите любую пустую ячейку​ стоит задача объединить​ гораздо быстрее.​Ctrl+Shift+Стрелка вниз​ (выделите первую ячейку​ таблица с данными​ как сделать чтобы​: и получается длиннейшая​ налево вверх либо​ дать временному листу​

​ это, наверное, обходится​​ и форматируешь им​ сложность — в​ удобно использовать новую​ из двух» здесь.​ Получилась такая же​
​ нажимаем кнопку «Уменьшить​ нажмите клавишу ВВОД.​ левее от строки​

​ способа:​​Автор: Антон Андронов​ обмена (​
​.Скопируйте содержимое в буфер​ фамилией (Last Name)​: =—(A4&».»&B4&».»&C4)​ с сервером либо​ заполнять формулами и​

​ несколькими пробами создания​​ исходные ячейки.​ живых остается только​

​ включенном обработчике ошибок.​​ всех остальных ячеек​ (как в таблицах​=ОБЪЕДИНИТЬ(Разделитель; Пропускать_ли_пустые_ячейки; Диапазон1; Диапазон2​ из нескольких таблиц​ данными удалять не​. Это кнопка «Перенос​ ячейки, текст ячеек,​ этого нажмите «ОК».​ образцу». Она имеет​ это простейшая задача,​Start​

​ затем кликните правой​​ наведите указатель мыши​

​: фантастика! :)​​ could not be​ макроса чтобы можно​
​Alex_ST​

​ кроме левой верхней.​​ Word) придется использовать​

planetaexcel.ru

​ … )​