Макрос подсчета объединенных ячеек - VBA

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

Здравствуйте! Подскажите пожалуйста. Нужно написать конструкцию, чтобы она считала количество объединенных ячеек. Такая вот

Public Sub MyMergeCount()
Dim cMerge As Range
 
Set cMerge = Range(Cells(104, 1), Cells(104, 7))
x = cMerge.MergeArea.Count
End Sub

не работает... Где моя ошибка?

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

textual
                            Листинг программы 
                        
                            If cMerge.MergeCells Then x = cMerge.MergeArea.Count

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

8 голосов , оценка 3.625 из 5

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