طريقة حفظ ماموجود بالخلية المدجة في متغير ليتم استعماله لاحقا

[صباح حسين]

اخواني الاعزاز لدي مستند تحتوي على خلايا مدمجة واحتاج الى كود لنسخ ماموجود في الخلية المدمجة في متغير وليكن (x ) لغرض استعماله لاحقا وقد استعملت الكود الاتي لتحديد الخلية المدمجة . ارجو تكملته ليتم المطلوب

Application.ScreenUpdating = False

Dim aqa As Range

Dim x1 As String

Set aqa = ActiveSheet.UsedRange

For Each cel In aqa

If cel.MergeCells = True Then

X=

cel.UnMerge

[ياسر خليل أبو البراء]

Application.ScreenUpdating = False

Dim aqa As Range

Dim x1 As String

Set aqa = ActiveSheet.UsedRange

For Each cel In aqa

If cel.MergeCells = True Then

cel.UnMerge

End If

Next cel

[صباح حسين]

السلام عليكم . اخي ياسر اسف لتاخر ردي عليك لكوني لم ادخل الموقع الا اليوم . اخي العزيز الظاهر اني لم اوفق في طرح طلبي جيداً . انا اود ان اخزن ماكان تحتويه الخلايا المدمجة من قيم سواء كان رقم او نص في المتغير X قبل ان الغي حالة ادماج الخلايا لانني احتاج هذه القيمة لاحقاً . اما في حالة الكودالذي ارفقته انت فانه يلغي الدمج من غير ان اعرف ماذا كانت تحتوي بالاصل . ارجو انني لم اثقل عليك . اكرر شكري لك ولجميع الاخوةمن امثالك الذين يمدون يد المساعدة لنا في هذا المنتدى الشيق والمفيد .