[حل شده] نیاز به یک تابع ساده :)

[ACTION_GAMER]

سلام
ممنون میشم اساتید کمک کنن تابعی بنویسند که ستون a رو تبدیل به ستون b کنه
(فقط به اون عدد بعد از متن احتیاج دارم)

[mohamadali110]

يك مدول اضافه كنيد و كد را بزنيد تا *Function ExtractNumberبه تابع هاتون اضافه بشه

Function ExtractNumber(rCell As Range)Dim lCount As Long, l As Long
Dim sText As String
Dim lNum As String
sText = rCell
For lCount = Len(sText) To 1 Step -1
If IsNumeric(Mid(sText, lCount, 1)) Then
l = l + 1
lNum = Mid(sText, lCount, 1) & lNum
End If
If l = 1 Then lNum = CInt(Mid(lNum, 1, 1))
Next lCount
ExtractNumber = CLng(lNum)
End Function

[مصطفی رجبی]

سلام
ممنون میشم اساتید کمک کنن تابعی بنویسند که ستون a رو تبدیل به ستون b کنه
(فقط به اون عدد بعد از متن احتیاج دارم)

سلام . شما در سلول B1 عدد 73.9 را تایپ کنید و Enter فشار دهید. سپس کلید Ctrl+E را فشار دهید. یا از مسیر Data-Data tools- Flash Fill را کلییک کنید. با این روش فقط اعداد از ستون A در ستون مجاور به طور خودکار پر می شود.