（情况又变了）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有没有现成的函数

秋月风夏

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

紧那罗

不懂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记录大量数据的第一生死要务就是不要合并单元格，对我来说是死也要守住的铁则