EXCEL如何比对相似度

发布网友发布时间：2022-04-29 08:11

共3个回答

热心网友时间：2022-06-24 17:08

Private Sub CommandButton1_Click()
[A:B].Font.ColorIndex = xlAutomatic
Dim st$, sr$, i%, j%, r%, k%, m%
r = ActiveSheet.[A65536].End(3).Row
For i = 1 To r
    m = Len(Cells(i, 1))
    For k = 1 To m
        If IsError(Application.Find(Mid(Cells(i, 1), k, 1), Cells(i, 2))) = True Then
            Cells(i, 1).Characters(Start:=k, Length:=1).Font.Color = -16776961
        End If
    Next
Next

For i = 1 To r
    m = Len(Cells(i, 2))
    For k = 1 To m
        If IsError(Application.Find(Mid(Cells(i, 2), k, 1), Cells(i, 1))) = True Then
            Cells(i, 2).Characters(Start:=k, Length:=1).Font.Color = -16776961
        End If
    Next
Next
End Sub

热心网友时间：2022-06-24 17:08

可以使用Excel网络函数库的GetMatchingDegree(Text_a, Text_b)来比较两个文本之间的相似度。

热心网友时间：2022-06-24 17:09

这个建议把两列分别拷到2个文档里，然后用文本编辑器比较，比如用ultraedit或者word