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

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

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

Код к задаче: «Макрос поиска объединенной группы ячеек - 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.000 из 5


СОХРАНИТЬ ССЫЛКУ