تحديد حجم المنطقة المدمجة

Question

صحيح، قبل النزول حول الخلايا المدمجة، أكرههم أيضا، لكنني أتعامل معهم على أي حال. لا أستطيع تغيير أي شيء عن ذلك الآن أو في المستقبل. بقدر ما أود أن؛)

قل لدي بعض الخلايا المدمجة، أحتاج إلى تحديد كمية الخلايا التي تمتد. قل A1: يتم دمج A4، ثم أحتاج إلى الحصول على عدد الخلايا المدمجة، 4، عاد. هل هناك أي طريقة لتحقيق ذلك؟

Answer 1

يمكنك استخدام

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

هذا سيعطي A1: A4 AS 4، A1: B4 AS 8.

Answer 2

ActiveCell.MergeArea.Count