在删除重复项之前获取它们的数量

Question

我只想获取在excel vba中使用.RemoveDuplicate函数时删除的重复项的数量。无论如何，要获得使用excel函数时要删除的重复项的准确数量？

代码：

rangeofws.RemoveDuplicates Columns:=1, Header:=xlYes

rangeofws只是一个范围变量，用于定义工作表的使用范围。我看着第一列检查重复项，因为它包含我的Key的列应该应该是唯一的，因此我想删除所有重复项。我只需要重复项的数量，然后再将其删除即可。

我是否只需要查找删除前后的行数，然后找出两者之间的区别？

Answer 1

您是否还需要删除之前或重复之后的数量？

您已经发现，它只是在删除之前对行进行计数，而在删除之后对它们进行计数。

Dim RowCountBefore As Long
RowCountBefore = Application.WorksheetFunction.CountA(Worksheets("Sheet1").Columns("A"))

Dim RowCountAfter As Long
RowCountAfter = Application.WorksheetFunction.CountA(Worksheets("Sheet1").Columns("A"))

Dim RowsRemoved As Long
RowsRemoved = RowCountBefore - RowCountAfter