اخى يوسف
دالة مستحدثة لتجميع الخلايا بمدى معين
انظر للمرفق
سعد عابد
Function Concat(Cellules As Range, Optional Séparateur As String) As String
Dim C As Range
If Séparateur = "" Then Séparateur = " "
For Each C In Cellules
Concat = Concat & Séparateur & C.Value
Next C
Concat = Right(Concat, Len(Concat) - Len(Séparateur))
End Function
تجميع.rar