レーベンシュタイン距離は編集距離のひとつです。文字列1→文字列2にするにあたり、最低何回挿入、削除、置換が必要かを求めることができます。'***************************************************' 関数名: LevenshteinDistance' 戻り値: 引数で指定した文字列のレーベンシュタイン距離' 作成日: 2010-03-08'***************************************************Function LevenshteinDistance(str1, str2) ReDim DistanceTable(0 To Len(str1), 0 To Len(str2)) For i = LBound(DistanceTable, 1) To UBound(DistanceTable, 1)