”excel vba 有4个数2,2,4,5 用循环相互对比,得出这4个数中有3个互不相同的数的个数是3
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/24 08:45:58
![”excel vba 有4个数2,2,4,5 用循环相互对比,得出这4个数中有3个互不相同的数的个数是3](/uploads/image/z/12373322-50-2.jpg?t=%E2%80%9Dexcel+vba+%E6%9C%894%E4%B8%AA%E6%95%B02%2C2%2C4%2C5+%E7%94%A8%E5%BE%AA%E7%8E%AF%E7%9B%B8%E4%BA%92%E5%AF%B9%E6%AF%94%2C%E5%BE%97%E5%87%BA%E8%BF%994%E4%B8%AA%E6%95%B0%E4%B8%AD%E6%9C%893%E4%B8%AA%E4%BA%92%E4%B8%8D%E7%9B%B8%E5%90%8C%E7%9A%84%E6%95%B0%E7%9A%84%E4%B8%AA%E6%95%B0%E6%98%AF3)
”excel vba 有4个数2,2,4,5 用循环相互对比,得出这4个数中有3个互不相同的数的个数是3
”excel vba 有4个数2,2,4,5 用循环相互对比,得出这4个数中有3个互不相同的数的个数是3
”excel vba 有4个数2,2,4,5 用循环相互对比,得出这4个数中有3个互不相同的数的个数是3
Sub createdictionary()
arr = Array(2,2,4,5)
Set dic = CreateObject("scripting.dictionary")
For Each a In arr
If Not dic.exists(a) Then dic.Add a,""
Next
MsgBox "这一组数据中不重复的数据个数为" & dic.Count & "个"
End Sub