マージされた領域のサイズを決定します

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