[حل شده] تفکیک عدد و حرف در یک سلول

[yogishiip]

سلام
در صورتی که یک سلول محتوی عدد و حرف بود و بخواهیم عدد رو با سریع ترین حالت جدا کنیم چیه ؟
1- توی سلول ها اعداد و حرف تعدادشون متغیره نمیشه از توابع ساده مثل =right یا =left استفاده کرد
2- تعداد دیتا ها چندین هزار رکورده !


مثال:این جدول

نام

احمد احمدی کد پرسنلی 27298922

سایر افراد 234

تبدیل بشه به

نام	دیتا مورد نیاز
احمد احمدی کد پرسنلی	27298922
سایرافراد	234

[iranweld]

با سلام

فایل پیوست را ملاحظه بفرمایید

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 

[مصطفی رجبی]

سلام
در صورتی که یک سلول محتوی عدد و حرف بود و بخواهیم عدد رو با سریع ترین حالت جدا کنیم چیه ؟
1- توی سلول ها اعداد و حرف تعدادشون متغیره نمیشه از توابع ساده مثل =right یا =left استفاده کرد
2- تعداد دیتا ها چندین هزار رکورده !


مثال:این جدول

نام

احمد احمدی کد پرسنلی 27298922

سایر افراد 234

تبدیل بشه به

نام	دیتا مورد نیاز
احمد احمدی کد پرسنلی	27298922
سایرافراد	234

سلام . شما در کنار ستون نام در ستون دیتا مورد نیاز در سلول مورد نظر مثلا کد پرسنلی (

27298922

) را وارد کنید و enter را فشار دهید سپس کلید Ctrl+E یا دکمه (Flash Fill) در منو Data در قسمت Data Tools را فشار دهید. با این روش اعداد را به صورت جدا گانه تا انتهای داده های ثبت شده به صورت خودکار جدا میکند.