Как узнать объединены ли ячейки

[djozzz]

Предположим на некотором листе есть объединённые ячейки.
Допустим, что они объединённы горизонтально(к примеру диапазон А1:С1). Активна ячейка А1. С помощью какого кода я могу узнать, что следующая ячейка не В1 а D1 ?

[HandKot]

Определить объеденены ли ячейки можно так,

Код:

CBool(wrBook.Worksheets(1).Range("A1:F2").MergeCells

ЗЫЖ нумерация ячеек в объединенной области отличается от нумерации самого листа,
так что узнать ответ на свой вопрос так просто не получится ИМХО, поищи в помощи

[HandKot]

кстати, есть такое св-во

пример кода (перемещается на следующую ячейку, пропуская объединения ячеек):

Код:

Dim astring() as string
Dim strAddress as string 
Set ma = Range("a1").MergeArea
astring = Split(ma.AddRess, "$")
If ma.Address = "$A$1" Then
    strAddress = "$" & astring(1) & "$" & astring(2) + 1
    NextCell = Range(strAddress).Select
else
    strAddress = strAddress = "$" & astring(1) & "$" & astring(4) + 1
    NextCell = Range(strAddress).Select
End If

[Naghual]

Ага. А еще у объекта Range есть свойство Next.