发现几乎匹配一个string

我需要检查单元格中的一些小的拼写更改。 我如何比较两个单元格值并获得几乎相等的值。 说如果只有一个字符像“jordan120”和“jordn120”缺失。 我怎样才能得到这些值使用macros？ 我有两种情况下的精确匹配和几乎匹配。

我已经尝试了vlookup函数并find方法。

Sub Changes() Dim chang, currentdest, presource As Worksheet Dim precount, currentcount, prelstrow, currentlstrow, rowno, rownow, rownow1 As Integer Dim somstrng, somstrng1, predept, currentdept, pregrade, currentgrade, convertion As String Dim table5, cellfound As Range Set chang = ActiveWorkbook.Sheets("Change") Set presource = ActiveWorkbook.Sheets("Previous") Set currentdest = ActiveWorkbook.Sheets("Current") precds = presource.Range("A" & precount).Value rownow = .Columns("A:A").Find(What:=precds, After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ MatchCase:=True, SearchFormat:=True).Row 

和vlookup

 Set table5 = currentdest.Range("A:C") With chang falsval = Application.VLookup(precds, table5, 1, True) End With 

他们没有帮助我。