ادغام سلولها

**iranweld** · 2016/07/20, 12:14

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

**amir_ts** · 2016/07/20, 12:36

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

کد PHP:


=CONCATENATE(TRANSPOSE(A1:A100))

قبل زدن enter قسمت

کد PHP:


TRANSPOSE(A1:A100)

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

کد PHP:


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

**mina javan** · 2016/07/20, 13:36

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

**amir_ts** · 2016/07/20, 13:45

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

**mina javan** · 2016/07/20, 14:06

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

فایل های پیوست شده

**amir_ts** · 2016/07/20, 14:26

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

کد PHP:


=concat(A1:A20)

کد:

[LEFT]

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


 [/LEFT]

فایل های پیوست شده