جداسازی عدد از متن

[amir0337]

سلام
من میخوام از یک سلول اعداد رو جدا کنم ولی جای این اعداد مشخص نیست
نمونه: 111008 موجودی واریز نامه های ارزی
توچه: بقیه سلولها اعداد متفاوت با طول کاراکتر متفاوت دارند

[~M*E*H*D*I~]

RE: جداسازی عدد از متن

سلام
بستگی داره وضعیت متن و عدد به چه صورتی باشه با فرمول های مختلف میشه این کار رو کرد ماکروی زیر یه حالت کلی رو پوشش میده اگه مشکل حل نشد راهای دیگه ای هم هست
[align=left]

Sub ExtractNumbers()
Dim RegExp As Object, Collection As Object, RegMatch As Object
Dim myRange As Range, C As Range, Outstring As String
Set RegExp = CreateObject("vbscript.RegExp")
With RegExp
.Global = True
.Pattern = "d+|\d+.\d+"
End With
Set myRange = ActiveSheet.Range("a1:a100") 'change to suit
For Each C In myRange
Outstring = ""
Set Collection = RegExp.Execute(C.Value)
For Each RegMatch In Collection
Outstring = Outstring & RegMatch
Next
C.Offset(0, 1) = Outstring
Next

Set Collection = Nothing
Set RegExp = Nothing
Set myRange = Nothing

End Sub 

[/align][hr]
فایل پیوست هم میتونه کمک کنه

[khakzad]

RE: جداسازی عدد از متن

ی راه به ذهنم رسیده با فرمول هس
نمی دونم چطوری بهینش کنم.دوستان اگه نظری دارن،ممنون میشم ارائه بدن
هر چی تایپ کنیم نهایتا به ما عدد رو میده.اما فعلا بهینه نیس.:blush: