删除重复项方法效果不佳，它仍然是两个或多个重复项

Question

Sub no_DuplicatesNsort()
Sheets(1).Columns(1).RemoveDuplicates Columns:=1, Header:=xlYes
Sheets(1).Columns(1).Sort Key1:=Cells(1, 1), Order1:=xlAscending
End Sub

这段代码有问题吗?我想要删除重复项的数据位于sheets(1). columns(1)，每次运行代码时，它都会为每个值保留至少2个重复项。

我想有一个清晰的数据，没有任何重复。代码中我遗漏了什么?

Answer 1

Application.Trim、Sort、RemoveDuplicates

…应用于单列范围

Sub Test()

Dim rg As Range: Set rg = ThisWorkbook.Worksheets(1).UsedRange.Columns(1)

With rg ' use a range variable to get the IntelliSense working
.Value = Application.Trim(.Value)
.Sort rg, xlAscending, , , , , , xlYes
.RemoveDuplicates 1, xlYes ' works faster on a sorted range
End With
End Sub