Bestimmung der Größe eines zusammengeführten Bereichs

Question

Richtig, bevor wir wegen fusionierter Zellen aussteigen, hasse ich sie auch, aber ich werde mich trotzdem mit ihnen befassen. Ich kann jetzt oder in Zukunft nichts darüber ändern. So viel wie ich möchte;)

Angenommen, ich habe einige verschumte Zellen, ich muss die Menge der Zellen bestimmen, die sie überspannen. Sagen Sie A1: A4 werden zusammengeführt, dann muss ich die Anzahl der zusammengeführten Zellen, 4, zurückgegeben haben. Gibt es eine Möglichkeit, dies zu erreichen?

Answer 1

Sie können verwenden

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

Dies gibt A1: A4 als 4, A1: B4 als 8.

Answer 2

ActiveCell.MergeArea.Count