جداسازی حروف لاتین از حروف فارسی

[rjfri]

با سلام
در لیست پیوست میخوام حروف لاتین آخر اسامی رو تفکیک کنم. در هر ردیف جانمایی این حروف لاتین متفاوته. از چه تابع ای میشه استفاده کرد

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[كامران]

با سلام
در لیست پیوست میخوام حروف لاتین آخر اسامی رو تفکیک کنم. در هر ردیف جانمایی این حروف لاتین متفاوته. از چه تابع ای میشه استفاده کرد

عددها جزو فارسی باشه یا لاتین ???

[كامران]

عددها جزو فارسی باشه یا لاتین ???

اگه قراره جزو لاتین باشه این تابع رو به برنامه اضافه کنید

Function lat(intext)    
    f2 = ""
    sel = intext
        For b = 1 To Len(sel)
            sc = Mid(sel, b, 1)
            For c = 48 To 90
                If c = 58 Then c = 65
                fc = Chr(c)
                    If sc = fc Then f2 = f2 & fc
            Next c
            sc = Mid(sel, b, 1)
            fc = " "
                If sc = " " Then f2 = f2 & " "
        Next b
    lat = f2
            
End Function

[rjfri]

راه حل دیگه ای هم هست . البته با استفاده از توابع
ممنون

- - - Updated - - -

در فایل پیوست جواب مورد نیاز مشخص شده لطفا اساتید راهنمایی بفرمایند
سپاس

[admin]

راه حل دیگه ای هم هست . البته با استفاده از توابع
ممنون

- - - Updated - - -

در فایل پیوست جواب مورد نیاز مشخص شده لطفا اساتید راهنمایی بفرمایند
سپاس

درود
توی همین فایلی که ارسال کردید در سلول c3 بنویسید mnt
سپس از تب home بخش editing گزینه fill و در آخر flash fill رو بزنید طبق الگو تا انتها براتون درگ میشه

[rjfri]

سپاس از شما