پرسش جدا کردن عدد از حروف

[mehrdad5959]

سلام بچه ها
من یه فایل اکسل دارم که میخام عدد هامو از حروفام جدا کنم ! از چند روش رفتم درست کار نمیکرد ! جداشون میکرد ولی عددهامو ناقص میاورد مثلا چند تا صفرهاش نمیاورد یا بعضی جاهاش نصف عدد هام فقط میاورد .
فایل اکسلم هم پیوست کردم لطفا هرکی میتونه برام جداش کنه
تشکر

[iranweld]

با سلام

دو فانکسن به فایل شما اضافه گردید که میتوانید بصورت فرمول

=texts(A2) 

و

= NUMBERS(A2) 

عدد و تکست را جدا کنید

Function NUMBERS(rng As String)

For i = 1 To Len(rng)

If IsNumeric(Mid(rng, i, 1)) Then

xx = xx & Mid(rng, i, 1)

End If

Next

NUMBERS = xx

End Function

===========================

Function texts(rng As String)

For i = 1 To Len(rng)

If Not IsNumeric(Mid(rng, i, 1)) Then

xx = xx & Mid(rng, i, 1)

End If

Next

texts = xx

End Function 

[مرتضی حسینی]

با سلام از یه ترفند هم میشه استفاده کرد اول ستون مورد نظر رو انتخاب میکنید بهد از replac فاصله ها را باید به / تغییر بدهید برای این کار در کادر اول replac با زدن کلید spac یه فاصله را تعریف می کنید به در کادر دوم / را قرار میدهید یعنی میخواهید تمام فاصله هارو به / تغییر بدهید بعد ازاین کار از منوی data و و گزینه text to colume و بعد از مجموعه pelmters در کادر other علامت / را قرار میدهیم و به راحتی مسپله حل میشه البته راهای زیاد دیگری برای این کار وجود دارد از افزونه های اکسل هم میتونید استفاده کنید.
حسینی 97.9.27