VBA仿照下面代码 如何实现提取A列姓名的唯一值保存D列

VBA仿照下面代码 如何实现提取A列姓名的唯一值保存D列

Sub hjs0()
Dim A
Dim b() As String
Dim i As Integer, j As Integer
Dim n As Integer
A = Range("a1:a" & Cells(Rows.Count, 1).End(3).Row)


For i = 1 To UBound(A)
  For j = i + 1 To UBound(A)
    If A(j, 1) = A(i, 1) Then
     A(j, 1) = "@"
     End If
   Next j
Next i

ricks = Replace(Join(Application.Transpose(A), ","), ",@", "")
b = Split(ricks, ",")
[d1].Resize(UBound(b) + 1) = Application.Transpose(b)
End Sub