كيفية حساب الخلايا المدمجة في النطاق المحدد في 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، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.





- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد