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

Excel для Microsoft 365 Excel 2021 Excel 2019 Excel 2016 Excel 2013 Еще…Меньше

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

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

  1. На вкладке Главная выберите Найти и выделить > Найти.

  2. Щелкните Параметры > формат .

    Диалоговое окно "Поиск"

  3. Нажмите кнопку Выравнивание > объединить ячейки >ОК.

    Установленный флажок "Объединить"

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

    Поиск всех объединенных ячеек

    При выборе элемента в списке Excel выделит объединенную ячейку на листе. Теперь вы можете ото всех ячеек.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

Нужна дополнительная помощь?

Вы знаете, как найти и выделить все объединенные ячейки в Excel? Вот крутые хитрые способы быстро определить и выбрать все объединенные ячейки в выделении или диапазоне в Microsoft Excel 2007 и 2010.

Определите и выберите все объединенные ячейки с помощью команды Найти

Определите все объединенные ячейки с кодом VBA

Выберите и подсчитайте все объединенные ячейки с помощью Kutools for Excel


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

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

1, Нажмите Главная > Найти и выбрать > Найти для открытия Найти и заменить диалоговое окно. Вы также можете открыть Найти и заменить диалоговое окно с нажатием Ctrl + F ключи.

2, Нажмите Формат в диалоговом окне, (Если вы не можете узнать Формат кнопку, нажмите Опции кнопку, чтобы развернуть диалоговое окно.) см. снимок экрана:

документ выберите объединенные ячейки 1

3. В всплывающем Найти формат диалоговое окно, только отметьте Объединить ячейки вариант в Текстовый контроль Раздел под центровка вкладку и щелкните OK.

документ выберите объединенные ячейки 2

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

Теперь при выборе всех результатов поиска выделяются все объединенные ячейки на активном листе. Смотрите скриншот:

документ выберите объединенные ячейки 3

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


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

VBA 1: определить и выделить все объединенные ячейки

1. Удерживайте ALT + F11 ключи, и он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули, и вставьте следующий макрос в Модули Окно.

Sub FindMergedcells()
'updateby Extendoffice
Dim x As Range
For Each x In ActiveSheet.UsedRange
If x.MergeCells Then
x.Interior.ColorIndex = 8
End If
Next
End Sub

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

документ выберите объединенные ячейки 4

VBA 2: определить и перечислить все объединенные ячейки

1. Удерживайте ALT + F11 ключи, и он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите ВставитьМодули, и вставьте следующий макрос в Модули Окно.

Sub ListMergedcells()
'updateby Extendoffice
Dim x As Range
Dim sMsg As String
sMsg = ""
For Each x In ActiveSheet.UsedRange
If x.MergeCells Then
If sMsg = "" Then
sMsg = "Merged cells:" & vbCr
End If
sMsg = sMsg & Replace(x.Address, "$", "") & vbCr
End If
Next
If sMsg = "" Then
sMsg = "No merged cells."
End If
MsgBox sMsg
End Sub

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

документ выберите объединенные ячейки 5


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

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

После установки Kutools for Excel, пожалуйста, сделайте следующее :( Бесплатная загрузка Kutools for Excel от Yhao сейчас! )

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

2. Нажмите Кутулс > Выберите > Выбрать объединенные ячейки, см. снимок экрана:

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

документ выберите объединенные ячейки 7

Бесплатная загрузка Kutools for Excel от Yhao сейчас!


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

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

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

вкладка kte 201905


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

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

офисный дно


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

фильтр

,

Сводные таблицы

и пр. Научимся быстро находить такие ячейки.

Чтобы найти объединенные ячейки необходимо:

  • нажать

    CTRL+F

    ;
  • нажать кнопку

    Формат

    ;
  • выбрать вкладку

    Выравнивание

    ;
  • отметить

    Объединение ячеек

    ;

  • нажать ОК;
  • нажать

    Найти все

    .

Альтернативой объединения ячеек служит опция Формата ячеек

Выравнивание по центру выделения

. Об этом читайте в статье

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

.

Введение

Объединённые ячейки — это удобная визуализация. Однако часто они приносят нам неудобства и проблемы во время работы. Например, препятствуют построению отчёта сводной таблицы, консолидации данных, чистке дублей, сортировке диапазона и тд.

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

Если при работе в таблицах у Вас появляются следующие ошибки, то Вы пришли по адресу.

Excel — «Для этого все объединенные ячейки должны иметь одинаковый размер»

Google таблицы — «Выделены объединенные ячейки. Для удаления точных копий количество строк и столбцов во всех ячейках должно быть одинаковым»

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

Заключение

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

У нас Вы можете заказать выполнение задач по MS Excel и Google таблицам

А также, пройти бесплатные онлайн курсы по MS Excel с заданиями

 

здравствуйте профессионалы
нужен макрос который выделяет все объединенные ячейки
я каждый раз выделяю столбцы (A,B,C) диапазонов
и нажимаю ctrl+f чтобы искать объединенные ячейки, выйдет результат
потом нажимаю ctrl+a чтобы выделять эти все объединенные ячейки

как это делается в макросе?  

 

DANIKOLA

Пользователь

Сообщений: 424
Регистрация: 17.08.2019

#2

10.11.2021 19:41:06

Здравствуйте. Вот

результат поиска в гугле

на запрос «vba найти все объединенные ячейки».
Код исправлен по вашим комментариям ниже.

Код
Sub MergeInfo()
Dim iRange As Range, sAddress As String
Dim iCell As Range
If TypeName(Selection) = "Range" Then
Set iRange = Selection' ActiveSheet.UsedRange
  For Each iCell In iRange
     If iCell.MergeCells Then
'        sAddress = sAddress & iCell.Address(0, 0) & ", " 'Если просто выделить*
        iCell.Interior.Color = vbRed 'Выделить красным цветом
     End If
  Next iCell
'  sAddress = Left(sAddress, Len(sAddress) - 2)'Если просто выделить*
'  Range(sAddress).Select 'Если просто выделить*
End If
End Sub

Jack Famous

, спасибо буду знать.

Изменено: DANIKOLA11.11.2021 09:35:24

 

Mershik

Пользователь

Сообщений: 8277
Регистрация: 03.12.2015

#3

10.11.2021 19:41:43

Цитата
написал:
как это делается в макросе?  

запишите действия нажав кнопку записать макрос

Не бойтесь совершенства. Вам его не достичь.

 

БМВ

Модератор

Сообщений: 21383
Регистрация: 28.12.2016

Excel 2013, 2016

#4

10.11.2021 19:42:04

Код
Dim s As Range
For Each cell In Selection
If cell.MergeCells Then
    If s Is Nothing Then
        Set s = cell
    Else
        Set s = Union(s, cell)
    End If
End If
Next
s.Select

По вопросам из тем форума, личку не читаю.

 

xojiakbar ahmadov

Пользователь

Сообщений: 29
Регистрация: 29.12.2020

#5

11.11.2021 08:48:04

БМВ, этот код у меня не работает

Цитата
DANIKOLA написал: результат поиска в гугле  на запрос «vba найти все объединенные ячейки».

это во все листом выделяется. a мне нужен именно выбранном диапазоне выделялся. как это сделать

Макрорекодер не помогают я уже пробовал

 

Msi2102

Пользователь

Сообщений: 3137
Регистрация: 31.03.2014

#6

11.11.2021 09:22:53

Цитата
написал:
этот код у меня не работает

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

 

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

DANIKOLA, если накопится адрес длиннее 255 символов, то выдаст ошибку или неправильный результат

Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

 

xojiakbar ahmadov

Пользователь

Сообщений: 29
Регистрация: 29.12.2020

#8

11.11.2021 17:19:01

все понял уже работает спасибо всем

Понравилась статья? Поделить с друзьями:
  • Как выделить все ячейки в excel 2010
  • Как выделить все найденные ячейки в excel
  • Как выделить все ячейки в excel 2007
  • Как выделить все в word 2013
  • Как выделить все в excel 2003