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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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