删除数组中的重复行

Question

我对数组有疑问。首先让我告诉你我得到的代码：

Dim TopStud() As Variant

TopStud = Range("A1", Range("A2").End(xlDown).End(xlToRight))
'code that removes duplicate values in array

'end code
Worksheets.Add

Range(ActiveCell, ActiveCell.Offset(UBound(TopStud, 1) - 1, UBound(TopStud, 2) - 1)).Value = TopStud

上面的代码显示了如何在数组中获取一系列值。我想删除已保存在此数组中的重复值到新工作表中。往上看。有一个简单的方法吗？

我想要以下结果：

Answer 1

如果要删除当前列中任何重复项的整个记录​​：

Cells.RemoveDuplicates Columns:=ActiveCell.Column,Header:=xlYes