路径（OFFICE2007以上版本）：数据 - 删除重复项

还有一种办法：
公式COUNTIF(A$1:A1,A1)，
然后填充，然后筛选不等于1的值，最后全选后行删除。

vba：字典去重复

Sub Qucf()
Dim arr
Dim d As Object
Dim fi As Integer
Set fzb = Sheets("FZB")
arr = dd.Range("A1:Z" & dd.Range("A65536").End(xlUp).Row)
Set d = CreateObject("scripting.dictionary")
For fi = LBound(arr) To UBound(arr)
d(arr(fi, 9)) = ""  第9列去重
Next
fzb.[A2].Resize(d.Count) = Application.Transpose(d.keys)
Set d = Nothing
End Sub

VB注解一下：

Arr引用其实根本就需要那么复杂，可以
Arr = dd.[a1].CurrentRegion

LBound(arr) 只有写1就可以了，不需那么废话
For i = 1 To UBound(Arr)

后面记得用Transpose对 (d.keys) 转置处理。