La détermination de la taille d'une zone fusionnée

Question

droite, avant d'arriver sur les cellules fusionnées au large, je les déteste aussi, mais je devais me occuper avec eux de toute façon. Je ne peux pas changer quoi que ce soit à ce sujet maintenant ou dans l'avenir. Autant que je voudrais;)

Dire que j'ai des cellules fusionnées, je dois déterminer la quantité de cellules qu'il enjambe. Dites A1: A4 sont fusionnés, alors je dois avoir le nombre de cellules fusionnées, 4, retourné. Est-il possible d'y arriver?

Answer 1

Vous pouvez utiliser

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

Cela donnera A1: A4 comme 4, A1: B4 8

.

Answer 2

ActiveCell.MergeArea.Count