Макрос поиска объединенной группы ячеек - VBA

Формулировка задачи:

Привет. Имеется лист на котором есть несколько объединенных ячеек. Кто нибудь знает с помощью какого макроса найти первую объединенную группу ячеек? Или не первую а вообще какую либо объединенную группу.

Или как узнать ячейка объединена или нет? Какое то свойство ячейки за это отвечает?

Решение задачи: «Макрос поиска объединенной группы ячеек»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Find_MergeAreas()
Dim rn As Range, rnm As Range
Application.FindFormat.MergeCells = True
Set rn = Cells.Find("", After:=[A1], SearchFormat:=True)
Do Until rn Is Nothing
  Set rnm = rn.MergeArea
  rn.UnMerge
  rnm = rn
  Set rn = Cells.Find("", After:=rn, SearchFormat:=True)
Loop
End Sub

Оцени полезность:

14 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы