具有多个范围的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

使用CCD_ 4创建一个范围并集，但没有成功。

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

但是INDIRECT不能在VBA中工作，我可以找到。

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

Answer 1

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