PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : جداسازی عدد از متن



amir0337
2012/07/13, 12:33
سلام
من میخوام از یک سلول اعداد رو جدا کنم ولی جای این اعداد مشخص نیست
نمونه: 111008 موجودی واریز نامه های ارزی
توچه: بقیه سلولها اعداد متفاوت با طول کاراکتر متفاوت دارند

~M*E*H*D*I~
2012/07/13, 13:00
سلام
بستگی داره وضعیت متن و عدد به چه صورتی باشه با فرمول های مختلف میشه این کار رو کرد ماکروی زیر یه حالت کلی رو پوشش میده اگه مشکل حل نشد راهای دیگه ای هم هست



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
[hr]
فایل پیوست هم میتونه کمک کنه

khakzad
2012/07/14, 01:09
ی راه به ذهنم رسیده با فرمول هس
نمی دونم چطوری بهینش کنم.دوستان اگه نظری دارن،ممنون میشم ارائه بدن
هر چی تایپ کنیم نهایتا به ما عدد رو میده.اما فعلا بهینه نیس.:blush: