ادغام سلولهاي دو ستون

[mostafamatloobian]

سلام
ميخوام سلولهاي دو ستون را در يكديگر ادغام كنم و كاراكترهاي موجود در آنها پشت سرهم قرار بگيرند مثلا اگر در يك ستون نام اشخاص و در ستون ديگر نام خانوادگي هست در يك ستون هم نام را داشته باشم هم نام خانوادگي

[artware]

RE: ادغام سلولهاي دو ستون

در خانه ای که میخواهی حاصل کار قرار بگیرد وارد شو و سپس دستور A2&A1= vh ,hvn ;k

[mostafamatloobian]

RE: ادغام سلولهاي دو ستون

ممنون ، ولي هنگامي كه عبارت A2&A1= vh ,hvn ;k را در يك از سلولها جاگذاري(پيس) ميكنم تفاقي رخ نميده فقط وقتي كه تايپ ميكنم : A2&A1= حاصل دو سلول A2 , A1 را اعمال ميكنه
شايد من بلد نيستم چجور بايد فرمان شما را وارد كنم اگه ممكنه بيشتر توضيح بديد
ضمنا من در دو ستون حدود 200 سلول دارم كه ميخوام اين عمل روي تمام آنها بصورت دسته جمعي اعمال بشه
اگر در مورد جستجوي يك كاراكتر خاص هم بهم آموزش بديد ممنون ميشم چون زماني كه كاراكترم را بين اين علامتها: " " تايپ ميكنم و سرچ ميكنم پيغام خطا ميده

[Almasi]

RE: ادغام سلولهاي دو ستون

با سلام

در سلول حاصل چنین کدی را تایپ نمایید.

=A1&B1
و جهت اینکه نام و نام خانوادگی به هم متصل نشوند می توان چنین اعمال کنید
=A1&" "&B1

[shamsololama]

RE: ادغام سلولهاي دو ستون

با درود فراوان
با سپاس فراوان از دوستانی که جواب داده اند که راه بسیار خوب و مفیدی را پیشنهاد کرده اند
در صورتی که نیاز داشته باشی این کار را با کد انجام دهید می توانید از این کد استفاده کنید
اگر دو ستون نام و نام خانوادگی کنار هم قرار دارند با این کد مجموع آنها را در ستون کناری آن نوشته خواهد شد


Sub Macro1()
Dim c As Range
For Each c In Selection
c.Offset(0, 3) = c.Offset(0, 0) & " " & c.Offset(0, 2)
Next
End Sub

[shareghi]

RE: ادغام سلولهاي دو ستون

با سلام
با استفاده از تابع Concatenate هم مي توان اين كار را انجام داد.

[hamalous]

RE: ادغام سلولهاي دو ستون

با درود فراوان
با سپاس فراوان از دوستانی که جواب داده اند که راه بسیار خوب و مفیدی را پیشنهاد کرده اند
در صورتی که نیاز داشته باشی این کار را با کد انجام دهید می توانید از این کد استفاده کنید
اگر دو ستون نام و نام خانوادگی کنار هم قرار دارند با این کد مجموع آنها را در ستون کناری آن نوشته خواهد شد


Sub Macro1()
Dim c As Range
For Each c In Selection
c.Offset(0, 3) = c.Offset(0, 0) & " " & c.Offset(0, 2)
Next
End Sub

سلام ، دوست عزیز کدی که شما نوشتین علاوه بر ادغام دو ستون یه ستون دیگه ایجاد میکنه علتش چیه و چطور باید از بین بره؟ یه سئوال دیگه هم داشتم اگه بخوام براش سطر تعیین کنم چکار باید بکنم منظور من اینه که یه مسیج باکس باز بشه و سئوال کنه چند سطر رو می خوای با هم ترکیب کنی بعد با وارد کردن عدد سطر فقط تا همان سطر وارد شده رو باهم ترکیب کنه ممنون

[shamsololama]

RE: ادغام سلولهاي دو ستون

با درود فراوان
با سپاس فراوان از دوستانی که جواب داده اند که راه بسیار خوب و مفیدی را پیشنهاد کرده اند
در صورتی که نیاز داشته باشی این کار را با کد انجام دهید می توانید از این کد استفاده کنید
اگر دو ستون نام و نام خانوادگی کنار هم قرار دارند با این کد مجموع آنها را در ستون کناری آن نوشته خواهد شد


Sub Macro1()
Dim c As Range
For Each c In Selection
c.Offset(0, 3) = c.Offset(0, 0) & " " & c.Offset(0, 2)
Next
End Sub

سلام ، دوست عزیز کدی که شما نوشتین علاوه بر ادغام دو ستون یه ستون دیگه ایجاد میکنه علتش چیه و چطور باید از بین بره؟ یه سئوال دیگه هم داشتم اگه بخوام براش سطر تعیین کنم چکار باید بکنم منظور من اینه که یه مسیج باکس باز بشه و سئوال کنه چند سطر رو می خوای با هم ترکیب کنی بعد با وارد کردن عدد سطر فقط تا همان سطر وارد شده رو باهم ترکیب کنه ممنون

با درود فراوان

با تغییر اعداد فست میتونی این کار رو انجام بدی
Sub Macro1()
Dim c As Range
For Each c In Selection
c.Offset(0, 2) = c.Offset(0, 0) & " " & c.Offset(0, 1)
Next
End Sub

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

ولی اگر بخوای ردیفش رو به صورت عدد وارد کنیبه این صورت میشه

دراین کد اینپود باکسی باز شده که محدوده را از ما می پرسد ما هم داخلش می نویسیم مثلا
A3:A10
که ستون آ سه تا آ ده را با ستون ب سه تاب ده ترکیب کرده و در ستون سی سه تا سی ده می نویسد


Sub Macro1()
Dim c As Range
ran = InputBox("ãÍÏæÏå ÑÇ ãÔÎÕ ˜äíÏ")
For Each c In Range(ran)
c.Offset(0, 2) = c.Offset(0, 0) & " " & c.Offset(0, 1)
Next
End Sub

[hamalous]

RE: ادغام سلولهاي دو ستون

ممنون دوست عزیز چطور میشه یه سلولهای یه ستون رو با دو ستون بعد از خودش ادغام کرد مثلا ستون A با ستون C ممنون

[shamsololama]

RE: ادغام سلولهاي دو ستون

ممنون دوست عزیز چطور میشه یه سلولهای یه ستون رو با دو ستون بعد از خودش ادغام کرد مثلا ستون A با ستون C ممنون

با درود فراوان

شبیه به همان کدی که درپست قبلی توضیح دادم فقط کافیه که عدد دوم آفست آن را تغییر دهیم و یک را به دو تغییر بدهیم

یعنی این کد قبلی را

Sub Macro1()
Dim c As Range
ran = InputBox("ãÍÏæÏå ÑÇ ãÔÎÕ ˜äíÏ")
For Each c In Range(ran)
c.Offset(0, 2) = c.Offset(0, 0) & " " & c.Offset(0, 1)
Next
End Sub

تغییر داده به این کد

Sub Macro1()
Dim c As Range
ran = InputBox("ãÍÏæÏå ÑÇ ãÔÎÕ ˜äíÏ")
For Each c In Range(ran)
c.Offset(0, 2) = c.Offset(0, 0) & " " & c.Offset(0, 2)
Next
End Sub

[hamidreza313]

Re: ادغام سلولهاي دو ستون

با سلام خدمت تمام دوستان
آقا مصطفي عزيز ، بايد خدمت شما عرض كنم كه اگر مي خواهي دو سلول را با يكديگر ادغام كني كه مثلا در يكي نام و در ديگري نام خانوادگي است ان هم به صورت پشت سر هم و با فاصله space در بين دو كلمه خيلي خيلي راحته فقط كافيه از فرمول متني زير استفاده كني CONCATENATE(a1;" ";b1) . be hamin rahati

در نگاه كسي كه پرواز را نميفهمد ، هرچقدر اوج بگيري حقيرتر ميشوي.


ویدئوی آموزشی
ترکیب محتویات دو یا چند سلول در اکسل