كيف يمكن فرز البيانات التي تحتوي على خلايا مدمجة في Excel؟
غالبًا ما تؤدي محاولة فرز البيانات في Excel التي تحتوي على خلايا مدمجة إلى ظهور رسالة خطأ، كما يظهر في لقطة الشاشة على اليسار. ويعود هذا السلوك إلى القيود الحالية في Excel، إذ لا يدعم البرنامج بشكلٍ أصلي فرز النطاقات التي تحتوي على خلايا مدمجة، لأن هذه الخلايا تعطّل هيكل البيانات الأساسي وتُعقّد عمل وظيفة الفرز الطبيعي.
عند العمل مع أوراق العمل التي تستخدم خلايا مدمجة لتنسيق البيانات أو تجميعها، قد تحتاج مع ذلك إلى تنظيم بياناتك أو إعادة ترتيبها. ولتحقيق ذلك، يجب عليك أولًا التعامل مع تلك الخلايا المدمجة بالشكل المناسب. فيما يلي عدة طرق عملية للتعامل مع البيانات التي تحتوي على خلايا مدمجة وفرزها دون فقدان معلوماتك.
فرز البيانات التي تحتوي على مدمج عن طريق إلغاء دمج جميع الخلايا أولًا
فرز البيانات التي تحتوي على مدمج باستخدام Kutools لـ Excel
فرز البيانات التي تحتوي على مدمج باستخدام أتمتة VBA (إلغاء الدمج، التعبئة، الفرز، ثم إعادة الدمج)
فرز البيانات التي تحتوي على مدمج عن طريق إلغاء دمج جميع الخلايا أولًا
بما أن وظيفة الفرز الافتراضية في Excel لا تعمل على النطاقات التي تحتوي على خلايا مدمجة، فإن الخطوة الأساسية هي إلغاء دمج جميع الخلايا المدمجة داخل قائمة البيانات أولاً. وبعد إلغاء الدمج، ستظهر خلايا فارغة مكان الخلايا المدمجة السابقة، لذا ستحتاج إلى تعبئة هذه الخلايا الفارغة للحفاظ على فرز دقيق. إليك الخطوات التفصيلية:
1. حدد القائمة أو الجدول الكامل الذي يحتوي على الخلايا المدمجة التي ترغب في فرزها. ومع تحديد البيانات، انقر علىالصفحة الرئيسية > دمج وتوسيطلإلغاء دمج جميع الخلايا المدمجة. يُرجى الرجوع إلى لقطة الشاشة أدناه للتوجيه البصري:
2. بعد إلغاء الدمج، ستلاحظ أن الخلايا التي كانت مدمجة سابقًا أصبحت الآن فارغة. بينما لا تزال الخلايا المدمجة محددة، انتقل إلى علامة التبويبالصفحة الرئيسية، ثم انقر علىبحث واختيار > الانتقال إلى خاص. تضمن لك هذه الخطوة تحديدًا جماعيًا دقيقًا لجميع الخلايا الفارغة ضمن نطاقك، مما يجعل الخطوة التالية أسرع بكثير.
3. في مربع الحوارالانتقال إلى خاص، اختر الخيارخلايا فارغة، ثم انقر علىموافق. سيؤدي ذلك فورًا إلى تمييز جميع الخلايا الفارغة في نطاق التحديد.
4. مع بقاء الخلايا الفارغة مُميَّزة، انتقل إلى شريط الصيغة واكتب رمز=، ثم حدد الخلية الموجودة مباشرةً فوق أول خلية فارغة لإنشاء صيغة مرجعية (على سبيل المثال، إذا كانت الخلية C3 فارغة، فأدخل)=C2). وبدلًا من الضغط على Enter فقط، اضغط مع الاستمرار على مفتاحCtrl، ثم اضغط علىEnter لتعبئةجميعالخلايا الفارغة المحددة بقيم الخلايا العلوية المقابلة دفعةً واحدة.
بعد هذه الخطوة، تكون كل منطقة مدمجة مسبقًا قد مُلئت بقيمتها الأصلية، مما يضمن سلامة بياناتك أثناء الفرز.
5. أصبح بإمكانك الآن فرز بياناتك كالمعتاد—فقط حدد أي عمود، وانتقل إلى علامة التبويببيانات، ثم اخترتصاعديأوفرز من Z إلى A. وإذا رغبت في استعادة التنسيق المدمج بعد الفرز، يمكنك يدويًّا إعادة دمج القيم المتطابقة المجاورة، ولكن احرص على ألا تدمج بيانات غير مرتبطة ببعضها.
تلميح:قبل المتابعة، تأكد دائمًا من عمل نسخة احتياطية من بياناتك الأصلية إذا كان الحفاظ على التنسيق المدمج أمرًا بالغ الأهمية. واعلم أنه بعد إلغاء الدمج وتعبئة الخلايا الفارغة، ستظهر صيغ في الخلايا. فإذا رغبت في تحويل هذه الصيغ إلى قيم ثابتة، فحدد النطاق، وانسخه، ثم الصقه كقيم لتجنب أي تحديثات غير مرغوبة للصيغ بعد الفرز.
فرز البيانات التي تحتوي على مدمج باستخدام Kutools لـ Excel
يوفر Kutools لـ Excel حلاً أكثر سهولة وكفاءة لفرز البيانات التي تحتوي على خلايا مدمجة، مما يجعل العملية أكثر موثوقية عند التعامل مع مجموعات بيانات كبيرة أو متطلبات تنسيق متكررة. تتيح لك أداةإلغاء دمج الخلايا وتعبئة القيمفي Kutools لـ Excel إلغاء دمج الخلايا تلقائيًا وتعبئة الخلايا الفارغة الناتجة بالقيمة المدمجة الأصلية، مما يلغي الحاجة إلى التدخل اليدوي ويُحسّن الكفاءة بشكل كبير.
1. حدد النطاق الذي يحتوي على الخلايا المدمجة التي تريد فرزها. بعد ذلك، انتقل إلىKutools > دمج وتقسيم > إلغاء دمج الخلايا وتعبئة القيم. يُرجى الرجوع إلى لقطة الشاشة التالية للتوجيه:
عند تنفيذ هذه العملية، يُلغى دمج جميع الخلايا المدمجة داخل نطاق التحديد فورًا، وتُملأ الخلايا الفارغة الناتجة بالقيمة المقابلة من الخلية المدمجة سابقًا، مما يضمن اتساق البيانات في جميع أنحاء الجدول.
2. يمكنك الآن فرز بياناتك كالمعتاد. وبعد الفرز، وللحصول على مظهر متسق أو لأغراض عرض البيانات، يوفّر Kutools طريقة سريعة لإعادة دمج الخلايا التي تحتوي على محتوى متطابق. ما عليك سوى تحديد النطاق المفرز، ثم الانتقال إلىKutools>دمج وتقسيم>دمج الخلايا المتشابهةلتطبيق تنسيق الدمج بكفاءة في الأماكن التي تكون فيها القيم متطابقة فقط.
إذا كنت ترغب في تجربة هذه الأداة مجانًا (لمدة 30 يومًا)،فما عليك سوى النقر لتنزيلها، ثم اتبع الخطوات المذكورة أعلاه لتطبيق العملية.
المزايا:تقلل هذه الطريقة من الخطوات اليدوية، وتخفّض احتمالية حدوث أخطاء، وهي مناسبة بشكل خاص عند العمل مع جداول معقدة أو احتياجات إعداد تقارير منتظمة.احرص دائمًا على مراجعة الناتج المدمج بعد الفرز للتأكد من أن الدمج لا يستثني أي علاقات بيانات مهمة.
فرز البيانات التي تحتوي على مدمج باستخدام Kutools لـ Excel
فرز البيانات التي تحتوي على مدمج باستخدام أتمتة VBA (إلغاء الدمج، التعبئة، الفرز، ثم إعادة الدمج)
بالنسبة للمستخدمين المتمرسين في الماكروهات، يُسهّل أتمتة العملية عبر VBA التعامل مع المدمج—خاصةً في مهام الفرز المتكررة أو الواسعة النطاق. ويمكن تنفيذ هذا الأسلوب بكفاءة:
- إلغاء دمج جميع مدمج في نطاق محدود
- تعبئة الخلايا الفارغة الناتجة بالقيمة الموجودة في الخلية العلوية لضمان الاتساق
- فرز البيانات حسب أي عمود محدد
- اختياريًا، إعادة دمج القيم المتطابقة المتتالية في البيانات المفرزة
تُعد هذه الطريقة مرنةً لسير العمل المخصص، لكنها تتطلب تمكين الماكروهات وتشغيلًا دقيقًا لتجنب فقدان البيانات. إذا كنت جديدًا على VBA، فجرّبها أولًا على ورقة نموذجية.
خطوات التشغيل:
1. في الشريط، انقر علىالمطوّر > Visual Basic لفتح نافذة Visual Basic for Applications، ثم انقر علىإدراج > وحدة نمطية. انسخ والصق الكود التالي في نافذة الوحدة النمطية:
Sub SortDataWithMergedCells()
Dim ws As Worksheet
Dim rng As Range, cell As Range
Dim lastRow As Long, lastCol As Long
Dim sortCol As Variant
Dim reMerge As VbMsgBoxResult
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set ws = ActiveSheet
Set rng = Application.InputBox("Select the data range to sort", xTitleId, Selection.Address, Type:=8)
If rng Is Nothing Then Exit Sub
' Store dimensions
lastRow = rng.Rows.Count + rng.Row - 1
lastCol = rng.Columns.Count + rng.Column - 1
' Unmerge and fill down values
rng.UnMerge
For Each cell In rng
If IsEmpty(cell.Value) Then
cell.Value = cell.Offset(-1, 0).Value
End If
Next cell
' Ask for sort column
sortCol = Application.InputBox("Enter column number in your selection to sort by (e.g. 1 for first column)", xTitleId, 1, Type:=1)
If sortCol = False Then Exit Sub
' Sort the range
rng.Sort Key1:=rng.Cells(1, sortCol), Order1:=xlAscending, Header:=xlNo
' Ask if user wants to re-merge identical consecutive values
reMerge = MsgBox("Do you want to re-merge identical consecutive values in the sorted range (column " & sortCol & ")?", vbYesNo + vbQuestion, xTitleId)
If reMerge = vbYes Then
Dim startCell As Range, endCell As Range
Dim currVal As Variant
Dim i As Long
Set startCell = rng.Cells(1, sortCol)
currVal = startCell.Value
Set endCell = startCell
For i = 2 To rng.Rows.Count
If rng.Cells(i, sortCol).Value = currVal Then
Set endCell = rng.Cells(i, sortCol)
Else
If startCell.Address <> endCell.Address Then
ws.Range(startCell, endCell).Merge
End If
Set startCell = rng.Cells(i, sortCol)
currVal = startCell.Value
Set endCell = startCell
End If
Next i
' Final group
If startCell.Address <> endCell.Address Then
ws.Range(startCell, endCell).Merge
End If
End If
On Error GoTo 0
End Sub2. لتشغيل الماكرو، انقر على زر
تشغيلفي محرر VBA. سيتم مطالبتك بتحديد نطاق البيانات ورقم عمود الفرز. أكد كل مطالبة، ودع الماكرو يُنفّذ جميع الخطوات تلقائيًا. وإذا اخترت إعادة الدمج، فسيقوم الكود تلقائيًا بدمج الخلايا المجاورة التي تحمل القيمة نفسها في العمود المحدد.
تلميحات:
- احرص دائمًا على عمل نسخة احتياطية من ورقة العمل قبل تشغيل ماكروهات VBA، إذ إن إجراءات مثل الدمج أو إلغاء الدمج لا يمكن التراجع عنها.
- قد يتطلب الفرز حسب رؤوس الأعمدة أو الأعمدة غير الرقمية تعديلات إضافية—تأكد من تحديد رقم العمود الصحيح وفقًا لما ورد في تحديدك.
- إذا واجهت أخطاءً بعد الفرز، فتحقق من الصف بأكمله أو مراجع الأعمدة، وقم بتعديل معايير الماكرو حسب الحاجة لتتناسب تمامًا مع تخطيط بياناتك الخاص.
المزايا:تُؤتمت مهمة متعددة الخطوات كانت تتطلب تنفيذًا يدويًا متكررًا—مما يجعلها مثالية للوظائف المتكررة.
القيود:تتطلب ماكروهات VBA تمكين الماكروهات (وهو ما قد يُثير تحذير أمان)، وقد تحتاج تخطيطات الجداول المعقدة إلى مراجعة يدوية بعد استعادة الدمج.
للحصول على أفضل النتائج، جرّب هذا الماكرو أولًا على نسخة مكرَّرة من بياناتك. يُعدّ حل VBA هذا مثاليًّا خصوصًا للمستخدمين الذين يضطرون غالبًا إلى تكرار عمليات الفرز وإعادة الدمج أو التعامل مع تصديرات بيانات ديناميكية.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل