У меня есть подпрограмма очистки, которая берет вывод, записанный из предыдущих подпрограмм. Предполагается просто удалить дубликаты, найденные в предыдущих подпрограммах. Однако вместо удаления дубликатов содержимое очищается во всем диапазоне.
Код:
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
Кажется, что это работает при вызове само по себе, однако, когда оно вызывается моей подпрограммой он просто удаляет содержимое независимо от его статуса.