پرسش: جداسازی محتوای سلول
با عرض سلام و ادب
بابت سایت خیلی خوبتونتشکر می کنم
واقعا پر از مطالب خوب و اموزنده ای هست
من یک فایل اکسل دارم تقریبا با گشت و گذار تو سایت و گوگل ی کدی پیدا کردم
من هدفم اینه تو این کد در vba ستون A که محتوای اونها با - جدا میشه مثل
لامپ 10عدد- سیم 15متر و غیره
و میخوام به صورت زیر مرتب بشه
در شیت دوم
ستون a ستون B
لامپ 10
سیم 15
و در اینده هم اطلاعات بعدی که اضافه می کنم زیرش اضافه بشه
لطف می کنید راهنمایی کنید.
این دو تا کد هم انجام می دن که دومی بهتره ولی هر کاریکردم نشد ادامه اولی قرار بگیره
بابت سایت خیلی خوبتونتشکر می کنم
واقعا پر از مطالب خوب و اموزنده ای هست
من یک فایل اکسل دارم تقریبا با گشت و گذار تو سایت و گوگل ی کدی پیدا کردم
من هدفم اینه تو این کد در 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