[حل شده] تغییر اطلاعات سلول

[amir0914]

با عرض سلام، دوستان من دو ستون دارم که ستون اول شمارهایی هستند که منحصر به فرد هستند، بعضی شماره ها در این ستون با نقطه از هم جدا شدند و به ترتیب (1. ) یا (2.) یا (3.) شماره خوردند میخوام سلول های مربوط به این اعداد در ستون B همان اطلاعات( 1.) باشد. مثل عکس ..یعنی ستون دو تبدیل به ستون c بشود.

[Amir Ghasemiyan]

سلام دوست عزيز
شما ميتونين از اين فرمول كمك بگيريد:

=if(or(iserr(find(".",a1)),right(a1,2)=".1"),b1,offset(c1,-1,0))

[amir0914]

مرسی لطف کردید اما کد ویژوال بیسیک میخواستم..میشه تو vba هم این کد رو پیاده کرد؟ و ی مشکل دیگه اینکه امکان داره یکی ز ممیز ها ردیف بعدی باشه که اون رو درست شماره نمیزنه. مثلا شماره A98.3 که باید x8 درج میکرد اما x10 درج کرده

[Amir Ghasemiyan]

مرسی لطف کردید اما کد ویژوال بیسیک میخواستم..میشه تو vba هم این کد رو پیاده کرد؟ و ی مشکل دیگه اینکه امکان داره یکی ز ممیز ها ردیف بعدی باشه که اون رو درست شماره نمیزنه. مثلا شماره A98.3 که باید x8 درج میکرد اما x10 درج کرده
[ATTACH=CONFIG]16281[/ATTACH]

ببخشيد من دقت نكردم شما در تالار ويژوال سوال پرسيديد

با اين حساب اگر مثلا در سلول A11 مقدار A105.4 داشته باشيم بايد x2 درج بشه درسته؟

[amir0914]

بله دقيقا

[iranweld]

با سلام

از کدهای ذیل استفاده کنید

Sub TEST()

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

Range("c1:c" & z1).ClearContents

For i = 1 To z1

 XX = InStr(Range("A" & i), ".")
 
 yy = Range("B" & i)
 
 If XX > 0 Then

For j = i To z1

If Range("C" & j) = "" And Left(Range("A" & j), XX - 1) = Left(Range("A" & i), XX - 1) Then

 Range("C" & j) = yy
 

End If

Next

Else

Range("C" & i) = Range("b" & i)

End If

Next


End Sub