Подобное выражение
s="диск"
Set r = ActiveSheet.Range("A1:A3000")
Set g = r.Find(What:=s)
ищет в столбце А в строках от 1 до 3000 точное совпадение или вхождение в слово слова диск, без учета регистра.
Вопрос: как организовать поиск похожего слова. Например с отличием в 1 букву? Или похожее скажем на 80 процентов?

excel-ufahttp://www.planetaexcel.ru/tip.php?aid=68&PHPSESSID=99bc51d19af2a8c6b82ffd4c303c64f1
просмотри данную функцию
Это не совсем то. Но поже, что можно приспособить.
Спасибо!

KL (XL)еще вариант:

http://j-walk.com/ss/excel/tips/tip77.htm

KL
[MVP - Microsoft Excel]
Я так реализовал
Sub poiskpoh(pp)
Rem поиск похожего слова
Set r = ActiveSheet.Range("C" & kon & ":C60000")
Set g = r.Find(What:="")
For i = 3 To g.Row - 1

If Len(pp) = Len(Range("C" & i)) Then
s4et = 0
txt = UCase(pp)
mask = UCase(Range("C" & i))
For j = 1 To Len(pp)
If Mid(txt, j, 1) = Mid(mask, j, 1) Then s4et = s4et + 1
Next j
Rem MsgBox (Range("C" & i) & " " & pp & " " & s4et)
If s4et / Len(pp) > 0.5 Then MsgBox (s4et & " букв из " & Len(pp) & " Слово " & pp & " похоже на слово " & Range("C" & i) & " с точностью " & 100 * s4et / Len(pp) & " %")
End If

Next i
End Sub

talgat
Я так реализовал
Sub poiskpoh(pp)
Rem поиск похожего слова
Set r = ActiveSheet.Range("C" & kon & ":C60000")
Set g = r.Find(What:="")
For i = 3 To g.Row - 1

If Len(pp) = Len(Range("C" & i)) Then
s4et = 0
txt = UCase(pp)
mask = UCase(Range("C" & i))
For j = 1 To Len(pp)
If Mid(txt, j, 1) = Mid(mask, j, 1) Then s4et = s4et + 1
Next j
Rem MsgBox (Range("C" & i) & " " & pp & " " & s4et)
If s4et / Len(pp) > 0.5 Then MsgBox (s4et & " букв из " & Len(pp) & " Слово " & pp & " похоже на слово " & Range("C" & i) & " с точностью " & 100 * s4et / Len(pp) & " %")
End If

Next i
End Sub
Коментарии: слова (база) в столбце "С" с 3 строки. Выводятся на подтверждение слова в которых буквы совпали более чем на 50% (If s4et / Len(pp) > 0.5) от длины слова. В другой процедуре выводится еще запрос типа "добавить похожее слово в базу" и "произвести замену в предложении"

Sinner
Т.е. Если в искомом слове утеряна одна буква, то оно не похоже?

типа "подоконник" и "подоконик"
Ваша правда. Как быть?

Sinnerв первом своем ответе
Скачал. Разберусь. Спасибо всем!