求教如何判断不同单元格的内容近似相似

zjh00

求教如何判断不同单元格的内容近似相似

liulang0808

个人感觉，首先要解决相似近似的原则，就是怎样才算近似相似，然后才能考虑具体处理方法

zjh00

规则可以是字符内容90%以上相似，是否可以？

doitbest

请参考
http://club.excelhome.net/forum. ... p;page=1#pid7888555

2424882992

这需要看你对近似的定义是什么，我之前写过一个近似判断的公式，你可以参考下

1. Function LIKEE(room1 As String, room0 As String)
   
2. '判断2个字符串是否相似。前者为简称，后者为全称。
   
3. '判断逻辑是前者的每个字（除了空格）如果都能在后者中按顺序找到，那么判定为相似。
   
4. '但并不适用于所有情况，比如会判断 "安贞校区101教室" 和"安贞新华校区1010教室" 是相似的。所以一定要知道原理再使用这个公式！
   
5. Dim str As String
   
6. Dim room11 As String
   
7. room11 = Replace(room1, " ", "")   '替换掉空格。
   
8. Dim arr()
   
9. For i = 1 To Len(room11)
   
10.     ReDim Preserve arr(i - 1)
    
11.     arr(i - 1) = Mid(room11, i, 1)
    
12. Next
    
13. 
    
14. str = Join(arr(), "" & "*" & "")
    
15. If room0 Like "*" & str & "*" Then
    
16.     LIKEE = True
    
17. Else
    
18.     LIKEE = False
    
19. End If
    
20. 
    
21. End Function

复制代码