Проверка диапазона с объединенными ячейками по условию

[ольгаг]

Здравствуйте Уважаемые программисты!
Есть именованный диапазон "данные" (excel 2003), в котором есть объединенные ячейки. Подскажите пожалуйста, как проверить в этом диапазоне наличие пустых ячеек? Код ниже работает только с необъединенными ячейками. Спасибо!

For Each i In [данные]
   If i = "" Then
   MsgBox "есть пустые ячейки", vbInformation, "стоп": Exit Sub
   End If
Next

[IgorGO]

код выше работает с каждой ячейкой именованного диапазона
а что хотите Вы?

[ольгаг]

Если ячейка объединенная и в ней текст, то код все равно считает эту ячейку пустой. Т.е. надо чтобы код проверял если ячейка объединенная, то смотрел ее значение в крайней левой верхней ячейке, т.е. типа

MergeCells.Cells(0, 1)

и соответственно эту ячейку уже не считал пустой.

[IgorGO]

вот и проверте:
если ячейка обьединенная, то проверяется только первая

[ольгаг]

Спасибо!
Подскажите еще пожалуйста, как можно изменить мой код с помощью функции:

Function Reference_cell_even_if_merged(Cell_Range As Range) As Range
If Cell_Range.MergeCells Then
    Set Reference_cell_even_if_merged = Cell_Range.MergeArea
Else
    Set Reference_cell_even_if_merged = Cell_Range
End If
End Function

[IgorGO]

как с помощью предложенной функции изменить Ваш код - не знаю, потому что функция совершенно бесполезная.

а без функции так:

  Dim i As Range, check As Boolean
  For Each i In [данные]
    If i.MergeCells Then check = i.Address = i.MergeArea.Cells(1).Address Else check = True
    If check Then If IsEmpty(i) Then MsgBox "Empty": End
  Next

[ольгаг]

Спасибо большое!