EXCEL高手请进来

你可以先把Sheet1中的源数据复制一份到Sheet2再用“删除重复项”，如图：数据－－》删除重复项

sheet2的A1输入公式，可以复制粘贴过去使用:
=INDEX(Sheet1!A:A,SMALL(IF(MATCH(Sheet1!A$1:A$100&"",Sheet1!A$1:A$100&"",)=ROW($1:$100),ROW($1:$100),4^8),ROW(1:1)))&""
数组公式以ctrl+shift+enter三键组合结束输入
公式下拉即可

可以不用公式，excel中有提供这个功能，先copy sheet1数据岛sheet2，然后，选中a列，找到数据--去掉重复数据即可。

Sub bcfz()
Dim i&, Myr&, Arr
Dim d, k, t
Set d = CreateObject("Scripting.Dictionary")
Myr = sheets(1).[a65536].End(xlUp).Row
Arr = sheets(1).Range("a1:a" & Myr)
For i = 1 To UBound(Arr)
d(Arr(i, 1)) = ""
Next
End If
Next
k = d.keys
Sheets(2).[a1].Resize(d.Count, 1) = Application.Transpose(k)
End Sub

用数据透析表分析后再筛选