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

doc фильтр объединенная ячейка 1

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

Отфильтровать все связанные данные из объединенных ячеек в Excel

Отфильтруйте все связанные данные из объединенных ячеек в Excel с помощью Kutools for Excel


Отфильтровать все связанные данные из объединенных ячеек в Excel

Чтобы решить эту задачу, вам необходимо шаг за шагом проделать следующие операции.

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

doc фильтр объединенная ячейка 2

2. Выберите исходную объединенную ячейку (A2: A15), а затем щелкните Главная > Объединенный и центр чтобы отменить объединенные ячейки, см. скриншоты:

doc фильтр объединенная ячейка 3

3. Сохраните статус выбора A2: A15, затем перейдите на вкладку «Главная» и нажмите Найти и выбрать > Перейти к специальному, В Перейти к специальному диалоговое окно, выберите Пробелы вариант под Выберите раздел, см. снимок экрана:

doc фильтр объединенная ячейка 4

4. Все пустые ячейки выбраны, затем введите = и нажмите Up клавишу со стрелкой на клавиатуре, а затем нажмите Ctrl + Enter клавиши, чтобы заполнить все выбранные пустые ячейки значением выше, см. снимок экрана:

doc фильтр объединенная ячейка 5

5. Затем вам нужно применить форматирование ваших вставленных объединенных ячеек на шаге 1, выбрать объединенные ячейки E2: E15 и нажать Главная > Формат Painter, см. снимок экрана:

doc фильтр объединенная ячейка 6

6. А затем перетащите Формат Painter для заполнения от A2 до A15, чтобы применить исходное объединенное форматирование к этому диапазону.

doc фильтр объединенная ячейка 7

7. Наконец, вы можете применить Фильтр функция, чтобы отфильтровать нужный элемент, нажмите Данные > Фильтр, и выберите необходимые критерии фильтрации, нажмите OK чтобы отфильтровать объединенные ячейки со всеми связанными с ними данными, см. снимок экрана:

doc фильтр объединенная ячейка 8


Отфильтруйте все связанные данные из объединенных ячеек в Excel с помощью Kutools for Excel

Вышеупомянутый метод может быть несколько трудным для вас здесь, с Kutools for Excel‘s Фильтр слияния ячеек вы можете быстро отфильтровать все относительные ячейки определенной объединенной ячейки. Нажмите, чтобы скачать Kutools for Excel! Пожалуйста, посмотрите следующую демонстрацию:

После установки Kutools for Excel, пожалуйста, сделайте так:

1. Выберите столбец, который вы хотите отфильтровать для конкретной объединенной ячейки, а затем щелкните Кутулс Плюс > Специальный фильтр > Специальный фильтр, см. снимок экрана:

doc фильтр объединенная ячейка 8

2. В Специальный фильтр диалоговое окно, выберите Формат , затем выберите Объединить ячейки из раскрывающегося списка, а затем введите текстовое значение, которое вы хотите отфильтровать, или щелкните  doc фильтр объединенная ячейка 2 для выбора нужного значения ячейки, см. снимок экрана:

doc фильтр объединенная ячейка 8

3. Затем нажмите Ok и появится окно подсказки, чтобы напомнить вам, сколько ячеек соответствует критериям, см. снимок экрана:

doc фильтр объединенная ячейка 8

4, Затем нажмите OK Кнопка, все относительные ячейки определенной объединенной ячейки были отфильтрованы, как показано на следующем снимке экрана:

doc фильтр объединенная ячейка 8

Нажмите, чтобы скачать Kutools for Excel и бесплатная пробная версия прямо сейчас!


Демонстрация: фильтрация всех связанных данных из объединенных ячеек в Excel


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

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

вкладка kte 201905


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

офисный дно

Сначала расскажем что такое объединенные ячейки в Excel и как их сделать. Тут нет ничего сложно, достаточно выделить две или более ячеек и выбрать команду на ленте Главная -> Выравнивание -> Объединить и поместить в центре.

Команда объединения ячеек

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

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

Типы объединения ячеек

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

Если внимательней посмотреть на команду объединения ячеек, то можно увидеть выпадающее меню, которое в свою очередь содержит следующие дополнительные действия:

Команды объединения ячеек

  • Объединить по строкам — позволяет выбрать диапазон ячеек, который содержит несколько строк. В этом случае Excel будет создавать объединенные ячейки по одной на каждой строке
  • Объединить ячейки — объединяет выделенные ячейки в одну, но при этом не выравнивает текст в ячейке.
  • Отменить объединение ячеек — позволяет разбить объединенную ячейку на несколько.

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

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

  • Если диапазон содержит объединенные ячейки, то пользоваться сортировкой и фильтрацией в этом диапазоне будет невозможно.
  • Также невозможно будет преобразовать такой диапазон в таблицу (форматировать как таблицу).
  • Также можно забыть об автоматическом выравнивании ширины или высоты ячейки. Например если имеется объединенная ячейка A1:B1, то выравнять ширину столбца A уже не получится.
  • Если Вы пользуетесь горячими клавишами для навигации, например переходите в начало и конец таблицы путем сочетания клавиш Ctrl + стрелка вверх и вниз, то переход не удастся, и курсор будет «упираться» в объединенные ячейки.
  • Если вы выделяете столбцы (или строки) с помощью горячих клавиш Ctrl (Shift) +Пробел, то при наличии объединенных ячеек, вы не сможете выделить 1 столбец (или строку).

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

Чтобы разъединить все ячейки и удалить объединенные, достаточно выполнить следующие действия:

  1. Выделить все ячейки на листе. Это можно сделать путем нажатия сочетания клавиш Ctrl + A или кликнуть на черный треугольник между заголовками строк и столбцов на листе.
  2. Нажать на команду Главная -> Выравнивание -> Объединить и поместить в центре если она выделена. Если же она не выделена, значит выбранный лист не содержит объединенных ячеек.

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

  1. Откройте окно Найти и заменить. Сделать это можно сочетанием клавиш Ctrl + F.
  2. Поле Найти оставьте пустым и нажмите на кнопку Параметры.
  3. Должна отобразиться кнопка Формат. Нажмите левой кнопкой мыши по ней.
    Поиск объединенных ячеек
  4. В диалоговом окне Найти формат на вкладке Выравнивание выберите опцию Объединение ячеек. Далее нажмите Ok.
    Диалоговое окноНайти формат
  5. В диалоговом окне Найти и заменить нажмите Найти далее или Найти все в зависимости от вашей дальнейшей задачи.

Альтернативы использования объединенных ячеек

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

  1. Выделите диапазон ячеек, который хотите отцентрировать. При этом сам текст должен содержаться в левой верхней ячейке.
  2. Выберите команду формат ячеек или нажмите сочетание клавиш Ctrl + 1.
  3. В диалоговом окне Формат ячеек перейдите на вкладку Выравнивание.
  4. В выпадающем списке выравнивания по горизонтали выберите значение по центру выделения и нажмите OK.
    Альтернатива объединению ячеек

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

Объединенные ячейки и фильтр в Excel

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

А нашим придуркам Excel преподносят не как программу, для анализа данных, а как программку-замену бумажным отчётам. Конечно, тут дублирование ой как мешает. Но не работает оно так, как вам хочется, блин. И не будет работать.

Как фильтровать объединенные ячейки в excel

doc фильтр объединенная ячейка 1

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

Отфильтровать все связанные данные из объединенных ячеек в Excel

Чтобы решить эту задачу, вам необходимо шаг за шагом проделать следующие операции.

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

doc фильтр объединенная ячейка 2

2. Выберите исходную объединенную ячейку (A2: A15), а затем щелкните Главная > Объединенный и центр чтобы отменить объединенные ячейки, см. скриншоты:

doc фильтр объединенная ячейка 3

3. Сохраните статус выбора A2: A15, затем перейдите на вкладку «Главная» и нажмите Найти и выбрать > Перейти к специальному, В Перейти к специальному диалоговое окно, выберите Пробелы вариант под Выберите раздел, см. снимок экрана:

doc фильтр объединенная ячейка 4

4. Все пустые ячейки выбраны, затем введите = и нажмите Up клавишу со стрелкой на клавиатуре, а затем нажмите Ctrl + Enter клавиши, чтобы заполнить все выбранные пустые ячейки значением выше, см. снимок экрана:

doc фильтр объединенная ячейка 5

5. Затем вам нужно применить форматирование ваших вставленных объединенных ячеек на шаге 1, выбрать объединенные ячейки E2: E15 и нажать Главная > Формат Painter, см. снимок экрана:

doc фильтр объединенная ячейка 6

6. А затем перетащите Формат Painter для заполнения от A2 до A15, чтобы применить исходное объединенное форматирование к этому диапазону.

doc фильтр объединенная ячейка 7

7. Наконец, вы можете применить Фильтр функция, чтобы отфильтровать нужный элемент, нажмите Данные > Фильтр, и выберите необходимые критерии фильтрации, нажмите OK чтобы отфильтровать объединенные ячейки со всеми связанными с ними данными, см. снимок экрана:

doc фильтр объединенная ячейка 8

Отфильтруйте все связанные данные из объединенных ячеек в Excel с помощью Kutools for Excel

Вышеупомянутый метод может быть несколько трудным для вас здесь, с Kutools for Excel‘s Фильтр слияния ячеек вы можете быстро отфильтровать все относительные ячейки определенной объединенной ячейки. Нажмите, чтобы загрузить Kutools for Excel! Пожалуйста, посмотрите следующую демонстрацию:

После установки Kutools for Excel, пожалуйста, сделайте так:

1. Выберите столбец, который вы хотите отфильтровать для конкретной объединенной ячейки, а затем щелкните Кутулс Плюс > Специальный фильтр > Специальный фильтр, см. снимок экрана:

doc фильтр объединенная ячейка 8

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

doc фильтр объединенная ячейка 8

3. Затем нажмите Ok и появится окно подсказки, чтобы напомнить вам, сколько ячеек соответствует критериям, см. снимок экрана:

doc фильтр объединенная ячейка 8

4, Затем нажмите OK Кнопка, все относительные ячейки определенной объединенной ячейки были отфильтрованы, как показано на следующем снимке экрана:

Добрый день всем присутствующим :)

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

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

Не уверен что смог все понятно объяснить, поэтому прилагаю картинки:
Исходная таблица:

Вот как выглядит таблица если применить стандартный фильтр (сортирую по столбцу ВУЗ — значение ТЕХНИКУМ) тут мы видим что при применении фильтра уже нельзя увидеть информацию о работе сотрудника (их минимум 3, в данном примере они обозначены как ПЕРВАЯ, ВТОРАЯ, ТРЕТЬЯ)

Вот как хочу чтобы работало — при сортировке по значению ВУЗ — техникум, все сотрудники и полные их карточки (6 строк относящихся к этому сотруднику) будут отображаться полностью.

Также прилагаю исходник таблицы. Очень надеюсь что с вашей помощью получится решить задачу :) Заранее всем большое спасибо.

фильтр по объединенным ячейкам

OlderFKR

Дата: Четверг, 08.11.2018, 13:01 |
Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9


Репутация:

0

±

Замечаний:
0% ±


Excel 2010

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

 

Ответить

OlderFKR

Дата: Четверг, 08.11.2018, 13:02 |
Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9


Репутация:

0

±

Замечаний:
0% ±


Excel 2010

файл

К сообщению приложен файл:

test.xlsx
(25.9 Kb)

 

Ответить

_Boroda_

Дата: Четверг, 08.11.2018, 13:09 |
Сообщение № 3

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16618


Репутация:

6465

±

Замечаний:
0% ±


2003; 2007; 2010; 2013 RUS


Скажи мне, кудесник, любимец ба’гов…
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

 

Ответить

OlderFKR

Дата: Четверг, 08.11.2018, 13:13 |
Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9


Репутация:

0

±

Замечаний:
0% ±


Excel 2010

Я извиняюсь.. а как Вы сделали привязку эту.

 

Ответить

OlderFKR

Дата: Четверг, 08.11.2018, 13:14 |
Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9


Репутация:

0

±

Замечаний:
0% ±


Excel 2010

Все увидел При выделении.

 

Ответить

OlderFKR

Дата: Четверг, 08.11.2018, 13:17 |
Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9


Репутация:

0

±

Замечаний:
0% ±


Excel 2010

Большое спасибо. Не подумал. Так и сделаю.

 

Ответить

_Boroda_

Дата: Четверг, 08.11.2018, 13:18 |
Сообщение № 7

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16618


Репутация:

6465

±

Замечаний:
0% ±


2003; 2007; 2010; 2013 RUS

«Так» — это как? Я там второй способ еще дописал, видели?


Скажи мне, кудесник, любимец ба’гов…
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

 

Ответить

OlderFKR

Дата: Четверг, 08.11.2018, 14:17 |
Сообщение № 8

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9


Репутация:

0

±

Замечаний:
0% ±


Excel 2010

А второй вариант как сделали?

 

Ответить

_Boroda_

Дата: Четверг, 08.11.2018, 14:19 |
Сообщение № 9

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16618


Репутация:

6465

±

Замечаний:
0% ±


2003; 2007; 2010; 2013 RUS

Ссылку смотрели?
1. Скопировал столбец в свободное место
2. столбец для фильтра разъединил
3. заполнил пустые ячейки (скопировал столбец для фильтра из файла _1)
4. скопировал тот столбец, что вставил в свободное место в п.1
5. Вставил в нужное место спецвставка — формат
6. Убил вспомогательный столбец


Скажи мне, кудесник, любимец ба’гов…
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

 

Ответить

bmv98rus

Дата: Четверг, 08.11.2018, 14:33 |
Сообщение № 10

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4009


Репутация:

760

±

Замечаний:
0% ±


Excel 2013/2016

Вариант менее удобный, расширенный фильтр с критерием

Код

=LOOKUP(2;1/($B$1:B3<>»»);$B$1:B3)=$M$2


Замечательный Временно просто медведь , процентов на 20.

 

Ответить

OlderFKR

Дата: Четверг, 08.11.2018, 14:54 |
Сообщение № 11

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9


Репутация:

0

±

Замечаний:
0% ±


Excel 2010

По Вашему второму варианту сделал. Спасибо за разъяснения.

 

Ответить

OlderFKR

Дата: Четверг, 08.11.2018, 15:24 |
Сообщение № 12

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9


Репутация:

0

±

Замечаний:
0% ±


Excel 2010

А еще один вопрос. Можно ли после подбития всей таблицы сделать сортировка от А до Я по улицам с расстановкой сразу всех строк.

 

Ответить

_Boroda_

Дата: Четверг, 08.11.2018, 18:03 |
Сообщение № 13

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16618


Репутация:

6465

±

Замечаний:
0% ±


2003; 2007; 2010; 2013 RUS

Так в том же автофильтре есть и сортировка


Скажи мне, кудесник, любимец ба’гов…
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

 

Ответить

OlderFKR

Дата: Пятница, 09.11.2018, 10:48 |
Сообщение № 14

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9


Репутация:

0

±

Замечаний:
0% ±


Excel 2010

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

 

Ответить

_Boroda_

Дата: Пятница, 09.11.2018, 15:38 |
Сообщение № 15

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16618


Репутация:

6465

±

Замечаний:
0% ±


2003; 2007; 2010; 2013 RUS

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


Скажи мне, кудесник, любимец ба’гов…
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

 

Ответить

If you have a Merged Cell, and you attempt to Filter for it, you will only get the first row:
Rows with Merged Cells
Filtered Merged Cells only shows first row

To fix this, you first need to start by creating your Merged Cells somewhere else, unmerge your filter-cells, and fill the values into all cells:
Table cells unmerged, merged cells on right

Then, you can Copy the merged cells, and Paste Special > Formats over the cells you want to merge:
Copying the Merged Cells and using Paste Special to put format in data table
The Merged Cell formatting pasted in place

You can now delete your temporary merged cells, and when you filter you will get all rows for the merged cell:
enter image description here

 

{EDIT} Here is a macro that will automatically apply the changes above to a specified range:

Public Sub FilterableMergedCells()
    Dim WorkingRange As Range
SelectRange:
    Set WorkingRange = Nothing
    On Error Resume Next
    Set WorkingRange = Application.InputBox("Select a range", "Get Range", Type:=8)
    On Error GoTo 0
    'If you click Cancel
    If WorkingRange Is Nothing Then Exit Sub
    'If you select multiple Ranges
    If WorkingRange.Areas.Count > 1 Then
        MsgBox "Please select 1 continuous range only", vbCritical
        GoTo SelectRange
    End If

    Dim ScreenUpdating As Boolean, DisplayAlerts As Boolean, Calculation As XlCalculation
    ScreenUpdating = Application.ScreenUpdating
    DisplayAlerts = Application.DisplayAlerts
    Calculation = Application.Calculation

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.Calculation = xlCalculationManual

    Dim WorkingCell As Range, MergeCell As Range, MergeRange As Range, OffsetX As Long, OffsetY As Long
    OffsetX = WorkingRange.Cells(1, 1).Column - 1
    OffsetY = WorkingRange.Cells(1, 1).Row - 1
    'Create temporary sheet to work with
    With Worksheets.Add
        WorkingRange.Copy .Cells(1, 1)
        'Loop through cells in Range
        For Each WorkingCell In WorkingRange.Cells
            'If is a merged cell
            If WorkingCell.MergeCells Then
                'If is the top/left merged cell in a range
                If Not Intersect(WorkingCell, WorkingCell.MergeArea.Cells(1, 1)) Is Nothing Then
                    Set MergeRange = WorkingCell.MergeArea
                    'Unmerge cells
                    MergeRange.MergeCells = False
                    'Replicate value to all cells in formerly merged area
                    For Each MergeCell In MergeRange.Cells
                        If WorkingCell.FormulaArray = vbNull Then
                            MergeCell.Formula = WorkingCell.Formula
                        Else
                            MergeCell.FormulaArray = WorkingCell.FormulaArray
                        End If
                    Next MergeCell
                    'Copy merge-formatting over old Merged area
                    .Cells(WorkingCell.Row - OffsetY, WorkingCell.Column - OffsetX).MergeArea.Copy
                    WorkingCell.PasteSpecial xlPasteFormats
                End If
            End If
        Next WorkingCell
        .Delete
    End With

    Set MergeRange = Nothing
    Set WorkingRange = Nothing

    Application.ScreenUpdating = ScreenUpdating
    Application.DisplayAlerts = DisplayAlerts
    Application.Calculation = Calculation
End Sub

Понравилась статья? Поделить с друзьями:
  • Как настроить фильтр в excel по строкам
  • Как настроить фильтр в excel по одному столбцу
  • Как настроить фильтр в excel по нескольким столбцам
  • Как настроить фильтр в excel по нескольким значениям
  • Как настроить фильтр в excel по датам