VBA 如何提取不重复数据？

VBA 如何提取不重复数据？
可以用以下两种方法
Sub 不重复数据字典法()
Dim d As Object
Dim lRow As Long
Dim i As Long
Dim str As Variant
Dim strKey As String
Set d = CreateObject('scripting.dictionary')
lRow = Range('A65536').End(xlUp).Row
' lRow = Cells(Rows.Count,1).End(xlUp).Row
str = Range('A1:A' & lRow)
For i = 1 To lRow
strKey = CStr(str(i, 1))
If Not d.exists(strKey) Then
d.Add strKey, strKey
End If
Next i
Range('D1').Resize(UBound(d.keys) + 1, 1) = Application.Transpose(d.keys)
End Sub
***************
Sub 高级筛选()
Dim lRow As Long
lRow = Range('A65536').End(xlUp).Row
'lRow = Cells(Rows.Count,1).End(xlUp).Row
Range('A1:A' & lRow).AdvancedFilt