两字符串相同字符个数统计问题

坛子里的一个问题，我新手拿来练习练习。

 

测试数据：

A B C 2437 345 8750 654 0673 736 0557 012575786 4328778 28796 8537 888

Function TwoStrComp(strOne As String, strTwo As String) As Integer '================================ '取出两个字符串中的重复字符个数 '短字符串中无重复字符的情况下 '================================ Dim strShort As String Dim strLong As String Dim strSub As String Dim intCount As Integer Dim intCyc As Integer intCount = 0 If strOne <> "" And strTwo <> "" Then strShort = strOne strLong = strTwo If Len(strOne) > Len(strTwo) Then strShort = strTwo strLong = strOne End If For intCyc = 0 To Len(strShort) - 1 strSub = Left(Right(strShort, Len(strShort) - intCyc), 1) If InStr(strLong, strSub) > 0 Then 'InStr函数返回找到第一个字符的位置 intCount = intCount + 1 End If Next TwoStrComp = intCount End If End Function

第一个函数测试结果：

A B C 2437 345 2 8750 654 1 0673 736 3 0557 012575786 4 4328778 28796 3 8537 888 3

Function TwoStrCompOnly(strOne As String, strTwo As String) As Integer '================================ '取出两个字符串中的重复字符个数 '重复字符只算1个的情况 '数组法 (也可用collection类) '================================ Dim strShort As String Dim strLong As String Dim strSub As String Dim intCount As Integer Dim intCyc As Integer Dim arrChr() As String intCount = 0 If strOne <> "" And strTwo <> "" Then strShort = strOne strLong = strTwo If Len(strOne) > Len(strTwo) Then strShort = strTwo strLong = strOne End If ReDim arrChr(Len(strShort)) For intCyc = 0 To Len(strShort) - 1 strSub = Left(Right(strShort, Len(strShort) - intCyc), 1) If Onlyone(arrChr, strSub) Then If InStr(strLong, strSub) > 0 Then 'InStr函数返回找到第一个字符的位置 intCount = intCount + 1 End If End If arrChr(intCyc) = strSub Next TwoStrCompOnly = intCount End If End Function Function Onlyone(arrTemp As Variant, sTemp As String) As Boolean '判断字符数组中的值唯一性 Dim i As Long Onlyone = True For i = 0 To UBound(arrTemp) If arrTemp(i) = sTemp Then Onlyone = False Exit For End If Next End Function

第二个函数测试结果：

A B C 2437 345 2 8750 654 1 0673 736 3 0557 012575786 3 4328778 28796 3 8537 888 1

Function TwoStrCompEx(strOne As String, strTwo As String) As Integer '================================ '取出两个字符串中的重复字符个数 '任何匹配字符都累加 '================================ Dim strShort As String Dim strLong As String Dim strSub As String Dim strTemp As String Dim intCount As Integer Dim intCyc As Integer intCount = 0 If strOne <> "" And strTwo <> "" Then strShort = strOne strLong = strTwo If Len(strOne) > Len(strTwo) Then strShort = strTwo strLong = strOne End If For intCyc = 0 To Len(strShort) - 1 strSub = Left(Right(strShort, Len(strShort) - intCyc), 1) strTemp = Replace(strLong, strSub, "") intCount = intCount + (Len(strLong) - Len(strTemp)) Next TwoStrCompEx = intCount End If End Function

第三个函数的测试结果：

 

A B C 2437 345 2 8750 654 1 0673 736 3 0557 012575786 7 4328778 28796 5 8537 888 3

 

EXCEL公式狂人跟我说可以用数组公式实现，可是我不会呀。我继续写个整合函数吧，加一个参数，对应任何情况的个数统计。