میشه کمی بیشتر توضیح بدید یا عکسی بزارید که نام شیت ها هم باشه؟
با سلام
ماکرو ذیل را تست کنید
کد PHP:
Sub TEST()
Dim xx As Integer
Dim LIST1 As New Collection
Columns("B:B").ClearContents
z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
k = 1
For j = 1 To z1
Set LIST1 = Nothing
T = 0
For i = Len(Range("A" & j)) To 1 Step -1
If Mid(Range("A" & j), i, 1) = "-" And T < 2 Then
LIST1.Add i
T = T + 1
End If
Next
xx = Mid(Range("A" & j), LIST1.Item(2) + 1, LIST1.Item(1) - LIST1.Item(2) - 1)
For i = 1 To xx
Range("b" & k) = Left(Range("A" & j), LIST1.Item(2)) & i & Right(Range("A" & j), _
Len(Range("A" & j)) - LIST1.Item(2) - 1)
k = k + 1
Next
Next
End Sub
ویرایش توسط iranweld : 2016/11/07 در ساعت 12:17
حل شد مشکلم با ماکرویی که دوست عزیز زححمتش رو کشیدن.
سپاسگزارم
ویرایش توسط mohamad2man : 2016/11/07 در ساعت 19:52
مشکل برطرف شد
حل شد سپاسگزارم
سلام دوستان راهی وجود داره که این فایلی که لازم دارم رو فرمول نویسی یا با ماکرو یا با خود فرمولهای اکسل انجام بشه
توضیح اینکه دیتای اصلی رو دارم و جدولی مه دریافت شده رو نشون میده جزیی از مواد مورد نیازم رو داده حالا میخوام کد هر محصول داده شده و فقط به تعداد دریافت شده کنار دیتای اصلی قرار بگیره فایل اکسل و عکس رو ضمیمه کردم ممنون میشم دوستان کمک کنن راهی پیدا کنمو
با تشکر و سپاس فراوان
فایل پیوست 13688
با سلام استاد گرامی
خواستم برای این ترفند از شما تشکر کنم. برای افرادی مثل من که تازه شروع به کار با اکسل کردیم خیلی خوبه. متشکرم
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)