Determinando o tamanho de uma área mesclada

Question

Certo, antes de sairmos de células mescladas, eu as odeio também, mas tenho que lidar com elas de qualquer maneira. Não posso mudar nada sobre isso agora ou no futuro. Tanto quanto eu gostaria de;)

Digamos que eu tenho algumas células mescladas, preciso determinar a quantidade de células que ela abrange. Digamos A1: A4 são mesclados, então eu preciso ter o número de células mescladas, 4, retornadas. Existe alguma maneira de conseguir isso?

Answer 1

Você pode usar

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

Isso dará A1: A4 como 4, A1: B4 como 8.

Answer 2

ActiveCell.MergeArea.Count