كيفية البحث عن الخلايا المدمجة في إكسيل؟
غالبًا ما تحصل على بيانات تحتوي على خلايا مدمجة، مما يمنعك من تنفيذ أنشطة معينة مثل فرز البيانات، واستخدام مرجع للخلايا المدمجة في الصيغ، واستخدام تحديد عامل التصفية بشكل صحيح.
في هذه الحالة، تحتاج إلى العثور على الخلايا المدمجة لفك تجميعها وضبطها، وقد يستغرق العثور على الخلايا المدمجة واحدة تلو الأخرى بعض الوقت.
ولكن، اجلس واسترخي، فبرنامج Excel يتمتع بوظيفة البحث عن كافة الخلايا المدمجة وتمييزها مرة واحدة لعرضها بسرعة قبل فك تجميعها، وقد قمنا بوصف هذه الوظيفة لك.
خطوات البحث عن الخلايا المدمجة باستخدام البحث والاستبدال
- أولاً، حدد نطاق الخلايا أو الورقة بأكملها التي تريد البحث عن الخلايا المدمجة منها.
- بمجرد تحديد النطاق، انتقل إلى علامة التبويب “الصفحة الرئيسية” وضمن مجموعة “تحرير”، انقر فوق أيقونة “بحث واستبدال” وحدد خيار “استبدال” لفتح مربع الحوار “استبدال”.
- أو فقط اضغط على مفتاح التشغيل السريع “Ctrl + H” لفتح مربع الحوار “استبدال”.
- بعد ذلك، انقر فوق خيار “التنسيق” في مربع الحوار “بحث واستبدال” وسيتم فتح مربع الحوار “بحث عن التنسيق”.
- في مربع الحوار “Find Format”، انتقل إلى علامة التبويب “Alignment”، وحدد خيار “Merge Cells” وقم بإلغاء تحديد خياري “Wrap Text” و”Shrink to Fit” بشكل صحيح كما هو موضح في الصورة، ثم انقر فوق OK.
- الآن انقر فوق “بحث عن الكل” في مربع الحوار “بحث واستبدال” وستحصل على جميع الخلايا المدمجة المدرجة أدناه في مربع الحوار.
- انقر الآن على أي خلية مدرجة في مربع الحوار “بحث واستبدال” وحدد جميع الخلايا المدرجة باستخدام مفاتيح “Ctrl + A” وسيتم تحديد الخلايا المدمجة في البيانات.
- لتمييز الخلايا المدمجة المحددة، انتقل إلى علامة التبويب “الصفحة الرئيسية” وضمن مجموعة “الخط”، انقر فوق أيقونة “لون التعبئة” وحدد اللون، وسيتم تمييز الخلايا المدمجة وستتمكن من عرضها بسرعة قبل الانفصال عنهم.
- في النهاية، لفك تجميعها، ما عليك سوى النقر على أيقونة “الدمج والتوسيط” ضمن مجموعة “المحاذاة” وسيتم فك تجميع كافة الخلايا المدمجة.
ابحث عن الخلايا المدمجة باستخدام كود VBA
يمكن للمستخدمين أيضًا استخدام كود VBA للبحث عن الخلايا المدمجة وتمييزها.
Sub find_merged_cells() Dim Cel As Range, Msg As String, Addr As String For Each Cel In ActiveSheet.UsedRange If Cel.MergeCells Then Cel.Interior.Color = 65535 End If Next End Sub دروس متقدمة في الإكسل