وقتی جدا کننده ما ; باشه به مشکل میخوریم ( بعد از ترکیب سل ها علامت بین اونها وجود داره) وقتی براکت رو پاک کردید قبل از مساوی فرمول علامت ' قرار بدید و بعد از طریق find and replace علامت , رو با علامت ; عوض کنید و در آخر علامت ' رو از ابتدای فرمول حذف کنید.
اگر میخواهید یک تابع هم میشه ساخت و به نتیجه رسید.
فایل نمونه رو ملاحظه کنید.تو فایل به این صورت بنویسید :
کد:
Function concat(r As Range) As String
Dim Val, d As String
d = ","
For Each cell In r
If CStr(cell.Value) <> "" And CStr(cell.Value) <> " " Then
Val = Val & CStr(cell.Value) & d
End If
Next
Val = Left(Val, Len(Val) - Len(d))
concat = Val
End Function
علاقه مندی ها (Bookmarks)