数据去重宏脚本

最新推荐文章于 2023-11-14 16:14:10 发布

weixin_30784945

最新推荐文章于 2023-11-14 16:14:10 发布

阅读量140

点赞数

原文链接：http://www.cnblogs.com/Lvkang/p/10937555.html

版权

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

转载于:https://www.cnblogs.com/Lvkang/p/10937555.html