对比两单元格字符不同的用颜色标注出来

eastiger

各位专家写的代码很实用，非常感谢。对于一些新手来说，建议增强通用性。即  用SUB 过程的话，建议按照选取的两列单元格  for  each rng in section 类似的语句。用函数FUCTION 直接比较横向的两个单元格相同情况 最好。
       我网上找了一个比较相同的函数，希望专家在此基础上，把相同颜色的连续字词，标识相同的颜色。
鉴于本人的能力有限，只能做些简单的修改。

Function IsTheSame(ByVal str1 As String, ByVal str2 As String)
    '如果返回1，则相似，否则不相似。同时返回相似字符的个数
   
    len1 = Len(str1)
    len2 = Len(str2)
    matchlen = 0
    If len1 >= len2 Then
        For i = 1 To len2
            If (VBA.InStr(1, str1, Mid(str2, i, 1))) > 0 Then
                matchlen = matchlen + 1
            End If
        Next
        If matchlen >= 3 Then
            result = 1
        Else
            result = 0
        End If
    Else
        For i = 1 To len1
            If (VBA.InStr(1, str2, Mid(str1, i, 1))) > 0 Then
                matchlen = matchlen + 1
            End If
        Next
         If matchlen >= 3 Then
            result = 1
        Else
            result = 0
        End If
    End If
    IsTheSame = result & "__" & matchlen
End Function

GUQLM

感谢分享，学习备用