پرسش جداسازی محتوای سلول

[karimi99]

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

من یک فایل اکسل دارم تقریبا با گشت و گذار تو سایت و گوگل ی کدی پیدا کردم
من هدفم اینه تو این کد در vba ستون A که محتوای اونها با - جدا میشه مثل
لامپ 10عدد- سیم 15متر و غیره

و میخوام به صورت زیر مرتب بشه
در شیت دوم
ستون a ستون B
لامپ 10
سیم 15

و در اینده هم اطلاعات بعدی که اضافه می کنم زیرش اضافه بشه
لطف می کنید راهنمایی کنید.

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

With Sheet1    Dim lr As Long
    lr = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("A1:A" & lr).TextToColumns Destination:=.Range("B1") _
        , DataType:=xlDelimited, Other:=True, OtherChar:="-"
End With

Dim a As RangeFor j = 1 To Cells(Rows.Count, "A").End(xlUp).Row
fullname = Split(Cells(j, 1), "-")
For I = 0 To UBound(fullname)
Cells(j + 1, 2).Value = fullname(I)
Next I
Next j

[M_ExceL]

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

من یک فایل اکسل دارم تقریبا با گشت و گذار تو سایت و گوگل ی کدی پیدا کردم
من هدفم اینه تو این کد در vba ستون A که محتوای اونها با - جدا میشه مثل
لامپ 10عدد- سیم 15متر و غیره

و میخوام به صورت زیر مرتب بشه
در شیت دوم
ستون a ستون B
لامپ 10
سیم 15

و در اینده هم اطلاعات بعدی که اضافه می کنم زیرش اضافه بشه
لطف می کنید راهنمایی کنید.

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

With Sheet1    Dim lr As Long
    lr = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("A1:A" & lr).TextToColumns Destination:=.Range("B1") _
        , DataType:=xlDelimited, Other:=True, OtherChar:="-"
End With

Dim a As RangeFor j = 1 To Cells(Rows.Count, "A").End(xlUp).Row
fullname = Split(Cells(j, 1), "-")
For I = 0 To UBound(fullname)
Cells(j + 1, 2).Value = fullname(I)
Next I
Next j

سلام،
اطلاعات به چه صورت اضافه میشه؟
آخر هر رشته دوباره با "-" اضافه میشه؟ یا اینکه ردیف جدیدی اضافه میشه؟

[karimi99]

سلام،
اطلاعات به چه صورت اضافه میشه؟
آخر هر رشته دوباره با "-" اضافه میشه؟ یا اینکه ردیف جدیدی اضافه میشه؟

سلام
اطلاعات برای شیت اول سه صورت مثلا لامپ 11عدد-سیم 15متر-چسب 10عدد با کاراکتر - کنار هم تو ی سلول قرار میگیرن ممکنه تو تا ایتم باشه یا چندتا هرتعداد باشه با - جدا میشن

و در شیت دوم میخوام همه اینها به صورت زیر مرتب بشن
ستون a ستون b
لامپ 11
سیم 15
چسب 10

[mahyaz]

سلام من هم چند بار این مشکل برام پیش اومده بود
بنظرم آموزش های یوتیوب رو ببینی از همه چی بهتره و راحت تر میتونی به نتیجه دلخواهت برسی
هر آموزشی که بخوای داخل یوتیوب برای اکسل هست

[karimi99]

Upppp

[karimi99]

سلام من هم چند بار این مشکل برام پیش اومده بود
بنظرم آموزش های یوتیوب رو ببینی از همه چی بهتره و راحت تر میتونی به نتیجه دلخواهت برسی
هر آموزشی که بخوای داخل یوتیوب برای اکسل هست

به این سایت دسترسی ندارم

[saed.rasa]

سلام

لطف می کنید در صورت امکان فایل کامل اکسل تان را قرار دهید یا بعد از استفاده از ابزار Text to columns

خیلی ممنون

[saed.rasa]

سلام

استفاده از این فایل بستگی به جدا کننده کلمات که در این مثال (space و خط فاصله -) می باشد ، دارد

مرحله 1) همه داده انتخاب و در شیت Data موجود در فایل فقط در A1 کپی شود

مرحله 2) انتخاب محدوده مورد نظر در ستون A و اجرا

Data > Text to columns > Delimited >  تیک Space & تعیین جدا کننده Others > Finish 

مرحله نهایی) مشاهده گزارش مورد نظر


شاید ی اشکال کوچولو در بعضی از داده های کاربری پیش بیاد(معمولا این مشکل خیلی کم پیش میاد)

مثال : اگر کلمات میز - صندلی - آبلیمو...باشد هیچ مشکلی پیش نمیاد(تک کلمه ای )

اما اگر کلمات تخم مرغ - آب لیمو ...(دو کلمه ای )

تک کلمه ای مشکلی ندارد

راهکار دو کلمه ای ها : انتخاب کل محدوده بعد از اجرا ی Text to columns بعد استفاده از Find Replace