حذف چند رقم اول مشابه تمام سلول ها در يك ستون

**nataly** · 2015/10/13, 17:03

67001
670002670
اگه find استفاده كنم و replace كنم كه ميشه
1
2
ولي اعداد من در واقع اينها هست
1
2670

**nataly** · 2015/10/13, 17:09

نوشته اصلی توسط khakzad

اینطوری چیزی که دنبالش میگردید میشه:
0*67
اینطوری هر تعداد صفر داشته باشه رو پیدا میکنه

من نميخوام پيداش كنم چون همشون همينطوري هستن من ميخوام 67 با هر تعداد صفر اولش رو حذف بكنم

**nataly** · 2015/10/13, 17:12

نوشته اصلی توسط iranweld

با سلام

در ماکرو ذیل با استفاده از دستور replace اگر شروع اعداد با عدد 67 باشد حذف شده و چون صفر بعد از عدد نمایش داده نمی شود فقط اعداد انتهایی باقی می ماند و در سلولهای ستون b قرار میگیرد

کد PHP:


Sub test()

Dim CorrectedText, OriginalText As Double

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

For i = 1 To Z

If Left(Range("A" & i), 2) = "67" Then


OriginalText = Range("A" & i).Value

CorrectedText = Replace(OriginalText, "67", "", 1, 1)

Range("b" & i).Value = CorrectedText

End If

Next i

End Sub

من متوجه اين نميشم چرا انقد طولانيه!؟

**nataly** · 2015/10/13, 17:19

نوشته اصلی توسط khakzad

جواب سوال شما چیزی بود که گفتم (البته ساده ترین راه بود)
اگر بخواید صورت رو تغییر بدید خب به تبعش راه های دیگه هم بوجود میاد.
شما نگفته بودید سه رقم.
گفته بودید 67 با هر تعداد صفر.
درخصوص سوال دومتون یعنی جدا کردن سه رقم اول. از فرمول زیر استفاده کنید:

کد:

=left(A1,3)

گفتم 3 رقم اول كه راحت تر آدرس داده باشم و متوجه منظورم بشيد چون وقتي 3 رقم اول كه 670 هست حذف بشه بالتبع 0 بقيه نمايش داده نميشه ولي برعكس شد ايني كه شما ميگيد جدا كردن اين رو من نميخوام من نميخوام 3 رقمو جدا كنه ميخوام حذفش كنه
من هنوز جوابمو نگرفتم ... منتظر يه فرمولم