ادغام محتویات دو سلول در یک سلول

[Fereidoonbani]

سلام
یک فایل متنی برای فراگیری اکسل از کجا تهیه کنم؟

[حسام بحرانی]

سلام اگر تعداد ستونها در اکسل زیاد باشد و ما بخواهیم همه ستونها را در کنار هم بیاریم یک فرمول کلی نداریم.
مثلا تعداد ستون موجود 1000 ستون باشد

سلام دوست عزیز
به انجمن اکسل ایران خوش آمدید.
در اکسل 2016 و بعد از آن توابع جدیدی افزوده شده که می توان از تابع concat و text join نام برد.

درواقع این توابع برای ترکیب دو و یا چندین سلول از اکسل بصورتی کاملاً راحت طراحی شده اند.

فکر می کنم چنین توابعی خواسته شما را برآورده می کند.
موفق باشید.

[zolfigol]

سلام اگر تعداد ستونها در اکسل زیاد باشد و ما بخواهیم همه ستونها را در کنار هم بیاریم یک فرمول کلی نداریم.
مثلا تعداد ستون موجود 1000 ستون باشد

[yousef82]

بله من قسمتی از فایل اصلی رو گذاشتم در حد 300 رکورد که قبلا اونارو تا حدی ویرایش کرده بودم و اکثرا در ستون اول بود.. من 20 تا فایل 5000 رکوردی دارم که باید اونارو ویرایش کنم !! حالا دیدید که چگونه هنگ میکنه اکسل ! واقعا علتش چیه ؟؟؟ حالا اگه همون رو با 2003 باز میکردین هیچ طورش نمیشد ..

آقا عطا روشی که برای delete کردن سلولهای خالی گذاشتن جالب بود و کاربردی . ممنون من الان دارم با اکسل 2003 فایلها رو ویرایش میکنم و تا حدودی مشکلم مرتفع شده .. بهر روی از شما بسیار سپاسگذارم برادرعزیز.. خیلی مخلصیم

[a.dal65]

توی فایلی که شما کذاشتین همه اطلاعات شما در سطر A هستش.
فقط توی فایلتون توی ردیف 46 یا 47 یه مشکلی هست وقتی اسکرول میکنم و به اون قسمت میرسم اکسل هننک میکنه
به هر حال از کل شیت یه کپی گرفتم و در یه فایل جدید paste کردم تا مشکل اون سطر مورد دار حل بشه.
کلا نزدیک 300 تا سطر اطلاعات بود . درسته ؟

[yousef82]

آقا عطای عزیز مشکلم رو بلاخره یافتم .. من فایلهایی اکسلی که درونشان حداقل 5000 رکورد وجود دارد قبلا با office 2003 ایجاد کرده بودم و بعد از مدتها برای ویرایش و اعمال تغییرات اونها رو با office 2010 بازمیکردم و هنگامیکه میخواستم اونارو ویرایش کنم فایل crash میکرد ... حال اومدم دوباره روی سیستم office 2003 رو دوباره نصب کردم و اینبار اونارو با اکسل 2003 باز کردم . در عین ناباوری با اکسل 2003 هیچ مشکلی ندارند و کاملا قابل ویرایش هستند !! من حتی افیس 2007 رو هم نصب کردم مشکل دار شدند فقط این فایلها با 2003 جواب میدهند ! چشم نمونه کارم که دو فایل که یکی با فرمت اکسل 2003 و دیگری با اکسل 2003 به بالا ( xlsx. ) هست رو برای شما میگذارم که زحمت نظارت و رسیدگی با شما باشد . هدفم اینستکه کل مطالب فونت فارسی در ستون اول بیایند . ممنونم

[a.dal65]

بی زحمت قسمتی از فایلتون رو بزارید حداقل .(یا یه نمونه شبیه به اون بزارید )
الان مشکل شما سلول های خالی هست که بین سلول های دیگه قرار گرفته ؟
How to Automatically Delete Blank Cells to Organize Data - Excel Tactics

[yousef82]

سلام آقا عطای عزیز ممنون که جواب ما رو دادی .. راستش از دیروز تا الان خیلی با اکسل ور رفتم .. آقا من یک سری فایل word دارم که درون فایل از سه زبان فرانسه انگلیسی و فارسی مطالبی هست .. من برای موارد آموزشی لازم میبینم که اونهارو در execl کنار هم بیارم .. حالا من مطالب فایل word را درون execl که paste میکنم میتوانم از گزینه find & replace استفاده کرده و فقط به مطالب فارسی دست پیدا کنم و با این وسیله کل مطالب فونت انگلیش را حذف کنم ..

حال یه فایل excel دارم که فقط شامل کلمات و جملات فارسی هست که در سلولهای مختلف آمده اند و طبیعتا خیلی از سلولها هم در این فایل خالی و blank هستند . حال کار من از اینجا شروع میشه من هدفم اینه که کل این کلمات و احیانا جملات فارسی که در سطر و ستونهای مختلف و بطور پراکنده امده اند را همگی در ستون اول یعنی در سلولهای A1 تا مثلا A5000 لیست کنم :
راه طاقت فرسا برای این کار اینستکه همگی سلولهای خالی و blank را انتخاب کرده و روی یکی از سلولهای انتخاب شده راست کلیک کنیم و
گزینه اول یعنی shift cells left را انتخاب کنیم تا با این عمل همگی در ستون اول سورت شوند .. راه دیگر را هم قبلا در پستهای دیگر گفته ام اما موفقیت آمیز نبود و فایل crash میکند

[a.dal65]

با سلام
من الان 3 تا پست آخرتونو دیدم.
بی زحمت یه نمونه فایل بزار با یه توضیح و مثال، که میخوای چیکار کنی.

[yousef82]

موقع بسته شدن و crash فایل اکسل در رابطه با problem details این پیغام رو میده :
: fault module name
mso.dll
: fault module timestamp
46eafebf
: LCID
1033
: Brand
office12Crash
: skulcid
1033
آیا این موارد معنی و مفهومی دارند و آیا میتوانی از close و ریستارت اجباری فایل اکسل رهایی پیدا کرد ؟ ممنون میشم که راهنمایی کنید

[yousef82]

سرچی که توی نت کردم .. روش دیگر استفاده از این ماکرو VBA for inverting selections هست

<em>Sub InvertSelection()
'Updateby20140314
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
If Application.Intersect(rng, Rng1) Is Nothing Then
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
End If
Next
OutRng.Select
End Sub<em><span style="background-color: #ccffcc;"></span></em>
</em>

سئوال من اینه که در محدوه range1 و rang2 مثلا برای همون 300 رکورد چه باید قرار داد ؟ و آیا اصلا این ماکرو برای reverse کردن جواب میدهد ؟

[yousef82]

با سلام و خسته نباشید .. نمیدونم جای این موضوع اینجا هست یا نه اما هر چی توی انجمن گشتم مطلبی دراین مورد یافت نشد .. راستش من یه فایل اکسل مثلا با 300 رکورد دارم که در بین خونه های a1 و m1 تا a300 و m300 در سلولها در جاهای مختلف مطلب نوشته شده و بعضی از سلولها خالی هستن .. من در مورد موضوعی احتیاج دارم که عمل انتخاب برعکس را انجام دهم .
یعنی میام در این محدوده ابتدا با استفاده از گزینه select cells with format درمنوی kutools سلولهایی که متن فارسی دارند رو انتخاب میکنم و حال برای اینکه انتخاب برعکس داشته باشم از گزینه select range helper و سپس گزینه inverse selection رو انتخاب میکنم اما پنجره اون رو نمیبندمش .. بعد میام کل ناحیه ای که مطالب در اونا هست رو select میکنم .. با این روش خود بخود انتخاب معکوس انجام میشه .. این روش جواب میده اما متاسفانه فایل اکسل crash میکنه و ریستارت میکنه !!
هدف من از این reverse انتخاب کردن اینه که مثلا توی یه فیل 5000 رکوردی این عملیات انتخاب معکوس انجام بشه و بعد با یه حرکت delete و انتقال به left همه محتویات سلولها در ستون a1 تا a5000 خودبخود sort بشن که این واقعا کارها رو آسون میکنه .. خیلی ممنون میشم که راهنمایی بفرمایید اساتید محترم

[yousef82]

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

[a.dal65]

خط شماره 27 رو تغییر بده به این مثلا :

  .Value = .Value & Trim(xRgEach.Value) & "----" 

الان بین هر سلول 4 تا - میزاره

[yousef82]

سلام جناب دلیران ، بسیار بسیار ممنونم از شما بابت این راهنمایی که کردید . واقعا کمک بزرگی بود به بنده .. فقط یه سئوال چگونه میتوانم چند فاصله خالی یا چند دش (-) بین محتویات سلول a1 و b1 ایجاد کنم که محتویات بیشتر متمایز شوند، بسیار ممنونم