كود لدمج محتويات عدة خلايا فى جدول ، و اضافة فاصلة بينها فى الخلية المدمجة 1.0.1

احتجت لدمج محتويات  عدد من الخلايا مع دمج محتوياتها فى كمية كبيرة من الجدوال ، مع اضافة فاصلة بين محتوياتها

فاعددت هذا الكود

اختر الخلايا المراد دمجها و دمج محتوياتها قبل تشغيل الكود

Sub mergitwithcomma()

Selection.Cells.merge

       
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "، "
        
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
     
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    End Sub