كيفية تحديد جميع الخلايا المدمجة في Excel؟

هل تعرف كيف تبحث وتختار جميع الخلايا المدمجة في Excel؟ إليك ثلاث طرق ذكية وفعّالة لتحديد واختيار جميع الخلايا المدمجة داخل تحديد أو نطاق معين في Excel بسرعة!

تحديد واختيار جميع مدمج باستخدام أمر البحث

اختيار وحساب جميع مدمج بسرعة باستخدام Kutools لـ Excel

تحديد جميع مدمج باستخدام رمز VBA

تحديد واختيار جميع مدمج باستخدام أمر البحث

يمكنك تحديد واختيار جميع مدمج في ورقة العمل النشطة باستخدام أمربحثبالخطوات التالية:

1. انقر علىالصفحة الرئيسية > بحث واختيار > بحثلفتح مربع حوارالبحث والاستبدال. يمكنك أيضًا فتح مربع حوارالبحث والاستبدالبالضغط على مفتاحَيCtrl + F.

2. انقر على زرتنسيقفي مربع الحوار. (إذا لم تتمكن من العثور على زر)تنسيق، يُرجى النقر على زرخياراتلتوسيع مربع الحوار.) انظر لقطة الشاشة:

3. في مربع الحوار المنبثقتنسيق البحث، اختر خيارالخلايا المدمجةفقط في قسمالتحكم في النصضمن تبويبالمحاذاة، ثم انقر علىموافق.

4. الآن بعد أن عُدت إلى مربع حوارالبحث والاستبدال، انقر على زربحث عن الكل. سيتم سرد كل المدمج في أسفل مربع الحوار هذا. حدد جميع نتائج البحث بالضغط مع الاستمرار على مفتاحShift.

الآن، عند تحديدك لجميع نتائج البحث، يتم تحديد كل مدمج في ورقة العمل النشطة تلقائيًا. انظر لقطة الشاشة:

نصائح:إذا كنت تريد تحديد الخلايا المدمجة والبحث عنها داخل نطاق معيّن فقط، فابدأ بتحديد هذا النطاق أولًا.

تحديد وحساب جميع مدمج باستخدام Kutools لـ Excel

ستساعدك أداةKutools لـ Excel، وتحديدًا وظيفةتحديد الخلايا المدمجة، على تحديد جميع الخلايا المدمجة في نطاق معيّن والبحث عنها بضغطة واحدة فقط.

بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية:()تنزيل مجاني لـ Kutools لـ Excel الآن!)

1. حدد نطاق البيانات الذي تريد دمج الخلايا فيه.

2. انقر علىKutools > تحديد > تحديد الخلايا المدمجة، انظر لقطة الشاشة:

3. تم تحديد جميع المدمجات في النطاق المحدد دفعة واحدة، كما تم حساب عددها أيضًا — انظر لقطة الشاشة:

تحديد جميع مدمج باستخدام كود VBA

كود VBA 1: تحديد وتمييز جميع مدمج

1. اضغط مع الاستمرار على مفتاحَيALT + F11، وسيُفتح ذلك نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

2. انقر علىإدراج > وحدة نمطية، ثم الصق ماكرو التالي في نافذةالوحدة النمطية.

Sub FindMergedcells()
'updateby Extendoffice
Dim x As Range
For Each x In ActiveSheet.UsedRange
If x.MergeCells Then
x.Interior.ColorIndex = 8
End If
Next
End Sub

3. اضغط على مفتاحF5 لتشغيل هذا الماكرو. سيتم تحديد وتمييز جميع الخلايا المدمجة في ورقة العمل النشطة. انظر لقطة الشاشة:

كود VBA 2: تحديد وإدراج قائمة بجميع مدمج

1. اضغط مع الاستمرار على مفتاحَيALT + F11، وسيفتح ذلك نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

2. انقر علىإدراج>وحدة نمطية، والصق ماكرو التالي في نافذةالوحدة النمطية.

Sub ListMergedcells()
'updateby Extendoffice
Dim x As Range
Dim sMsg As String
sMsg = ""
For Each x In ActiveSheet.UsedRange
If x.MergeCells Then
If sMsg = "" Then
sMsg = "Merged cells:" & vbCr
End If
sMsg = sMsg & Replace(x.Address, "$", "") & vbCr
End If
Next
If sMsg = "" Then
sMsg = "No merged cells."
End If
MsgBox sMsg
End Sub

3. اضغط على مفتاحF5 لتشغيل هذا الماكرو، وسيتم إدراج قائمة بجميع المدمجين في مربع حوار منبثق. انظر لقطة الشاشة:

مقالات ذات صلة