поиск одинаковых символов

[EducatedFool]

можно ли совпадение считать по 5 символам?

А как быть с 2 такими строками:
Компания Рога и Копыта
и
Компания РосТехСнаб

Они похожи ровно настолько же, насколько похожи строки
"jsc citizen" и "citizen llp"


Напрашивается вывод, что вы выбрали неверный алгоритм сравнения...

[staniiislav]

Сообщение от user7789

staniiislav, большое спасибо

но к примеру,
ООО Металлзаказ и ООО*ТЕНЛЕX ставит +

можно ли совпадение считать по 5 символам?

так?

Sub sovpad()
Dim lsRow&, i&, j&, arr, s$
lsRow = Range("A1").CurrentRegion.Rows.Count
    For i = 1 To lsRow
        arr = Split(Cells(i, 1), " ")
        For j = LBound(arr) To UBound(arr)
            s = "*" & arr(j) & "*"
            If Len(arr(j)) >= 5 Then If Cells(i, 2) Like s Then Cells(i, 4) = "+": Exit For Else Cells(i, 4) = "-"
        Next j
    Next i
End Sub