Перейти к основному содержанию

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

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

Объединить пустые поля выше    
doc merge blank вверху слева 1 стрелка вправо doc merge blank вверху слева 2

 Объединить оставшиеся пробелы    
doc merge blank вверху слева 3 стрелка вправо doc merge blank вверху слева 4

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

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

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


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

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

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

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

doc merge blank вверху слева 6

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

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


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

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

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

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

doc merge blank вверху слева 10

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

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

doc merge blank вверху слева 12 стрелка вправо doc merge blank вверху слева 13

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

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

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

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

doc merge blank вверху слева 15

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

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

 Объединить оставшиеся пробелы    
doc merge blank вверху слева 3 стрелка вправо doc merge blank вверху слева 4

Объединить те же ячейки или разъединить ячейку

doc слить unmerge

Лучшие инструменты для офисной работы

Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

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

вкладка kte 201905


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you very much!
This comment was minimized by the moderator on the site
Thanks for sharing , it so useful for me.
This comment was minimized by the moderator on the site
it's not working :) Excel 365
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations