Как объединить столбцы в Excel используя макрос
Многократное объединение отдельных групп ячеек в столбцах вручную – требует много времени и сил. Поэтому рационально будет воспользоваться макросом, который автоматически выполнит всю эту, плюс еще и дополнительную работу.
Как объединить 2 и несколько столбцов в таблице Excel
Допустим, что мы имеем таблицу содержащую данные оп договорам и выставленных на их основе счетов. Данные по договорам находиться в столбцах D, E и F, но некоторые фактуры взяты с других подчиненных документов, а не из договора. Для таких случаев в столбце D указывается номер договора или описание подчиненного документа для каждой фактуры.
Нам необходимо объединить ячейки в этих трех столбцах (D, E и F) таким образом, чтобы для каждой строки где нет договоров была одна объединенная ячейка.
Откроем редактор Visual Basic (ALT+F11):
И вставим новый стандартный модуль используя инструмент в редакторе: «Insert»-«Module». А после чего запишем в модуль VBA код макроса для объединения ячеек столбцов по горизонтали:
Sub ObedinitGorizontal()
Dim i As Long
Dim j As Long
Dim savetext As String
Application.
DisplayAlerts = False
For i = 1 To Selection.Rows.Count
savetext = Selection.Cells(i, 1)
For j = 2 To Selection.Columns.Count
savetext = savetext & Chr(32) & Selection.Cells(i, j)
Next
Selection.Rows(i).Merge
Selection.Cells(i, 1) = savetext
Selection.Cells(i, 1).HorizontalAlignment = xlHAlignCenter
Next
Application.DisplayAlerts = True
End Sub
В первом цикле данного кода выполняется прогон по отдельных строках выделенного диапазона, а во втором объединяться значения столбцов в Excel. Тексты между собой разделяться символом пробела, его код в таблице символом ASCII имеет номер 32.
В конце выполнения первого цикла VBA кода мы изменяем свойство HorizontalAlignment для объединенной ячейки, что позволяет выровнять текст по центру с помощью макроса.
Если мы хотим объединить ячейки в строках содержащих информацию о выставленных счетах без подчиненных договоров, выделяем диапазон ячеек D5:F7 и запускаем наш макрос: «РАЗРАБОТЧИК»-«Код»-«Макросы».
Внимание! Если объединяемые ячейки будут содержать формулы, то они могут быть утеряны так как в процессе объединения формулы преобразуются в интерпретированный текст.
Модификация и настройка кода макроса
Если мы хотим разделять тексты не пробелом, а вертикальной линией, тогда нужно просто изменить ASCII код в аргументе функции Chr() на 124:
savetext = savetext & Chr(124) & Selection.Cells(i, j)
Если в объединенных ячейках мы хотим вставлять только тексты из первого столбца (D), без текстов, записанных в остальных двух столбцах E и F тогда удалите или закомментируйте переменную j и код второго цикла:
Как объединить ячейки по столбцам в Excel
Если мы хотим выполнить макрос одновременно и сразу для нескольких выделенных диапазонов ячеек (с помощью удержания клавиши CTRL на клавиатуре), добавим еще одну переменную:
Dim k As Long
Перед первым циклом добавим строку для начала нового цикла прохода по всех выделенных диапазонах:
For k = 1 To Selection.
Areas.Count
В конце первого цикла не забудьте добавить конце для нового цикла:
Next
Кроме этого для всех элементов объекта Selection следует добавить ссылку на диапазон: Selection.Areas(k). Полная версия VBA кода модифицированного макроса выглядит следующим образом:
Sub ObedinitGorizontal()
Dim i As Long
Dim j As Long
Dim k As Long
Dim savetext As String
Application.DisplayAlerts = False
For k = 1 To Selection.Areas.Count
For i = 1 To Selection.Areas(k).Rows.Count
savetext = Selection.Areas(k).Cells(i, 1)
For j = 2 To Selection.Areas(k).Columns.Count
savetext = savetext & Chr(32) & Selection.Areas(k).Cells(i, j)
Next
Selection.Areas(k).Rows(i).Merge
Selection.Areas(k).Cells(i, 1) = savetext
Selection.Areas(k).Cells(i, 1).HorizontalAlignment = xlHAlignCenter
Next
Next
Application.DisplayAlerts = True
End Sub
Читайте также: Как разъединить объединенные ячейки в Excel используя макрос.
Если хотите узнать как объединить строки в Excel, читайте статью: макрос для объединения строк в таблице.
Если бы мы не изменили код, то даже при многократном выделении диапазонов с нажатой клавишей CTRL все строки объединились бы в одну ячейку, что не есть хорошо.
Как объединить и разъединить ячейки в Microsoft Excel
Если вы хотите создать заголовок, охватывающий столбцы или строки, вы можете объединить ячейки Excel, чтобы легко сделать это в своей электронной таблице.
Программы для Windows, мобильные приложения, игры — ВСЁ БЕСПЛАТНО, в нашем закрытом телеграмм канале — Подписывайтесь:)
Объединение ячеек в Microsoft Excel — удобный способ создать заголовок столбца, охватывающий несколько столбцов. То же самое можно сказать и о строках, особенно когда вы также поворачиваете текст. Хотя могут быть и другие варианты использования объединенных ячеек, это, безусловно, одно из наиболее распространенных.
Если вы никогда не объединяли ячейки в электронной таблице Excel, вам поможет groovyPost! Мы расскажем, как объединить ячейки в одну, а затем разъединить их, если вы передумаете.
Как объединить ячейки в Excel
Откройте книгу Excel для электронной таблицы, с которой хотите работать, и выполните следующие действия, чтобы объединить ячейки.
Имейте в виду, что данные верхней левой или крайней левой ячейки останутся, но любые данные в других ячейках, которые вы объединяете, будут удалены. Таким образом, вам может потребоваться отрегулировать содержимое перед объединением.
- Выделите ячейки, которые хотите объединить в одну. Вы можете выбрать столько ячеек, сколько хотите, и размер объединенной ячейки будет соответствовать этой комбинации ячеек. Только убедитесь, что ячейки смежные.
- Перейти к Дом вкладку, а затем раздел ленты «Выравнивание».
- Щелкните значок стрела сразу после Слияние и центр кнопку, чтобы увидеть ваши варианты. Если вы нажмете кнопку, это объединит и центрирует ячейки, что является только одним из ваших вариантов.
- Выберите «Объединить и центрировать», «Объединить поперек» или «Объединить ячейки».

- Слияние и центр объединяет ячейки в одну с центрированным содержимым.
- Слияние через объединяет ячейки подряд в одну ячейку без центрирования.
- Объединить ячейки объединить ячейки без центрирования и полезны для объединения блока ячеек.
Альтернативный метод
Другой способ объединить ячейки без центрирования — использовать окно «Формат ячеек». Это действие применяет упомянутую выше простую опцию «Объединить ячейки».
- Выделите ячейки, которые хотите объединить.
- Щелкните правой кнопкой мыши и выберите Формат ячеек.
- В открывшемся окне выберите Выравнивание таб.
- Установите флажок под Text Control для Объединить ячейки.
- Нажмите ОК.
Если вы не изменили данные перед началом процесса слияния, вы получите предупреждающее сообщение. Это напоминает вам, что некоторые данные будут удалены, поэтому вы можете изменить содержимое ячейки, прежде чем продолжить.
Нажмите ОК принять удаление данных или Отмена чтобы скорректировать данные, а затем объединить ячейки.
Как только вы закончите, вы можете отформатировать ячейку, как любую другую. Отрегулируйте форматирование или размер шрифта, используйте цвет заливки или примените границу.
Как разделить ячейки в Excel
Если вы объедините ячейки одним из описанных выше методов, а затем решите их разъединить, процесс будет прост. Просто помните, что вы можете разъединить только те ячейки, которые Был слился. Вы не можете использовать этот процесс для разделения отдельной ячейки на несколько ячеек.
- Выберите объединенную ячейку и вернитесь к Дом таб.
- В разделе ленты «Выравнивание» щелкните значок стрела сразу после Слияние и центр кнопка.
- Выбирать Разъединить ячейки из списка.
Слияние с целью в Microsoft Excel
Как уже упоминалось, слияние ячеек удобно для таких вещей, как заголовки столбцов.
У вас может быть несколько столбцов, которые вы хотите пометить вместе, как на нашем предыдущем скриншоте, и эта функция — способ сделать это.
Для получения дополнительной помощи посмотрите, как разбить данные Excel на несколько столбцов или как заблокировать определенные ячейки, строки или столбцы на листах Excel.
У вас есть такие советы по Excel? Поделитесь с нами своими предложениями на Твиттер.
Программы для Windows, мобильные приложения, игры — ВСЁ БЕСПЛАТНО, в нашем закрытом телеграмм канале — Подписывайтесь:)
Как с помощью Microsoft Excel объединить два столбца данных и удалить повторяющиеся значения? | Small Business
C. Taylor
В Excel 2013 может потребоваться объединить два столбца данных в двух ситуациях. Если вы импортировали два столбца данных из разных источников, вы можете объединить их в один один столбец без связывания самих значений. После объединения вы должны проверить наличие дубликатов, которые существовали в каждом источнике.
Кроме того, вы можете объединить значения выровненных ячеек, например, объединить имя и фамилию, а затем найти дубликаты на основе объединенных данных.
Создание одного длинного столбца
Щелкните первую ячейку данных во втором столбце, чтобы выбрать ее.
Нажмите «Ctrl-Shift-стрелка вниз», чтобы выделить все данные в этом столбце. Если в данных есть пробелы, вам может потребоваться нажать комбинацию клавиш несколько раз, чтобы выбрать все это.
Нажмите «Ctrl-X», чтобы вырезать ячейки.
Щелкните сразу под последней ячейкой данных в первом столбце.
Нажмите «Ctrl-V», чтобы переместить данные второго столбца в конец первого столбца.
Объединение значений
Щелкните правой кнопкой мыши заголовок столбца справа от второго столбца и выберите «Вставить», чтобы при необходимости добавить новый столбец. Например, если данные существуют в столбцах A и B, щелкните правой кнопкой мыши заголовок столбца «C» и выберите «Вставить».

Введите данные из первых ячеек исходных двух столбцов в первую ячейку вновь созданного столбца. Например, если у вас было «Джон» в ячейке A1 и «Доу» в ячейке B1, введите «Джон Доу» или «Доу, Джон» (без кавычек здесь и далее) в ячейке C1. Порядок и пунктуация не имеют значения; Excel автоматически распознает, что вы объединяете данные, и имитирует ваш формат.
Повторите процесс для следующей строки. На этот раз Excel предлагает значение по мере ввода. Когда вы увидите предложение, нажмите «Ввод», чтобы автоматически объединить данные в обоих столбцах для каждой строки и продолжить использовать свой формат. Например, если ячейки A2 и B2 содержат «Дэвид» и «Смит» соответственно, начните вводить «Дэвид Смит» или «Смит, Дэвид» и нажмите «Ввод».
Щелкните и перетащите указатель мыши на заголовки двух исходных столбцов, щелкните правой кнопкой мыши выделение и выберите «Удалить», чтобы удалить столбцы, не затрагивая данные в объединенном столбце.

До свидания, дубликаты
Щелкните заголовок столбца, чтобы выбрать все ячейки в столбце.
Перейдите на вкладку «Данные», а затем «Удалить дубликаты».
Нажмите «Расширить выделение», если вы также хотите удалить соседние данные, или «Продолжить с текущим выбором», чтобы удалить дубликаты только в выбранном столбце. Нажмите «Удалить дубликаты». Этот параметр появляется только в том случае, если Excel обнаруживает данные рядом с выбранным столбцом.
Снимите флажки со всех столбцов, кроме столбца, содержащего консолидированные данные, и нажмите «ОК», чтобы удалить дубликаты. Нажмите «ОК» еще раз, чтобы выйти из сводки.
Ссылки
- Microsoft: объединить текст из двух или более ячеек в одну ячейку
- Microsoft: найти и удалить дубликаты
Предупреждения
- Информация в этой статье может незначительно отличаться1 или3 для Microsoft Excel 20.
значительно с другими версиями или продуктами.
Биография писателя
К. Тейлор начала профессиональную писательскую карьеру в 2009 году и часто пишет о технологиях, науке, бизнесе, финансах, боевых искусствах и природе. Он пишет как для онлайн-изданий, так и для офлайн-изданий, включая Journal of Asian Martial Arts, Samsung, Radio Shack, Motley Fool, Chron, Synonym и другие. Он получил степень магистра биологии дикой природы в Университете Клемсона и степень бакалавра искусств в области биологических наук в Колледже Чарльстона. Он также имеет несовершеннолетние в статистике, физике и изобразительном искусстве.
Объединение двух столбцов в Excel — Учебное пособие по Excel
Когда вы работаете с несколькими столбцами данных, что обычно и бывает, иногда может быть целесообразно упростить данные.
Например, объединение имени и фамилии в один столбец или объединение названия города со штатом и разделение их запятой.
Это файл, который мы собираемся использовать: MergeTwoColumnsInExcel.
xlsx.
Объединение двух столбцов с помощью формулы
Следующие шаги необходимо выполнить, чтобы объединить два столбца в один:
- Щелкните правой кнопкой мыши букву столбца C .
- Нажмите Вставьте .
- Между Фамилией и Адресом появится новый пустой столбец.
- Введите «Имя» в заголовок столбца.
- Введите эту формулу в ячейку C2 :
=A2&»»&B2
=A2&»»&B2 |
Он объединяет имя и фамилию в одну строку, разделенную пробелом. В этом случае используется оператор соединения (&).
- Автозаполнение остальных ячеек столбца.
Теперь у вас есть два объединенных столбца.
Если вы попытаетесь удалить столбцы A (Имя) и B (Фамилия), данные внутри столбца Имя вернут ошибку ссылки (#ССЫЛКА!).
Это происходит из-за того, что внутри столбца Имя отсутствуют значения, но формулы со ссылками на столбцы A и B .
Перед удалением этих двух столбцов необходимо преобразовать эти формулы в значения.
Для этого выберите ячейки от C2 до C11 .
Скопируйте их ( Ctrl + C ), щелкните правой кнопкой мыши внутри диапазона и выберите «Вставить как значения».
Теперь, если вы щелкните одну из этих ячеек, вы заметите, что здесь нет формулы, только текст.
Вы можете удалить столбцы с именем и фамилией, не вызывая ошибки ссылки.
Объединить два столбца с разделителем
Точно так же вы можете объединить названия городов и штатов, на этот раз используя разделитель. Чаще всего вы будете использовать пробел, дефис, тире, запятую. В этом примере мы собираемся использовать последний вариант.
Создайте новый столбец E и назовите его «Город».
Вставьте следующую формулу в ячейку E2 :
=C2&», «&D2
=C2&», «&D2 |
Преобразуйте ячейки в столбце E в значения, как вы делали это для имен. Удалите старые столбцы «Город» и «Штат».
Использование функции для объединения столбцов
Если вы не хотите использовать амперсанд ( & ) для соединения столбцов есть еще один вариант.
Вы можете объединить два или более столбца с помощью функции CONCAT , которая является младшим братом старшей функции CONCATENATE . Эта функция была заменена в Excel 2016, но по-прежнему присутствует в Excel 365 для обратной совместимости.
Эта функция, как следует из названия, объединяет несколько строк в одну.
Итак, эту формулу, соединяющую две строки, можно заменить формулой с помощью функции СЦЕП:
=А2&»»&В2 =СЦЕП(A2,» «,B2)
=A2&» «&B2 =CONCAT(A2,» «,B2)
|
Они работают одинаково.
=CONCAT(A2&» «,B2)
=СЦЕП (A2&» «,B2) |
Объединение столбцов с блокнотом
Иногда использование дополнительных приложений, таких как Блокнот, может быть очень полезным благодаря его простоте. Вы также можете использовать этот программный порядок для быстрого объединения столбцов, а затем вставить их в Excel.
Давайте посмотрим, как это выглядит в нашем случае.
Сначала создайте новый столбец Имя , как вы делали это раньше.
Скопируйте ячейки из столбцов A и B ( A2:B11 ).
Вставьте их в Блокнот.
Имя и фамилия разделены табуляцией. Выберите его и скопируйте.
Нажмите 
DisplayAlerts = False


значительно с другими версиями или продуктами.