Range.RemoveDuplicates Удаляет все содержимое - PullRequest
0 голосов
/ 15 февраля 2020

У меня есть подпрограмма очистки, которая берет вывод, записанный из предыдущих подпрограмм. Предполагается просто удалить дубликаты, найденные в предыдущих подпрограммах. Однако вместо удаления дубликатов содержимое очищается во всем диапазоне.

Код:

Sub remove_dupes()
   Dim rng As range
   Dim cols As Variant
   Dim i As Integer

   Set rng = [A1].CurrentRegion

   ReDim cols(0 To rng.columns.count - 1)

   For i = 0 To UBound(cols)
       cols(i) = i + 1
   Next i

   rng.RemoveDuplicates columns:=(cols), Header:=xlYes
End Sub

Кажется, что это работает при вызове само по себе, однако, когда оно вызывается моей подпрограммой он просто удаляет содержимое независимо от его статуса.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...