ادغام سلولها

[mina javan]

با سلام
میخواستم اطلاعات چندین سلول رو با هم ترکیب کنم و داخل یک سلول قرار بدم و مابین هر کدام یک کاما بگذارم
روشهای استفاده از & و concatenate رو میدونم ولی در این روشها باید اطلاعات هر سلول جداگانه وارد بشه و برای تعداد زیادی سلول کار سختی میشه
آیا راه حل دیگه ای وجود داره؟
در ضمن هیچکدام از سلولها فرمول نیستند

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

اگر همه سلولهای ادغام شده در یک ستون قرار میگیرند با درگ کردن یک سلول که در آن فرمول رو نوشتید،لازم به تایپ مجدد فرمول نمی باشد.

[amir_ts]

با سلام
این روش رو هم امتحان کنید.
فرض کنید سلول های a1 تا a100 رو میخواهید در یک سلول ادغام کنید.این فرمول رو در سل مورد نظر می نویسید:

=CONCATENATE(TRANSPOSE(A1:A100)) 

قبل زدن enter قسمت

TRANSPOSE(A1:A100) 

رو انتخاب میکنید و کلی F9 رو میزنید.
از ابتدا و انتها فرمول براکت {} رو حذف میکنید و بعد ENTER رو میزنید.
میبینید که تمام اطلاعات ستون در یک سل ادغام شده اند.
اگر مایل به استفاده از کاما یا هر کاراکتر دیگری بین اطلاعات لیست بودید فرمول رو به این صورت بنویسید.

=CONCATENATE(TRANSPOSE(A1:A100&",")) 

[mina javan]

سلام ممنون از راهنماییتون
ولی این روش رو هم امتحان کردم و خطا میده

[amir_ts]

مطمئنا" یک قسمت کار درست نیست !
شما در فرمول ها از ; استفاده میکنید یا از , ؟

[mina javan]

این فرومول که هیچکدام از علامتها رو نداره
از مراحل کار براتون عکس میفرستم

[amir_ts]

وقتی جدا کننده ما ; باشه به مشکل میخوریم ( بعد از ترکیب سل ها علامت بین اونها وجود داره) وقتی براکت رو پاک کردید قبل از مساوی فرمول علامت ' قرار بدید و بعد از طریق find and replace علامت , رو با علامت ; عوض کنید و در آخر علامت ' رو از ابتدای فرمول حذف کنید.
اگر میخواهید یک تابع هم میشه ساخت و به نتیجه رسید.
فایل نمونه رو ملاحظه کنید.تو فایل به این صورت بنویسید :

=concat(A1:A20) 

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


 

[mina javan]

ممنون از لطفتون خیلی کمکم کردین