Определение размера объединенной области

Question

Вплоть до того, как мы сойдемся с объединенными ячейками, я тоже их ненавижу, но я все равно с ними разбираюсь. Я ничего не могу изменить об этом сейчас или в будущем. Столько, сколько хотелось бы;)

Скажем, у меня есть несколько объединенных ячеек, мне нужно определить количество ячеек, которые он охватывает. Скажите A1: A4 слиты, тогда мне нужно, чтобы количество объединенных ячеек было возвращено 4. Есть ли способ сделать это?

Answer 1

Вы можете использовать

Dim r As range 
Dim i As Integer 
    Set r = range("A1") 
    i = r.CurrentRegion.Count 

Это даст A1: A4 как 4, A1: B4, как 8.

Answer 2

ActiveCell.MergeArea.Count