具有多个范围的Excel VBA Countif

Question

我正在尝试创建一个程序，该程序在大型Excel工作表中查找重复项。

然而，该表在数据上存在空白以供标记，因为该数据是按月和按人输入的。我需要找到一种突出显示并计算重复次数的方法。

我已经使用它突出显示了一个范围内的重复项>

If Application.WorksheetFunction.CountIf(Range1, Cell) > 1 Then

但是我需要将两个或多个范围添加到countif函数中。基本上，我需要比较非连续范围内重复项的数据。

所以我有范围

C4:H78
J4:O78
Q4:V78

我将如何在VBA中将它们加在一起，以便将所有范围相互比较？

我尝试过

If Application.WorksheetFunction.Sum(Application.WorksheetFunction.CountIf(Range1, Cell),Application.WorksheetFunction.CountIf(Range2, Cell),etc) > 1 Then

并使用Union(range1,range2)创建一个范围的并集，但没有用。

我直接将excel中的countif与=SUM(COUNTIF(INDIRECT({"Range1","RANGE2",etc}),criteria))

但是INDIRECT在我发现的VBA中不起作用。

我是Excel中VBA的新手。谢谢您能提供的任何帮助。

我正在尝试创建一个程序，以在大型excel工作表中查找重复项。但是，由于按月和按人输入数据，因此此表在数据上存在空白以供标记。我需要...

Answer 1

If ( _
       Application.WorksheetFunction.CountIf(Range1, Cell) + _
       Application.WOrksheetFunction.CountIf(Range2, Cell) + _
       Application.WOrksheetFunction.CountIf(Range3, Cell) _
   ) > 1 Then