پرسش داپلیکیت کردن در این نوع فایل شدنی هست؟

[MoReNu]

با سلام و وقت بخیر
دوستان عزیز من یک اکسل دارم که در ستون a خروجی از بانک گرفته شده و در ستون b خروجی از نرم افزار حسابداری خودمون که فقط نام افراد هست
حالا می خواستم بدونم امکانش هست این ستون رو به طریقی داپلیکیت گرفت که تعداد کلمات همسان بین ستون a و ستون b در ستون c نوشته بشه؟

فایل پیوست فایل نمونه می باشد
با تشکر

[ATTACH]19695[/ATTACH]

[M_ExceL]

با سلام و وقت بخیر
دوستان عزیز من یک اکسل دارم که در ستون a خروجی از بانک گرفته شده و در ستون b خروجی از نرم افزار حسابداری خودمون که فقط نام افراد هست
حالا می خواستم بدونم امکانش هست این ستون رو به طریقی داپلیکیت گرفت که تعداد کلمات همسان بین ستون a و ستون b در ستون c نوشته بشه؟

فایل پیوست فایل نمونه می باشد
با تشکر

[ATTACH]19695[/ATTACH]

سلام،
در فایل پیوست ابتدا ماکرو رو فعال کرده سپس روی باتن 1 کلیک و چک کنید.

Sub M_E()

Dim i, lrow As Long
Dim cel, rng As Range
Set rng = ActiveSheet.UsedRange
lrow = Cells(Rows.Count, 1).End(3).Row

    For Each cel In rng
        If InStr(1, Trim(cel.Text), ChrW(1610), 1) Or InStr(1, Trim(cel.Text), ChrW(1609), 1) Then
            cel.Value = Replace(cel.Text, ChrW(1610), ChrW(1740))
            cel.Value = Replace(cel.Text, ChrW(1609), ChrW(1740))
        End If
    Next
    
    For i = 2 To lrow
        If Replace(Cells(i, 1), " ", "") Like "*" & Replace(Cells(i, 2), " ", "") & "*" Then
            Cells(i, 3).Value = "like"
        End If
    Next
    
End Sub