''数组去重复项包括重复项自身
' 这个函数是移除数组中重复的数据,包括自身...发生未知错误", vbCritical, "vb小源码"
End Function
Function ArrDel(ByVal arr As Variant) As Variant ''数组去重复项...' 这个函数是移除数组中重复的数据...vbCrLf
Next
MsgBox "原数据:Array(1, 2, 2, 3, 4, 5, 5, 5, 6)" & vbCrLf & vbCrLf & "数组去重复项...(不含自身):" & vbCrLf & tmp & vbCrLf & vbCrLf & "数组去重复项(含自身):" & vbCrLf & temp, , "VB小源码"
End Sub