突出重复重复的客户端数量。 在Excel中

我正在尝试使用重复数量的VBA客户端在Excel中突出显示和标记。 举例如下：

Client Amount 123 $5 123 $6 456 $5 456 $9 456 $9 

我现在的代码会标记这样的例子：

 Client Amount Check 123 $5 Duplicate 123 $6 OK 456 $5 Duplicate 456 $9 Duplicate 456 $9 Duplicate 

实际上

 Client Amount 123 $5 456 $5 

应该被标记为OK，因为它不是在同一个客户端上的数据。

我的代码如下。

 'Checks For Duplicates k = 2 Set AccClm = Range("A2:A" & rowz) ' area to check ' Set AmtClm = Range("C2:C" & rowz) iWarnColor = xlThemeColorAccent2 Do While ws.Cells(k, 1) <> "" Acc = ws.Cells(k, 1) Amt = ws.Cells(k, 3) If (WorksheetFunction.CountIf(AccClm, Acc) >= 2) And (WorksheetFunction.CountIf(AmtClm, Amt) >= 2) Then ws.Rows(k).Interior.ColorIndex = iWarnColor ws.Cells(k, 4) = "Duplicate" Else ws.Rows(k).Interior.Pattern = xlNone End If k = k + 1 Loop 

我卡住了，任何想法将不胜感激。

Answer 1

使用COUNTIFS而不是COUNTIF

  'Checks For Duplicates k = 2 Set AccClm = Range("A2:A" & rowz) ' area to check ' Set AmtClm = Range("C2:C" & rowz) iWarnColor = xlThemeColorAccent2 Do While ws.Cells(k, 1) <> "" Acc = ws.Cells(k, 1) Amt = ws.Cells(k, 3) If WorksheetFunction.CountIfs(AccClm, Acc, AmtClm, Amt) >= 2 Then ws.Rows(k).Interior.ColorIndex = iWarnColor ws.Cells(k, 4) = "Duplicate" Else ws.Rows(k).Interior.Pattern = xlNone End If k = k + 1 Loop