[حل شده] جدا کردن کاراکترهای موجود در یک سلول و انتقال به سلولهای جداگانه

[rm58]

با سلام به دوستان و اساتید ارجمند
بنده فایل اکسلی دارم که دارای کاراکترهای زیادی در هر سلول ستون a میباشد یه بواسطه علامت "/" دسته بندی شده اند. مثل نمونه زیر:

دکترا/09240158721/مرجان/زيست شناسي - سلولي و تكويني گياهي/غفارزاده/

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

[iranweld]

با سلام

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

Sub test()

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For j = 1 To z1

k = 2

xx = ""

For i = 1 To Len(Range("a" & j))

If Mid(Range("a" & j), i, 1) <> "/" And Mid(Range("a" & j), i, 1) <> "-" Then

xx = xx & Mid(Range("a" & j), i, 1)


Else

Cells(j, k) = xx

k = k + 1

xx = ""

End If

Next

Next

End Sub 

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

Text to Columns

سلام
علاوه بر دستور بسیار زیبایی که آقای حسن پور نوشتند، از ابزار Text to Columns که در حقیقت برای همین کار در اکسل هم طراحی شده نیز می تونید استفاده کنید؛

ابتدا محدوده مورد نظر را انتخاب کنید ( مثلاً ستون A ) سپس مراحل زیر را انجام بدید:

DATA--->Text to Columns--->Delimited--->Next--->Other--->/(اسلش یا کاراکتر مورد نظر)--->Next--->Destination--->Finish 

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

موفق باشید.