多工作表间只要有重复项就标记颜色

用户名找不到

看了坛里的贴子，好像都不符合我要的结果，无奈求助
想要把不同工作表中，订单编号列的相同数值标记颜色
如附件，三个表中（现实是好几个表），表与表间有重复值，表内也有重复值，不管哪种，三个表之间，只要有重复的就标颜色。请问excel中怎么样做才可以得到想要的结果？

jisijie630

=SUM(COUNTIF(INDIRECT("'"&1906+ROW($1:$3)&"'!E2:M10"),E2))>1

用户名找不到

jisijie630 发表于 2019-10-19 19:04
=SUM(COUNTIF(INDIRECT("'"&1906+ROW($1:$3)&"'!E2:M10"),E2))>1

你好，请问这个公式是写在哪里的呢

用户名找不到

鄂龙蒙 发表于 2019-10-19 19:46

请问这个是怎么做到的呢

wodewan

附件供参考
Sub test()
Dim d As Object, i, sht As Worksheet, Rng As Range
Set d = CreateObject("scripting.dictionary")

For Each sht In Sheets
Set Rng = sht.Range("A1").CurrentRegion.Offset(1, 4)
    Rng.Interior.Pattern = xlNone
    For Each i In Rng
    If i <> "" Then d(i.Value) = IIf(d.exists(i.Value), d(i.Value) + 1, 1)
    Next
Next

For Each sht In Sheets
Set Rng = sht.Range("A1").CurrentRegion.Offset(1, 4)
    For Each i In Rng
    If d(i.Value) > 1 Then i.Interior.Color = vbYellow
    Next
Next
End Sub

wodewan

附件供参考

用户名找不到

wodewan 发表于 2019-10-19 20:44
附件供参考

这个是我发的附件呀，没有改动，是我搞错了吗？

wodewan

用户名找不到 发表于 2019-10-19 20:49
这个是我发的附件呀，没有改动，是我搞错了吗？

哈哈，不好意思，搞错了，更新了，你从下下

jisijie630

用户名找不到 发表于 2019-10-19 20:35
你好，请问这个公式是写在哪里的呢

看一看，对不对？

用户名找不到

wodewan 发表于 2019-10-19 20:52
哈哈，不好意思，搞错了，更新了，你从下下

好的，感谢帮助，您是做的VBA么，对这个一窍不通哇，刚去查了下，好像是写代码什么的