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

wmj1999

请问我的数据在D、H两列，你的代码改哪里？我初学，望指教一下，急用与工作中清单比较，谢谢啦！

wmj1999

请问各位先学，我参照这个代码，对比D、I两列、将不同字符颜色标注出来，怎么不成功，麻烦老师修正一下啊！鲜花奉上。

大雨治水

wmj1999 发表于 2018-7-14 11:10
请问各位先学，我参照这个代码，对比D、I两列、将不同字符颜色标注出来，怎么不成功，麻烦老师修正一下啊！ ...

1. Sub 标注不同字符C()
   
2.     Dim myrow%, i%, j%, n%, m%, s%
   
3.     Dim str$, s1$, s2$, s3$
   
4.     Dim strA$, strB$
   
5. 
   
6.     On Error Resume Next
   
7. 
   
8.     Call 恢复颜色
   
9. 
   
10.     ''将区域设置为文本格式
    
11.     Columns("A:K").NumberFormatLocal = "@"
    
12. 
    
13.     myrow = Range("A65536").End(xlUp).Row
    
14. 
    
15.     For i = 2 To myrow
    
16.         ''先修改全部字符串的颜色
    
17.         Cells(i, 4).Font.Color = vbRed
    
18.         Cells(i, 9).Font.Color = vbRed
    
19. 
    
20.         strA = Cells(i, 4).Value
    
21.         strB = Cells(i, 9).Value
    
22. 
    
23.         ''提取最大相同字符串
    
24.         s1 = xt(strA, strB)
    
25. abc:
    
26.         m = Len(s1)
    
27.         n = InStr(1, Cells(i, 4).Value, s1, 1)
    
28. '        n = InStr(1, strA, s1, 1)
    
29.         ''.Characters(Start:=1, Length:=1).Font....
    
30.         Cells(i, 4).Characters(n, m).Font.ColorIndex = vbBlack    '改成黑色
    
31. 
    
32.         n = InStr(1, Cells(i, 9).Value, s1, 1)
    
33. '        n = InStr(1, strB, s1, 1)
    
34.         Cells(i, 9).Characters(n, m).Font.ColorIndex = vbBlack    '改成黑色
    
35. 
    
36. 
    
37.         ''去除相同内容后，再提取相同内容
    
38.         strA = Replace(strA, s1, "", 1, , 1)
    
39.         strB = Replace(strB, s1, "", 1, , 1)
    
40.         If StrReverse(strA) <> strB Then
    
41.             If Len(strA) >= 2 And Len(strB) >= 2 Then
    
42.                 ''提取最大相同字符串
    
43.                 s1 = xt(strA, strB)
    
44.                 If s1 <> "" Then
    
45.                     GoTo abc
    
46.                 End If
    
47.             End If
    
48.         End If
    
49.         m = 0
    
50.         n = 0
    
51. 
    
52.     Next i
    
53. 
    
54. End Sub

复制代码

大雨治水

修改了一下，把最新的代码上传一下：
找出两个单元格中不同的字符并用颜色标示出来--谢顺胜(2018.8.21).rar (24.39 KB, 下载次数: 270)

2018-8-21 15:55 上传

点击文件名下载附件

zlsx9527

大神，这代码厉害。但是使用中发现差异点比较多的情况，则会出现红色显示不准确。

大雨治水

zlsx9527 发表于 2018-8-28 17:14
大神，这代码厉害。但是使用中发现差异点比较多的情况，则会出现红色显示不准确。

具体截图说明一下！

jieham

大神真厉害！非常感谢！

素心向雪

大雨治水 发表于 2018-8-21 15:55
修改了一下，把最新的代码上传一下：

我对比了一下两列，一列是123，另一列是，153，结果没反应
我就改了一下列号和颜色，我是把相同的上红色，不同的上黑色

素心向雪

大雨治水 发表于 2018-9-2 19:50
具体截图说明一下！

一把颜色掉换，代码就失效，我只是想把相同的字符上红色，不同字符上黑色，求大神帮忙看看

skyskyabc

为什么下载下来的压缩包中excel都是xls格式的没有代码