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

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