كيفية فك دمج الخلايا وملئها بالقيم المكررة في Excel؟

إذا كان لديك ورقة عمل تحتوي على العديد من الخلايا المدمجة، والآن تحتاج إلى فك دمجها وتعبئة القيم الأصلية تلقائيًا من الخلايا المدمجة كما هو موضح في لقطات الشاشة التالية. كيف يمكنك التعامل مع هذه المهمة بسرعة؟

فك دمج الخلايا وملئها بالبيانات المكررة باستخدام أمر Go To Special

فك دمج الخلايا وملئها بالبيانات المكررة باستخدام كود VBA

فك دمج الخلايا وملئها بالبيانات المكررة بنقرة واحدة

فك دمج الخلايا وملئها بالبيانات المكررة باستخدام أمر Go To Special

باستخدام أمر Go To Special، يمكنك فك دمج الخلايا وتعبئة القيم. لكن هذه الطريقة مزعجة بعض الشيء، يرجى اتباع الخطوات التالية:

1. حدد الأعمدة التي تحتوي على خلايا مدمجة.

2. انقر فوق Home > Merge & Center > Unmerge Cells. شاهد لقطة الشاشة:

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

4. بعد ذلك، انقر فوق Home > Find & Select > Go To Special. في مربع الحوار Go To Special، حدد الخيار Blanks. شاهد لقطة الشاشة:

5. وبعد ذلك انقر فوق موافق، سيتم تحديد جميع الخلايا الفارغة في النطاق. ثم أدخل = واضغط على مفتاح السهم للأعلى على لوحة المفاتيح. شاهد لقطة الشاشة:

6. ثم اضغط على مفتاح Ctrl + Enter، سيتم تعبئة جميع الخلايا الفارغة بالبيانات المدمجة الأصلية. شاهد لقطة الشاشة:

فك دمج الخلايا وملئها بالبيانات المكررة باستخدام كود VBA

مع الكود التالي لـ VBA، يمكنك بسرعة فك دمج الخلايا وتعبئة القيم.

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

2. انقر فوق Insert > Module، والصق ما يلي من الماكرو في نافذة الوحدة.

Sub UnMergeSameCell()
'Upadateby Extendoffice
Dim Rng As Range, xCell As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Rng In WorkRng
    If Rng.MergeCells Then
        With Rng.MergeArea
            .UnMerge
            .Formula = Rng.Formula
        End With
    End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

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

4. انقر فوق موافق، ثم يتم فك دمج الخلايا المدمجة وتعبئتها تلقائيًا بالقيم المدمجة الأصلية.

فك دمج الخلايا وملئها بالبيانات المكررة بنقرة واحدة

مع أداة Unmerge Cell من Kutools لـ Excel، يمكنك فك دمج الخلايا وملئها بالبيانات المكررة بنقرة واحدة، هذه الطريقة بسيطة للغاية ومريحة.

بعد تثبيت Kutools لـ Excel، يمكنك القيام بما يلي:

1. حدد الأعمدة التي تريد فك دمجها وتعبئة البيانات فيها.

2. انقر فوق Kutools > Merge & Split > Unmerge Cells & Fill Value، شاهد لقطة الشاشة:

3. وقد تم فك دمج الخلايا وتم تعبئتها بالقيم المكررة في الحال. شاهد لقطات الشاشة:

فك دمج الخلايا وملئها بالبيانات المكررة مع Kutools لـ Excel

مقال ذو صلة:

دمج الصفوف المجاورة بنفس البيانات في Excel