数据去重宏脚本

Sub Test()
Dim A(), B(), I, J As Integer
Dim Temp As String
'//你可以换成其他数字试试，都是对的
A = Array(1, 1, 2, 1, 4, 2, 3, 2, 3, 3, 3, 4, 4)
For I = 0 To UBound(A)
For J = I + 1 To UBound(A)
If A(I) = A(J) Then A(J) = "@"
Next
Next
Temp = Replace(Join(A, ""), "@", ""): ReDim B(Len(Temp) - 1)
For I = 1 To Len(Temp)
B(I - 1) = CInt(Mid(Temp, I, 1))
Next
End Sub