Excel birbirinin aynısı olmayan ama birbirine benzeyen kelimeleri bulabilir mi?

[izcik]

Değerli uzmanlarım, sürekli kullandığım bir örnek dosyam var.

Örnek dosyamda makro düğmesine basıldığında, A sütununda ne kadar 1 adettetn fazla birbirinin aynısı olan kelimeler varsa, onları H sütununa addedi kadar aktarıyor.

Sorum şu: A sütunundaki kelimeler birbirinin tam aynısı değil de birbirinin benzeri olmuş olsa, excel bu kelimeleri bulabilir mi?

Örnek A sütununda

18. satırda

KORKUNÇ TÜNEL

19. satırda

KORKULU RÜYA

metinleri yazıyor. Ve görüldüğü gibi "KORKU" kelimesi ortak kelime olmuş oluyor. Excel programı makroyla bulabilir mi bunu. Eğer bulabilirse, örnek dosyamın kodlarına uygun kodları verir misiniz..

Saygılar

 

[hamitcan]

Soldan ilk 5 karakteri alıp karşılaştırabilirsiniz.

Sub MUK()
    [H:J].Clear
    son = [a65536].End(3).Row
    For t = 1 To son
    If InStr(1, Cells(t, 1), " ") > 0 Then
        Kelime = Left(Cells(t, 1), InStr(1, Cells(t, 1), " ") - 1)
    Else
        Kelime = Cells(t, 1)
    End If
        say = WorksheetFunction.CountIf(Columns(1), Left(Kelime, 5) & "*")
    If say > 1 Then
        k = k + 1
        Cells(k, 8) = Cells(t, 1)
        Cells(k, 9) = Cells(t, 2)
        Cells(k, 10) = Cells(t, 3)
    End If
    Next
    [H:J].Sort KEY1:=[H1]
End Sub

 

[izcik]

İlginize teşekkürlerimi sunarım hamitcan uzmanım. Peki ortadaki kelimeleri bulabilirmiyiz. Mesela
söz konusu kelimeler

TÜNEL KORKUNÇ

ve

RÜYA KORKULU

olarak geçseydi buna uygun kodlar olurmuydu

 

[hamitcan]

Bu durum tamamen sizin varsayımınız ile ilgili yani standart olarak 7.karakterden başlasın 4 karakter alsın ve bu kelimeyi arasın derseniz, tabii ki olur bunun için parçaal(mid) fonksiyonunu kullanabilirsiniz.

 

[izcik]

Teşekkürler hamitcan uzmanım