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

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

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

حدد جميع الخلايا المدمجة برمز VBA

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

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

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

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

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

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

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

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

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

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

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بما يلي: تحميل مجاني Kutools لبرنامج Excel الآن! )

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

2. انقر كوتولس > أختار > حدد الخلايا المدمجة، انظر لقطة الشاشة:

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

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

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