تحديد حجم المنطقة المدمجة
-
16-09-2019 - |
سؤال
صحيح، قبل النزول حول الخلايا المدمجة، أكرههم أيضا، لكنني أتعامل معهم على أي حال. لا أستطيع تغيير أي شيء عن ذلك الآن أو في المستقبل. بقدر ما أود أن؛)
قل لدي بعض الخلايا المدمجة، أحتاج إلى تحديد كمية الخلايا التي تمتد. قل A1: يتم دمج A4، ثم أحتاج إلى الحصول على عدد الخلايا المدمجة، 4، عاد. هل هناك أي طريقة لتحقيق ذلك؟
المحلول
يمكنك استخدام
Dim r As range
Dim i As Integer
Set r = range("A1")
i = r.CurrentRegion.Count
هذا سيعطي A1: A4 AS 4، A1: B4 AS 8.
نصائح أخرى
ActiveCell.MergeArea.Count
لا تنتمي إلى StackOverflow