VBA/VB6移除数组中重复的数据
需要引用 'Microsoft Scripting Runtime'
Function ArrDelAsMe(ByVal arr As Variant) As Variant...Array(1,3,4,6)
' 需要引用 'Microsoft Scripting Runtime...',用于调用字典对象
On Error GoTo Err '错误跳转
Dim i As...MsgBox "发生未知错误", vbCritical, "vb小源码"
End Function
Function ArrDel(ByVal arr As Variant) As...Array(1,2,3,4,5,6)
' 需要引用 'Microsoft Scripting Runtime