تفکیک عدد از حروف در اکسل

قبل از هرچیزی باید بدانید که این عمل توسط ترکیب توابع LEFT , RIGHT , MID , FIND و یا استفاده از  ابزارهای کاربردی اکسل امثال Flash Fill ، Text To Columns نیز امکان پذیر است ولی روش ساده تر قطعا استفاده از کدها و توابع آماده ماکرونویسی است.

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

Function digitFromString(rng As String)

    For i = 1 To Len(rng)

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

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

        End If

     Next i

End Function

توضیحات تابع فوق:

تابع excellearn یک مقداری را تحت عنوان rng از کاربرد دریافت میکند. سپس با استفاده از حلقه For از اولین کارکتر تا آخرین کارکتر مقدار محتوای ورودی را بررسی میکند. در صورت وجود عدد (isnumeric) در هریک از کارکترهای محتوای وارد شده، تابع excellearn آن را ذخیره و در پایان کار حلقه، به عنوان خروجی تابع excellearn بر میگرداند.

نحوه استفاده از تابع تفکیک عدد از حروف در اکسل (VBA)

تابع فوق را کپی کنید و با زدن کلید Alt+F11 وارد محیط VBE اکسل شوید. سپس همانند تصویر زیر اقدام به ایجاد یک Module کنید:

سپس کدهای تابع را همانند تصویر زیر کپی و به ماژول منتقل کنید.

در پایان تنها کافی است از تابع digitFrmString در محیط صفحه گسترده همانند سایر توابع اکسل استفاده نمایید