كيفية حساب الخلايا المدمجة في النطاق المحدد في Excel؟
عادةً، تفضل دمج جميع الخلايا ذات القيم المتشابهة في نطاق معين في Excel. ولكن في بعض الحالات، قد تحتاج إلى حساب جميع الخلايا المدمجة في نطاق محدد. كيف يمكنك التعامل مع ذلك؟ سيقدم لك هذا المقال طريقتين لحساب الخلايا المدمجة بسرعة في Excel.
حساب الخلايا المدمجة في نطاق في Excel باستخدام كود VBA
احسب الخلايا المدمجة في نطاق في Excel بنقرة واحدة فقط
حساب الخلايا المدمجة في نطاق في Excel باستخدام كود VBA
1. اضغط مع الاستمرار على زر ALT واضغط على F11 على لوحة المفاتيح لفتح نافذة Microsoft Visual Basic for Application.
2. انقر فوق إدراج > وحدة، ثم قم بنسخ كود VBA إلى الوحدة.
VBA: حساب الخلايا المدمجة في نطاق
Function CountMerged(pWorkRng As Range) As Long
'Updateby20140307
Dim rng As Range
Dim total As Long
Set dt = CreateObject("Scripting.Dictionary")
For Each rng In pWorkRng
If rng.MergeCells Then
TempAddress = rng.MergeArea.Address
dt(TempAddress) = ""
End If
Next
CountMerged = dt.Count
End Function
3. احفظ الكود وأغلق النافذة، ثم اكتب هذه الصيغة =CountMerged(A1:G10) (النطاق A1:G10 هو النطاق الذي تريد حساب الخلايا المدمجة منه، يمكنك تغييره حسب الحاجة) في خلية فارغة، واضغط على زر Enter على لوحة المفاتيح. بعد ذلك، ستظهر نتيجة العد في الخلية، انظر إلى لقطة الشاشة:
حساب الخلايا المدمجة في نطاق في Excel بنقرة واحدة فقط
هنا سأوضح لك طريقة سريعة لحساب الخلايا المدمجة في نطاق بنقرة واحدة فقط باستخدام أداة تحديد الخلايا المدمجة من Kutools لـ Excel. يرجى القيام بما يلي.
1. حدد النطاق الذي يحتوي على الخلايا المدمجة التي تريد حسابها. وبعد ذلك انقر فوق Kutools > تحديد > تحديد الخلايا المدمجة. انظر إلى لقطة الشاشة:
2. بعد ذلك، ستظهر نافذة منبثقة من Kutools لـ Excel تحتوي على العدد الإجمالي للخلايا المدمجة داخلها. يرجى النقر فوق زر موافق. ثم يتم تحديد جميع الخلايا المدمجة في النطاق المحدد فورًا. انظر إلى لقطة الشاشة:
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يوم) من هذه الأداة، يرجى النقر لتنزيلها، ثم الانتقال لتطبيق العملية وفقًا للخطوات المذكورة أعلاه.
عرض توضيحي: احسب بسهولة الخلايا المدمجة في نطاق في Excel باستخدام Kutools لـ Excel
مقالات ذات صلة:
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel مع Kutools لـ Excel، واختبر الكفاءة كما لم يحدث من قبل. Kutools لـ Excel يقدم أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير
- تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
- افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!