如附件，把二列内容进行对比，得出相似度

hjq018

如何匹对二列内容，C列包含E列内容为一至

liulang0808

1. Sub 按钮2_Click()
   
2.     Application.ScreenUpdating = False
   
3.     arr = [a1].CurrentRegion
   
4.     For j = 2 To UBound(arr)
   
5.         If InStr(arr(j, 3), arr(j, 5)) > 0 Then
   
6.             arr(j, 6) = Len(arr(j, 5))
   
7.         Else
   
8.             n = 0
   
9.             For i = 1 To Len(arr(j, 5))
   
10.                 If InStr(arr(j, 3), Mid(arr(j, 5), i, 1)) > 0 Then
    
11.                     n = n + 1
    
12.                 End If
    
13.             Next i
    
14.             arr(j, 6) = n
    
15.         End If
    
16.     Next j
    
17.     [a1].CurrentRegion = arr
    
18.     Application.ScreenUpdating = True
    
19. End Sub
    

复制代码

liulang0808

建议楼主结合附件举例说明下，相似度60%，这个相似度是按照什么原则计算出来的？

vbee

1. Function vbee(a As Range, b As Range)
   
2. AA = StrConv(a.Text, vbNarrow)
   
3. AA = Replace(AA, " ", "")
   
4. AA = Replace(AA, " ", "")
   
5. AA = Replace(AA, "牌", "")
   
6. BB = StrConv(b.Text, vbNarrow)
   
7. BB = Replace(BB, " ", "")
   
8. BB = Replace(BB, " ", "")
   
9. BB = Replace(BB, "牌", "")
   
10. If InStr(1, AA, BB) Then vbee = "是"
    
11. End Function

复制代码

先点一下“繁体转简体"

hjq018

liulang0808 发表于 2018-8-8 18:12
建议楼主结合附件举例说明下，相似度60%，这个相似度是按照什么原则计算出来的？

其实就是C列包括E列的多少。。

hjq018

例子，像这们的

hjq018

如何计算C列包含E列字符的个数，有1.5W行，要去对比二列的内容是否相似，就是C列包含了E列字符的个数。要实现的效果大家看实例！

hjq018

快来个高手给解决了。。觉得VBA无所不能，可是我要如何入手叱

liulang0808

hjq018 发表于 2018-8-9 10:13
快来个高手给解决了。。觉得VBA无所不能，可是我要如何入手叱

看了楼主的附件，主要是楼主对需求描述不清
需要怎么才认为是相似的？
目前的数据可以使用instr进行一次排查，很多都包含在内的

liulang0808

附件做了一个核对
不过个人感觉存在问题，重复字符的问题