Получение количества дубликатов перед их удалением

Question

Я просто хочу получить количество удаленных дубликатов при использовании функции .RemoveDuplicate в Excel vba.В любом случае можно получить точное число удалений дубликатов при использовании функции excel?

Код:

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

rangeofws - это просто переменная диапазона, определяющая используемый диапазонРабочий лист.Я смотрю на первый столбец, чтобы проверить наличие дубликатов, так как это столбец, содержащий мой ключ, который должен быть уникальным, поэтому я хочу удалить любые дубликаты.Мне просто нужно количество дубликатов, прежде чем они будут удалены функцией.

Должен ли я просто найти количество строк до и после удаления, а затем найти разницу между ними?

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