[已解决]同一行两个单元格里有两个相同的数字，怎样使单元格变色

广陵王

  A      B
270   247---相同的两个数是27
812   881---相同                81

最佳答案

月排行榜 / 总排行榜

qh8600

2015-5-21 15:51

广陵王 发表于 2015-5-21 15:25
附截图

工作簿1.rar (6.46 KB, 下载次数: 59)

2015-5-21 15:51 上传

点击文件名下载附件

跳转到最佳答案楼层

广陵王

附截图

roych

可能要用辅助列。
辅助列公式

条件格式设置

附件
test.rar (3.06 KB, 下载次数: 23)

2015-5-21 15:37 上传

点击文件名下载附件

grf1973

1. Sub tt()
   
2.     arr = [a1].CurrentRegion
   
3.     [a1].CurrentRegion.Font.ColorIndex = 0
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For i = 1 To UBound(arr)
   
6.         a = arr(i, 1): b = arr(i, 2)
   
7.         For k = 1 To Len(a)
   
8.             c = Mid(a, k, 1)
   
9.             d(c) = 1
   
10.         Next
    
11.         For k = 1 To Len(b)
    
12.             c = Mid(b, k, 1)
    
13.             If d(c) = 1 Then
    
14.                 s = s + 1
    
15.                 d(c) = 0
    
16.             End If
    
17.         Next
    
18.         If s >= 2 Then Cells(i, 1).Resize(1, 2).Font.Color = vbRed
    
19.         s = 0: d.RemoveAll
    
20.     Next
    
21. End Sub

复制代码

心正意诚身修

條件格式,公式為=COUNT(FIND(MID(A1,1,1),B1))+COUNT(FIND(MID(B1,2,1),B1))+COUNT(FIND(MID(A1,3,1),B1))>=2
見附件

qh8600

广陵王 发表于 2015-5-21 15:25
附截图

工作簿1.rar (6.46 KB, 下载次数: 59)

2015-5-21 15:51 上传

点击文件名下载附件

广陵王

roych 发表于 2015-5-21 15:38
可能要用辅助列。
辅助列公式

谢谢大师，附件下载了，很棒。但我是指任意位置。您的附件里是针对了后二位.

123   912
468   488
001  109
这三种情况也需要变色。谢谢了！

麻烦您再修改一下

roych

这些都可以啊。你到底有没有试过啊？
我只设置了A2单元格。其它单元格的条件格式没设置的。你需要选择A2，双击格式刷，然后刷下去的。

广陵王

谢谢各位大师，完全正确。我搞明白了!!!

是我操作的问题，都解决了。再次谢谢各位大师

329577245

真好，没有做不到，只有想不到！