Determinar el tamaño de un área fusionada

Question

Bien, antes de salir de las células fusionadas, también las odio, pero tengo que lidiar con ellas de todos modos. No puedo cambiar nada sobre eso ahora o en el futuro. Por mucho que me gustaría;)

Digamos que tengo algunas células fusionadas, necesito determinar la cantidad de células que abarca. Digamos que A1: A4 se fusionan, luego necesito que se devuelva el número de celdas fusionadas, 4,. ¿Hay alguna forma de lograr esto?

Answer 1

Puedes usar

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

Esto le dará a A1: A4 como 4, A1: B4 como 8.

Answer 2

ActiveCell.MergeArea.Count