[已解决]如果有相同数字变色

sadz

数字是公式得来的，如果前面单元格的数字，与后面的数字串有相同的，则后面单元格数字串相同数字变为红色，公式或者VBA都可以
各位置胆遗漏排序.zip (119.69 KB, 下载次数: 9)

2016-5-10 15:48 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2016-5-10 16:21

H列的公式转成字符串才行。公式状态下运行无效。

1. Sub tt()
   
2.     arr = Range("a1:h" & [a65536].End(3).Row)
   
3.     For k = 3 To UBound(arr) - 1
   
4.         x = arr(k, 2): y = arr(k, 8)
   
5.         yrr = Split(y, "-")
   
6.         For i = 0 To UBound(yrr)
   
7.             yy = yrr(i)
   
8.             xx = Mid(x, i + 1, 1)
   
9.             p = InStr(yy, xx)
   
10.             If p > 0 Then Cells(k, 8).Characters(i * 5 + p, 1).Font.ColorIndex = 3
    
11.         Next
    
12.     Next
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

H列的公式转成字符串才行。公式状态下运行无效。

1. Sub tt()
   
2.     arr = Range("a1:h" & [a65536].End(3).Row)
   
3.     For k = 3 To UBound(arr) - 1
   
4.         x = arr(k, 2): y = arr(k, 8)
   
5.         yrr = Split(y, "-")
   
6.         For i = 0 To UBound(yrr)
   
7.             yy = yrr(i)
   
8.             xx = Mid(x, i + 1, 1)
   
9.             p = InStr(yy, xx)
   
10.             If p > 0 Then Cells(k, 8).Characters(i * 5 + p, 1).Font.ColorIndex = 3
    
11.         Next
    
12.     Next
    
13. End Sub
    

复制代码

sadz

grf1973 发表于 2016-5-10 16:21
H列的公式转成字符串才行。公式状态下运行无效。

这样的话，如果数据变化要手动输入了啊，能不能设置为自动的啊

sadz

grf1973 发表于 2016-5-10 16:21
H列的公式转成字符串才行。公式状态下运行无效。

可以了，我现在想这样，又加了两列，也是要这样设置，请问应该怎么设置
各位置胆遗漏排序 变色.zip (246.78 KB, 下载次数: 8)

2016-5-12 09:31 上传

点击文件名下载附件

grf1973

多套一重循环

1. Sub 标色()
   
2.     arr = Range("a1:j" & [a65536].End(3).Row)
   
3.     For k = 4 To UBound(arr) - 1
   
4.         x = arr(k, 2)
   
5.         For j = 8 To 10
   
6.             y = arr(k, j)
   
7.             yrr = Split(y, "-")
   
8.             For i = 0 To UBound(yrr)
   
9.                 yy = yrr(i)
   
10.                 xx = Mid(x, i + 1, 1)
    
11.                 p = InStr(yy, xx)
    
12.                 If p > 0 Then Cells(k, j).Characters(i * 5 + p, 1).Font.ColorIndex = 3
    
13.             Next
    
14.         Next
    
15.     Next
    
16. End Sub
    

复制代码