Объединение пустых ячеек в excel

Как автоматически объединить пустые ячейки выше / слева в Excel?

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

Объединить пустые ячейки выше на основе столбца

Объединить пустые ячейки выше (работает только для одного столбца)

Объединить оставшиеся пустые ячейки

Объединить пустые ячейки выше на основе столбца

Предположим, что есть диапазон данных в трех столбцах, и теперь вы хотите объединить данные выше на основе столбца C.

1. Нажмите Alt + F11кeys, чтобы включить Microsoft Visual Basic для приложений окно и щелкните Вставить > Модули. Смотрите скриншот:

2. Затем вставьте приведенный ниже код в пустой скрипт. Смотрите скриншот:

VBA: объединить пустое поле выше на основе следующего столбца

Sub MergeCells()
'UpdatebyExtendoffice2017025
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Value = "" Then
            Range(xCell, xCell.Offset(-1, 0)).Merge
        End If
    Next
End Sub

3. Нажмите F5 нажмите клавишу для запуска кода, а затем появится диалоговое окно, напоминающее вам о выборе диапазона для работы. Смотрите скриншот:

4. Нажмите OK, то пустые ячейки были объединены выше. Смотрите скриншот:

Объединить пустые ячейки выше (работает только для одного столбца)

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

1. Нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно и щелкните Вставить > Модули. Смотрите скриншот:

2. Вставьте приведенный ниже код в скрипт. Смотрите скриншот:

VBA: объединить пустые ячейки выше

Sub mergeblankswithabove()
'UpdatebyExtendoffice20171025
    Dim I As Long
    Dim xRow As Long
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range (single column):", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
        MsgBox "Only work for single column", , "KuTools For Excel"
        Exit Sub
    End If
    xRow = xRg.Rows.Count
    Set xRg = xRg(xRow)
    For I = xRow To 1 Step -1
        Set xCell = xRg.Offset(I - xRow, 0)
        Debug.Print xCell.Address
        If xCell.Value = "" Then Range(xCell, xCell.Offset(-1, 0)).Merge
    Next
End Sub

3. Нажмите F5 нажмите клавишу, чтобы запустить код, и появится диалоговое окно, в котором вы можете выбрать диапазон столбцов. Смотрите скриншот:

4. Щелкните ОК. И пустые ячейки в выделенной области были объединены выше.

Объединить оставшиеся пустые ячейки

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

1. Нажмите Alt + F11 ключи для включения Microsoft Visual Basic для окна приложений и щелкните Вставить > Модули. Смотрите скриншот:

2. Затем вставьте приведенный ниже код в пустой скрипт. Смотрите скриншот:

VBA: объединить оставшиеся пробелы

Sub mergeblankswithleft()
'UpdatebyExtendoffice20171025
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Value = "" Then Range(xCell, xCell.Offset(0, -1)).Merge
    Next
End Sub

3. Нажмите F5 нажмите клавишу для запуска кода, и появится диалоговое окно для выбора диапазона. Смотрите скриншот:

4. Нажмите OK. Пустые ячейки объединены слева.

Научитесь: Excel + Google Таблицы с нуля до PRO
Узнать больше

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

Метод 1: Кнопка «Объединить ячейки» на главной вкладке

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

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

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

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

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

Метод 2: Настройка формата ячеек

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

1. Выделите требуемые ячейки ЛКМ и щелкните по любой из них правой кнопкой мыши, вызвав тем самым контекстное меню.

2. В нем вас интересует пункт «Формат ячеек».

3. В новом окне перейдите на вкладку «Выравнивание» и активируйте галочку возле пункта «Объединение ячеек». Подтвердите изменения и закройте окно, щелкнув по «ОК».

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

Метод 3: Амперсанд или функция СЦЕПИТЬ

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

Возьму за пример простой текст, но вы можете сделать те же действия и с числами. Допустим, в трех разных ячейках находятся надписи, которые нужно слить в одной ячейке. Это может быть ФИО или любая другая информация. На следующем изображении вы видите этот пример.

1. Выберите пустую ячейку, в которой хотите соединить содержимое выбранных. Начните запись функции со знака «=» и после номера каждой ячейки добавляйте «&» (то есть знак амперсанда). По итогу должно получиться что-то типа =A14&C14&B14.

2. По завершении нажмите Enter и ознакомьтесь с результатом. На скриншоте ниже вы более наглядно видите то, как происходит соединение.

3. Добавьте после каждой ячейки двойные кавычки с пробелом, если не хотите, чтобы весь текст слился в один. Тогда функция будет выглядеть примерно так: =A14&» «&C14&» «&B14.

Еще раз повторюсь, что подобная реализация соединения особенно актуальна для ФИО или похожей информации, которую часто записывают в отдельных ячейках. Для такой функции тоже работает растяжение, поэтому вы можете записать ее только один раз, а затем увеличить на необходимый диапазон, автоматизировав объединение текста или цифр.

Осталось только понять, как работает функция СЦЕПИТЬ, по сути выполняющая практически те же действия, что и амперсанд, но с возможностью комбинирования других формул, что может пригодиться продвинутым пользователям.

1. В пустой ячейке для объединения остальных объявите функцию =СЦЕПИТЬ().

2. Впишите номера клеток, которые хотите соединить в одну, ставя знак «;» после каждой.

3. В итоге вы видите объединение без пробелов.

4. Добавьте двойные кавычки с пробелами так же, как это было показано в примере с амперсандом, если не хотите видеть слитные надписи или числа.

Как визуальное, так и функциональное соединение ячеек в Microsoft Excel понадобится практически каждому пользователю, работающему над таблицами. Запомнить описанные методы будет не так сложно, поскольку все они подразумевают выполнение всего нескольких действий. В будущем любой из них может пригодиться, и объединение клеток уже не будет для вас чем-то сложным.

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

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

У нас иметься таблица бюджета для разных отделов. Суммы распределены по месяцам. Итоговые суммы по каждому отделу взяты из других листов рабочей книги Excel, где указаны по ним данные на все месяца текущего года. Поэтому автор общей таблицы бюджета распределил названия заголовков не только по месяцам, а и по кварталам. Соответственно название квартала находиться в столбце первого месяца с которого начинается этот же квартал. За исключением первого квартала так как год уже не полный по состоянию на дату формирования отчета. Как показано ниже на рисунке:

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

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

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

Откроем редактор Visual Basic (ALT+F11):

И вставим новый модуль с помощью инструмента в редакторе: «Insert»-«Module». После запишем в модуль код VBA-макроса:

Sub JoinEmpty()
Dim i As Long
For i = 1 To Selection.Columns.Count
  If Selection.Cells(1, i) = "" Then
  ActiveSheet.Range(Selection.Cells(1, i - 1), Selection.Cells(1, i)).Merge
  End If
Next
Selection.HorizontalAlignment = xlVAlignCenter
End Sub


Теперь если нам нужно одновременно объединять диапазоны кварталов, чтобы избавиться от пустых ячеек, выделите диапазон B1:L2. После чего запустите макрос: «РАЗРАБОТЧИК»-«Код»-«Макросы»-«JoinEmpty»-«Выполнить». Ячейки объединяться в соответствии с продолжительностью каждого квартала, как на рисунке:

В данном коде цикл проходит по всем ячейкам первой строки выделенного диапазона, слева на право. Проверяется каждая из них на наличие значений. Если проверяемая ячейка не содержит никаких значений (пуста), макрос объединяет ее с предыдущей ячейкой. А если же проверяемая ячейка содержит какое-то значение, то макрос пропускает ее и переходит к проверке следующей.

В конце кода выравниваем по центру весь текст, который содержится в выделенном диапазоне задав соответствующее свойство в строке:

Selection.HorizontalAlignment = xlHAlignCenter

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



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

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

Допустим нам для последних трех отделов необходимо разбить данные на 2 полугодия. Исходный вид таблицы будет выглядеть следующим образом:

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

Dim j As Long

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

For j = 1 To Selection.Rows.Count

Так же не забудем добавить конец нового цикла:

Next

Во всех экземплярах объекта Cells, для второго аргумента вместо числа 1 введем переменную j:

Selection.Cells(i,j)

Полная версия модифицированного кода макроса:

Sub JoinEmpty()
Dim i As Long
Dim j As Long
For j = 1 To Selection.Rows.Count
  For i = 1 To Selection.Columns.Count
    If Selection.Cells(j, i) = "" Then
    ActiveSheet.Range(Selection.Cells(j, i - 1), Selection.Cells(j, i)).Merge
    End If
  Next
Next
Selection.HorizontalAlignment = xlVAlignCenter
End Sub


Теперь, нам осталось только лишь выделить диапазон B1:L12 и запустить новую версию макроса:

Читайте также: макрос для объединения пустых ячеек в столбцах таблицы Excel

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