السلام عليكم ورحمة الله وبركاته
نبدأ بقى نشتغل على الأكواد شوية واقدم لكم اليوم
كود بسيط لدمج الخلايا الممتلة بالفارغة دفعة واحدة فى اى عمود محدد
ناخد مثال كدا ونشوف الصورة اللى قدامنا دى
ها شايفين ايه واحد ناصح بيقولى شايف صقر
غلط ياحماده قدامنا فى العمود A فيه نص وبعده صفوف فارغة وبعدين نص تانى وهكذا
المطلوب كل الخلايا الممتلئة دى نعملها دمج مع الخلايا الفارغة اللى تحتها
عشان نوصل لنفس النتيجة اللى فى العمود B وبافتراض ان البيانات قد تصل لصفوف بأعداد ضخمة
يصبح موضوع الدمج بالطريقة اليدوية أمر شبه مستحيل
والان مع كود Alsaqr_Merge بضغطة واحده بالكود التالى هنوصل للنتيجة المرغوب فيها
ما عليك سوى الوقوف على اى خلية ممتلئة بالعمود المراد اجراء عملية الدمج عليه
واليكم الكود المستخدم
CODE
Sub Alsar_Merge()
'اعداد/ اسلام عبدالله
Dim a, b, c&
If ActiveCell.Value = "" Then MsgBox "يجب تحديد خلية بها نص أولاً", vbInformation + vbMsgBoxRight, "أكاديمية الصقر للتدريب": Exit Sub
a = ActiveCell.Row
b = ActiveCell.End(xlDown).Row - 1
c = ActiveCell.Column
If Cells(b, c) & Cells(b + 1, c) = "" Then MsgBox "باقى العمود فارغ", vbInformation + vbMsgBoxRight, "أكاديمية الصقر للتدريب": Exit Sub
Do
Range(Cells(a, c), Cells(b, c)).Merge
a = b + 1: b = Cells(a, c).End(xlDown).Row - 1
If Cells(b + 1, c).Value = "" Or Cells(a, c).Row = Rows.Count Then MsgBox "تم دمج الخلايا", vbInformation + vbMsgBoxRight, "أكاديمية الصقر للتدريب": Exit Sub
Loop
End Sub
والمفاجئة هتاخد مع الكود صينية هدية
قصدى ملف العمل
الموضوع قصير فقولت لازم نطول احنا بقى بالتاتش بتاعنا 
والى اللقاء القريب ، كان معكم ومعنا ومعاهم برضوا
اخوكم فى الله اسلام عبدالله 