求大神帮忙处理这个数据

xinghuasking

C，D，E列有任意两个数字相同就标记出来。如果三个数字都相同的也标记出来。

求大神出一个条件格式公式或者VBA代码
多谢大神啦

一把小刀闯天下

'F列满足条件的就为1

Option Explicit

Sub test()
  Dim arr, i, j, k
  arr = [a1].CurrentRegion.Resize(, 5)
  ReDim brr(1 To UBound(arr, 1), 1 To 1)
  For i = 1 To UBound(arr, 1)
    For j = 3 To UBound(arr, 2) - 1
      For k = j + 1 To UBound(arr, 2)
        If arr(i, j) = arr(i, k) Then brr(i, 1) = 1: j = UBound(arr, 2): Exit For
      Next
    Next
  Next
  [f1].Resize(UBound(brr, 1)) = brr
End Sub

xinghuasking

一把小刀闯天下 发表于 2020-2-22 16:31
'F列满足条件的就为1

Option Explicit

如果处理A.B.C列的话，代码如何修改一下呢，请大神教教我

xinghuasking

xinghuasking 发表于 2020-2-22 17:01
如果处理A.B.C列的话，代码如何修改一下呢，请大神教教我

想处理A.B.C列或者B.C.D列，也让结果出现在F列，满足就为1.那么代码应该如何修改一下呢，麻烦大神再帮帮忙，多谢啦

一把小刀闯天下

abc

For j = 1 To 2
      For k = j + 1 To 3
-------------
bcd
For j = 2 To 3
      For k = j + 1 To 4

xinghuasking

一把小刀闯天下 发表于 2020-2-22 17:17
abc

For j = 1 To 2

看不懂，大神，能不能教一下这个代码怎么用，怎么和上面的联系。多谢啦

xinghuasking

一把小刀闯天下 发表于 2020-2-22 17:17
abc

For j = 1 To 2

懂了懂了 我去试试，多谢大神了

xinghuasking

一把小刀闯天下 发表于 2020-2-22 17:17
abc

For j = 1 To 2

感恩感谢，好人一生平安

gbgbxgb

既然想到了用公式，最好去函数版块。
事实上，用条件格式就可以了，譬如C1单元格的条件格式设置为：
=OR(COUNTIF($C1:$E1,$C1)>1,COUNTIF($C1:$E1,$D1)>1,COUNTIF($C1:$E1,$E1)>1)

一把小刀闯天下

'abc

Option Explicit

Sub test()
  Dim arr, i, j, k
  arr = [a1].CurrentRegion.Resize(, 5)
  ReDim brr(1 To UBound(arr, 1), 1 To 1)
  For i = 1 To UBound(arr, 1)
    For j = 1 To 2
      For k = j + 1 To 3
        If arr(i, j) = arr(i, k) Then brr(i, 1) = 1: j = UBound(arr, 2): Exit For
      Next
    Next
  Next
  [f1].Resize(UBound(brr, 1)) = brr
End Sub