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

[generalsamad]

با سلام
من یه راه حل میدم شاید کارتون رو راه انداخت
فقط واسه ستون نام باید یه کارائی کنی که ستون نامتون هم درست شه
مثلا بیاید از Replace استفاده کنید و تمام نام خانوادگی ها رو تغییر بدید به به حرف Z بعد دوباره از Replace استفاده کنید و حرف X رو جایگزین نام کنید
دوباره Replace و Z رو نام خانوادگی میکنیم و در آخر دوباره Replace و Xها رو تغییر میدیم به نام و یک فضای خالی
هدف این کار این بوده که بین نام و نام خانوادگی تمایز ایجاد شه که فرمول زیر رو وقتی به کار بردیم مشکلی بوجود نیاد

بعد از این کار کل ستونها رو به ترتیب پشت سر هم قرار میدیم (حتی سلولهای خالی باید کپی یا جابجا شوند که نظم قبلیشون بهم نخوره)
بعد از این فرمول میتونیم استفاده کنیم بفرض داده ها توی ستون A هستند

=IF(LEFT(A17;5)="نام  ";MID(A17;6;LEN(A17)-5);IF(LEFT(A17;12)="نام خانوادگی";MID(A17;14;LEN(A17)-13);IF(LEFT(A17;4)="مدرک";MID(A17;6;LEN(A17)-5);IF(LEFT(A17;2)="سن";MID(A17;4;LEN(A17)-3);IF(LEFT(A17;8)="محل تولد";MID(A17;10;LEN(A17)-9);IF(LEFT(A17;2)="کد";MID(A17;4;LEN(A17)-3);IF(LEFT(A17;7)="مسئولیت";MID(A17;9;LEN(A17)-8);IF(LEFT(A17;4)="تاهل";MID(A17;6;LEN(A17)-5);IF(LEFT(A17;4)="مسکن";MID(A17;6;LEN(A17)-5);IF(LEFT(A17;15)=" شماره شناسنام ه";MID(A17;17;LEN(A17)-16);IF(LEFT(A17;5)="جنسیت";MID(A17;7;LEN(A17)-6);""))))))))))) 

بعد باید کل ستون رو تبدیل به Value کرده که موقع جابجائی با خطا روبرو نشیم
Copy=>Paste Special=>Value

کار آخر اینه که به تعداد سطر جدول باید از بالا به پائین عمل جابجائی رو انجام بدیم که توی این سوال ما 12تا 12تا از ستون دوم Cut به به ستونهای مورد نظر انتقال میدهیم
2 عمل آخر رو روی فایل اعمال نکردم که فرمول رو ببینید
فایل ضمیمه گردید

[hasanr]

سلام
قبلا سوالی در پست اول این تاپیک مطرح کرده بودم
به نظرم سوال رو دقیق مطرح نکرده بودم و نمونه فایلی هم که در پستهای بعدیش گذاشتم اونقدری ساده نبود که دقیقا منظورمو برسونه ، البته پاسخهای اساتید و دوستان محترم سایت کاملا مفید و کاربردی بود ولی مشکل منو کاملا رفع نکرد.
بنابراین با اجازه همه دوباره مشکلو مطرح می کنم:

جدولی دارم حاوی چند هزار سطر و حدود 10 ستون . هر سطر حاوی اطلاعات مربوط به یکی از کارمندان است ولی اطلاعات ستونها پس و پیش ثبت شده و برخی اطلاعات هم موجود نیست.

نام علی احمدی	کد 2545	مدرک دیپلم	سن 36
نام محسن اصفهانی	مسئولیت تایپیست	سن 25	محل تولد تهران	کد 88978
نام رضا اصغری	مسئولیت مدیر داخلی	کد 5244
نام احمد رحمانی	محل تولد شیراز	سن 28
نام کامران اکبری	کد 878	مدرک زیر دیپلم	مسئولیت آبدارخانه

قراره اطلاعات به صورت زیر درست بشن

نام علی احمدی	مدرک دیپلم	سن 36			کد 2545
نام محسن اصفهانی		سن 25	مسئولیت تایپیست	محل تولد تهران	کد 88978
نام رضا اصغری			مسئولیت مدیر داخلی		کد 5244
نام احمد رحمانی		سن 28		محل تولد شیراز
نام کامران اکبری	مدرک زیر دیپلم		مسئولیت آبدارخانه		کد 878

پیشنهاد خودم اینه که ستون b رو پیمایش کنیم و هر جا شرط ما برقرار بود محتوای سلول رو به سلول مشابه در ستون یازدهم انتقال بدیم یا ده ستون شیفت بدیم به جلو ( شیفت دادن در اکسل رو بلد نیستم)
بعد همین کار رو برای ستونهای دیگه ینی ستون 3 تا 10 انجام بدیم. تا اینجا همه مدرکها به ستون یازدهم منتقل شده
در مرحله بعدی با تغییر ماکرو دنبال عبارت "سن " تو ستونها می گردیم و سلولهای حاوی سن رو به ستون دوازدهم منتقل می کنیم و ...

Dim i As Long
Dim LR As Long
LR = 6000
For i = 1 To LR
 if(left(b1;4)="مدرک";b1;"") Then
  Range("k" & i) = Range("b" & i)
  Range("b" & i).Clear
 End If
Next i

[generalsamad]

با سلام
لطفا یه فایل نمونه قرار بدید تا روی اون فایل فرمولها قرار داده بشه

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

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

Dim i As Long
Dim LR As Long
LR = 6000
For i = 1 To LR
 if(left(b1;4)="مدرک";b1;"") Then
  Range("k" & i) = Range("b" & i)
  Range("b" & i).Clear
 End If
Next i

سلام،
دوست عزیز به انجمنِ خودتان خوش آمدید.

لطفاً موضوع را در همان تاپیک ادامه دهید و از ایجاد تاپیک تکراری خودداری کنید ( اینکار انجام شد )

با این روش علاوه بر اینکه پاسخهای دوستان را یکجا میتوانید داشته باشید، قطعاً سریعتر نیز به جواب خواهید رسید.

موفق باشید.

[mohammad_ashooryan]

با سلام
با استفاده از توابع left و indirect و address , row و column و if , min و index به صورت آرايه اي جواب سوالتون رو پيوست كردم.
فرمولها قابليت كپي به سلولهاي پايينتر را نيز دارند. (من تا سطر 20 كپي كردم.)
سوالي بود در خدمتم.
نمونه مشخصات.xlsx

[hasanr]

خٰٰٰیلیییییییی خیلییییییییی ممنونم
اگه ممکنه در مورد کدهایی که استفاده کردین یه توضیحی بدین لطفا چون به نظر میاد همینا برای کار من کفایت می کنه

همونطوری که گفتم ستونهای فایل بنده حدود ده تاست ولی شامل حدود 40 تا 50 ویژگی مثل سن - قد - وزن رنگ چشم و ... میشه بنابراین اگه بشه ماکرو به همون شکلی که خودم عرض کردم درست بشه که بتونم مثلا 40 تا ماکرو بنویسم و تک تکشون رو روی همه سلولها اجرا کنم به نظرم کار راحتتر و اصولی تر بشه بنابراین اگه از اساتید کسی میتونه تو این مورد کمک کنه لطفا بفرمایید

[ordouei]

سلام
لطفا مشخص شود اطلاعات هر شخص در ردیف است یا در ستون در آن صورت قابل تفکیک با سر تیر است ( فایل مادری )
البته اگر هر شخص در یک ردیف باشد دیگر نیازی نیست ترتیب رعایت شود یعنی نفر اول نام در ستون 1 ونفر دوم نام در ستون 6
در این صورت قابل تفکیک میباشد .

[mohammad_ashooryan]

سلام
شما توي فايل پيوست جديد بانوشتن فرمول توضيح داده شده به صورت آرايه اي زير توي سلول a2 و كپي آن به صورت ستوني و سطري ميتوانيد به نتيجه خود برسيد.

شما با اينكار هر چند تا ويژگي رو ميتونيد توي سطر 1 شيت نتيجه مورد نظر اضافه كنيد.
در ضمن براي ديدن مراحل فرمول توي يه شيت جديد به نام مراحل فرمول با محدود كردن محدوده مورد نظر گذاشتم كه شما ميتونيد با كليك بر روي سلول a2 و انتخاب گزينه evaluate formula از تب formulas مراحل رسيدن به جواب رو ببينيد.
فایل پیوست 6960

[hasanr]

سلام
لطفا مشخص شود اطلاعات هر شخص در ردیف است یا در ستون در آن صورت قابل تفکیک با سر تیر است ( فایل مادری )
البته اگر هر شخص در یک ردیف باشد دیگر نیازی نیست ترتیب رعایت شود یعنی نفر اول نام در ستون 1 ونفر دوم نام در ستون 6
در این صورت قابل تفکیک میباشد .

در پست 12 با جدول توضیح داده ام که اطلاعات هر شخص در ردیف است

[hasanr]

سلام
شما توي فايل پيوست جديد بانوشتن فرمول توضيح داده شده به صورت آرايه اي زير توي سلول a2 و كپي آن به صورت ستوني و سطري ميتوانيد به نتيجه خود برسيد.
شما با اينكار هر چند تا ويژگي رو ميتونيد توي سطر 1 شيت نتيجه مورد نظر اضافه كنيد.
در ضمن براي ديدن مراحل فرمول توي يه شيت جديد به نام مراحل فرمول با محدود كردن محدوده مورد نظر گذاشتم كه شما ميتونيد با كليك بر روي سلول a2 و انتخاب گزينه evaluate formula از تب formulas مراحل رسيدن به جواب رو ببينيد.
فایل پیوست 6960

فایل پیوست رو نتونستم دانلود کنم لطفا دوباره لطف کنین