Нахождение обьедененных ячеек

[NoLL]

Здраствуйте!
Подскажите пожалуйста, как найти в определенном диапазоне, к примеру А1:А500, обьедененные ячейки. И все ячейки которые были найдены розбить. И те ячейки которые были обьедены, заполнить теме же данными которые были в обьдененной ячейке.

К примеру, была ячейка А7 которая обьеденяла 5 ячеек( с А7 до А13), в ячейке было записанно слово: "Отчет".
Макрос находит эту ячейку и розбивает и каждую ячейку с А7 до А13 включително вписывает слово отчет.(Данные в ячейках разные)

Пробывал так:

Dim x As Range: 'Application.ScreenUpdating = False
    For Each x In Range("А1:А500")
        If  x = MergeCells Then
    x.Select
    x.UnMerge
    Selection.FillDown
    End If
    Next
   End Sub

Но ничего не вышло.

[SAS888]

Можно так:

Sub Main()
    Dim cell As Range, x As Range
    Application.ScreenUpdating = False
    For Each cell In [A1:A500]
        Set x = cell.MergeArea
        If x.Count > 1 Then
            x.UnMerge: x.FillDown
        End If
    Next
End Sub

Обратите внимание, что x.FillDown можно использовать только в том случае, если заполнение применяется к одному столбцу. Если же требуется заполнить произвольный непрерывный диапазон, то следует применять x = x.Cells(1, 1)

[NoLL]

Спасибо! Работает. По поводу FillDown, спасибо, полезный совет!