在论坛上找到了有点色老师的一个检查相似度的方法,但是要把这个方法用到 表格中,好像有点复杂。。在第二列中,找到相似度超过70%的行。并筛选出来。
Dim sa As String = "达尔优1代2代3代108键87键合金板机械师防尘防水键盘保护贴膜套"
Dim sb As String = "达尔优1代2代3代108键合金板机械师防尘防水键盘保护贴膜套"
Dim count As Integer
If sa.Length >= sb.length Then
Dim s As String = sa
sa = sb
sb = s
End If
For i As Integer = 0 To sa.Length - 1
If sb.Contains(sa(i)) Then
count += 1
End If
Next
msgbox(count/sb.length)