多个等于单元格，然后chek偏移单元格

我想检查B列（PIB）中的所有ID，如果有重复的ID检查列（区域），如果这些PIB有多个区域。 我想检查是否重复的PIB的区域，有一个独特的或让我们说不同的区域。

我用标记B列stucked并用以下代码重复：

Option Explicit Sub Test() Dim rng As Range, rng2 As Range, rng3 As Range, cell As Range, i As Integer Set rng = Range("A2:D400") Set rng2 = Range("B2:B400") Set rng3 = Range("A2:A400") For Each cell In rng If Application.WorksheetFunction.CountIf(rng2, cell) > 1 Then cell.Interior.ColorIndex = 26 End If Next End Sub 

从这个代码，我试图添加一些嵌套的IF，但是没有任何反应：

 Option Explicit Sub Test() Dim rng As Range, rng2 As Range, rng3 As Range, cell As Range, i As Integer Set rng = Range("A2:D400") Set rng2 = Range("B2:B400") Set rng3 = Range("A2:A400") For Each cell In rng If Application.WorksheetFunction.CountIf(rng2, cell) > 1 Then If Application.WorksheetFunction.CountIf(rng3, cell) > 1 Then cell.Interior.ColorIndex = 26 End If End If Next End Sub 

谢谢！

Answer 1

非VBA的解决scheme（因为它似乎你没事吧）。

1. C1 = Check ，E1 ='检查'，E2 = >0
2. C2 = =IF(COUNTIFS(B:B,B2,A:A,"<>"&A2)>0,1,0) ，然后向下拖动

3. 高级filter如下所示：