احتجت لدمج محتويات عدد من الخلايا مع دمج محتوياتها فى كمية كبيرة من الجدوال ، مع اضافة فاصلة بين محتوياتها
فاعددت هذا الكود
اختر الخلايا المراد دمجها و دمج محتوياتها قبل تشغيل الكود
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
لتنزل الملف