（情况又变了）EXCEL如何对比两列资料的相似度？

秋月风夏

把所有格子合并了
table1
A1 B1 C1 D1
table2
A2 B2 C2 D2
那么都加一列
E1 = A1&B1&C1&D1
E2 = A2&B2&C2&D2
比较E列就好了

nonmoi

用if（and（exact（），exact（），....）...,...）
这样？

SimonOpera

捷径当然有啊，上vba直接用sql，select from，然后输出对比结果和行号
不要太简单

——— 来自Stage1st Reader For iOS

SimonOpera

横向多列在vba做个循环咯

——— 来自Stage1st Reader For iOS

semmy

excel 匹配

紧那罗

这要上最小编辑距离?
不知道excel有没有现成的函数

秋月风夏

比较文本相似度是个非常麻烦的东西，建议用专门的东西弄

cxn

wowow 发表于 2014-7-5 19:19
情况又变了。
如何对比两列文件的相似度？
主要是需要能够快速的对比出两列高度相似与高度错误。这种复杂公 ...

从原文中抽离数字部分，然后比较……没有现成的工作表函数，得自己写VBA代码，然后调用自己写的函数

闲的蛋疼，写了2个你看一下是否能用


Function abcd(rng As Range)
    '从文本中抽离数字部分
    abcd = "木有数字"
   
    Dim i%, s$, ss$
    s = rng.Text
    ss = ""
    For i = 1 To Len(s)
        If Mid(s, i, 1) Like "#" Then
            ss = ss & Mid(s, i, 1)
            abcd = ss
        End If
    Next
End Function

Function efg(rng1 As Range, rng2 As Range)
    '比较两段文本是否类似，即其中一段包含另外一段的内容
    efg = False
   
    If rng1.Text Like "*" & rng2.Text & "*" Or rng2.Text Like "*" & rng1.Text & "*" Then
        efg = True
    End If
End Function

紧那罗

不懂VBA...照着关键词搜到个现成的 试了下能用比较从文本A编辑到文本B需要的操作次数(增删改) 数字越小说明越相似(准确点是要再除以字符的长度?)
同义词之类就没办法了...

1. Function Levenshtein(ByVal string1 As String, ByVal string2 As String) As Long
   
2. 
   
3. Dim i As Long, j As Long
   
4. Dim string1_length As Long
   
5. Dim string2_length As Long
   
6. Dim distance() As Long
   
7. 
   
8. string1_length = Len(string1)
   
9. string2_length = Len(string2)
   
10. ReDim distance(string1_length, string2_length)
    
11. 
    
12. For i = 0 To string1_length
    
13.     distance(i, 0) = i
    
14. Next
    
15. 
    
16. For j = 0 To string2_length
    
17.     distance(0, j) = j
    
18. Next
    
19. 
    
20. For i = 1 To string1_length
    
21.     For j = 1 To string2_length
    
22.         If Asc(Mid$(string1, i, 1)) = Asc(Mid$(string2, j, 1)) Then
    
23.             distance(i, j) = distance(i - 1, j - 1)
    
24.         Else
    
25.             distance(i, j) = Application.WorksheetFunction.Min _
    
26.             (distance(i - 1, j) + 1, _
    
27.              distance(i, j - 1) + 1, _
    
28.              distance(i - 1, j - 1) + 1)
    
29.         End If
    
30.     Next
    
31. Next
    
32. 
    
33. Levenshtein = distance(string1_length, string2_length)
    
34. 
    
35. End Function
    

复制代码

jacyca103126

excel记录大量数据的第一生死要务就是不要合并单元格，对我来说是死也要守住的铁则