写一段excel vba筛查重复项

Excel VBA 中可以使用如下代码来筛选重复项：

Sub RemoveDuplicates()
    Dim rng As Range
    Set rng = Range("A1:A10") ' 这里的范围可以替换为你想要筛选的范围
    rng.RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

在这段代码中，首先定义了一个名为 "rng" 的 Range 对象，并将其设置为列 A 的前 10 行。然后，使用 RemoveDuplicates 方法筛选出这个范围中的重复项，并将其删除。