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

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

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

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

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

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

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

1. انقر فوق Home > Find & Select > Find لفتح مربع الحوار البحث والاستبدال. يمكنك أيضًا فتح مربع الحوار البحث والاستبدال بالضغط على مفتاح Ctrl + F.

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

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

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

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

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

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

أداة تحديد الخلايا المدمجة في Kutools لـ Excel ستساعدك على تحديد والعثور وتحديد جميع الخلايا المدمجة في نطاق معين بنقرة واحدة فقط.

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:( Free Download Kutools for Excel Now! )

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

2. انقر فوق Kutools > Select > Select Merged Cells، انظر إلى لقطة الشاشة:

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

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

VBA 1: تحديد وإبراز جميع الخلايا المدمجة

1. اضغط مع الاستمرار على مفاتيح ALT + F11، ويفتح نافذة Microsoft Visual Basic for Applications.

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، ويفتح نافذة Microsoft Visual Basic for Applications.

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 لتشغيل هذا الماكرو، سيتم سرد جميع الخلايا المدمجة في مربع حوار منبثق. انظر إلى لقطة الشاشة:

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