بانی یک مشکل رایج را که هنگام وارد کردن یک فایل به اکسل رخ می دهد، توضیح داد. فایلی که وارد می شود یک فایل متنی اسکن شده است، و وارد کردن به خوبی انجام می شود، با یک نقص کوچک: در یک ستون که متنی در سند اصلی پیچیده شده بود، اکنون متن چندین ردیف را در کاربرگ اشغال می کند. بانی به دنبال راهی برای ترکیب آن سطرها در یک سلول واحد در آن ستون است.
چند راه برای این کار وجود دارد. اگر مجبور نیستید این کار را اغلب انجام دهید، ممکن است یک رویکرد فرمولی بهترین باشد. فقط از علامت علامت (&) برای به هم پیوستن محتویات ردیف هایی که می خواهید ترکیب کنید استفاده کنید:
=C6 & " " & C7 & " " & C8 & " " & C9
نتیجه این است که تمام متن در یک سلول واحد ترکیب می شود. می توانید این نتیجه را در کلیپ بورد کپی کنید و از Paste Special برای قرار دادن آن در سلول نهایی که به آن نیاز دارید استفاده کنید. در نهایت، می توانید چندین ردیف اصلی را که دیگر مورد نیاز نیستند حذف کنید.
اگر از اکسل 2019 یا جدیدتر استفاده می کنید (از جمله اکسل در مایکروسافت 365)، می توانید از تابع TEXTJOIN برای ترکیب کردن استفاده کنید:
=TEXTJOIN(" ", TRUE, C6:C9)
پارامتر اول برای تابع TEXTJOIN نشان می دهد که چه چیزی بین محتویات سلول ترکیبی می خواهید، پارامتر دوم نشان می دهد که می خواهید سلول های خالی نادیده گرفته شوند و پارامتر نهایی محدوده ای را که می خواهید ترکیب کنید را نشان می دهد.
اگر سلول هایی که می خواهید ترکیب کنید همگی حاوی متن باشند، روش دیگر بسیار خوب کار می کند. فرض کنید می خواهید سلول های C6:C9 را ترکیب کنید. تنها کاری که باید انجام دهید این است که ستون C را گسترده کنید تا بتواند محتویات آن سلول ها را در یک خط داشته باشد. سپس سلول ها را انتخاب کنید. تب Home روبان را نمایش دهید و توجه داشته باشید که در گروه Editing ابزاری به نام Fill وجود دارد. اگر روی ابزار کلیک کنید، یک لیست کشویی از گزینه ها را می بینید که باید از بین آنها Justify را انتخاب کنید. وقتی این کار را انجام می دهید، تمام مقادیر سلول C6 را با فاصله از هم جدا می کنید.
اگر نیاز دارید که سلول ها را اغلب به هم متصل کنید، ممکن است از یک ماکرو ساده بهره مند شوید:
Sub Combine()
Dim J As Integer
If Selection.Cells.Count > 1 Then
For J = 2 To Selection.Cells.Count
Selection.Cells(1).Value = _
Selection.Cells(1).Value & " " & _
Selection.Cells(J).Value
Selection.Cells(J).Clear
Next J
End If
End Sub
برای استفاده از این ماکرو، سلول هایی را که می خواهید به هم متصل کنید انتخاب کنید و سپس ماکرو را اجرا کنید. محتویات تمام سلول ها در اولین سلول در انتخاب ترکیب می شوند، سپس هر آنچه در سلول های دیگر وجود دارد پاک می شود. ماکرو هیچ ردیفی را حذف نمی کند. که برای شما باقی مانده است. با این حال، محتویات را به سرعت ترکیب می کند - حتی اگر یک کلید میانبر به ماکرو اختصاص دهید، سریع تر.
