دالة دمج صفوف. بالاكسيل

[عبدالله نبهان 2]

دمج خلايا مثل المرافقات لو سمحتم ضروري

حيث يوجد في الكشف اكثر من ١٠٠٠ اسم

[أ / محمد صالح]

الحالة الأولى أفضل من حيث البرمجة والمعادلات الاحصائية فيما بعد أن يكون بجانب كل ابن اسم الوصي

لأنه في حالة الدمج يكون اسم الوصي مكتوبا امام أول ابن فقط والباقي فراغ

وإذا كنت مصمما على مخالفة أساسيات البرمجة فيمكنك إرفاق ملفك أو مثال منه لوضع الكود المناسب لملفك

بالتوفيق

[عبدالله نبهان 2]

المطلوب هو الدمج بحيث يكون كل ام في خانة واحدة والابناء كل ابن في صف كما في المرفق

اريد طريقة ادمج ملف فيه ٥٠٠٠ اسم بطريقة سريعة اذا امكن

 

ام استخدم الطريقة اليدوية

[أبوأحـمـد]

هذا الكود سيلغي الدمج وينسخ قيمة الخلية اللي فوقها

Sub UnMergeFill()

Dim cell As Range, joinedCells As Range

For Each cell In ThisWorkbook.ActiveSheet.UsedRange
    If cell.MergeCells Then
        Set joinedCells = cell.MergeArea
        cell.MergeCells = False
        joinedCells.Value = cell.Value
    End If
Next

End Sub