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

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

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

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

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

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

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

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

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

3. В появившемся диалоговом окне Формат поиска установите флажок только напротив параметра Объединенные ячейки в разделе Управление текстом на вкладке Выравнивание и нажмите кнопку ОК.

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

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

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

Выделение и подсчёт всех Объединенный с помощью Kutools для Excel

Kutools для Excel's Выбрать объединенные ячейки поможет вам мгновенно найти, выделить и идентифицировать все объединённые ячейки в выбранном диапазоне — всего одним щелчком!

После установки Kutools для Excelвыполните следующие действия:()Бесплатно скачать Kutools для Excel сейчас!)

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

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

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, чтобы запустить этот макрос. Все объединённые ячейки на активном листе будут идентифицированы и выделены. См. снимок экрана:

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, чтобы запустить этот макрос. Все объединённые элементы будут отображены в появившемся диалоговом окне. См. снимок экрана:

Связанные статьи