Determinare la dimensione di un'area fusione

Question

A destra, prima di scendere sulle celle unite, io li odio anche, ma ho a che fare con loro in ogni caso. Non posso cambiare nulla ora o in futuro. Per quanto mi piacerebbe;)

Dire che ho alcune celle unite, ho bisogno di determinare la quantità di cellule si estende. Di 'A1: A4 sono fusi, quindi ho bisogno di avere il numero di celle unite, 4, tornato. Esiste un modo per raggiungere questo obiettivo?

Answer 1

È possibile utilizzare

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

Questo darà A1: A4 come 4, A1: B4 di 8

.

Answer 2

ActiveCell.MergeArea.Count