”excel vba 有4个数2,2,4,5 用循环相互对比,得出这4个数中有3个互不相同的数的个数是3

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/27 19:28:22

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
再问：如果4列单元格，很多行的话，而且有的单元格里面还没有数据，例如“ ” “ ” “ ” “ ”这种情况是0，（2，2，4，“ ”）这种就输出2，麻烦了
再答： Sub createdictionary() on error resume next arr = selection.value'请先选中需要统计的区域 Set dic = CreateObject("scripting.dictionary") For Each a In arr If a"" and Not dic.exists(a) Then dic.Add a, "" Next MsgBox "所选单元格区域中不重复的数据个数为" & dic.Count & "个" End Sub
再问：谢谢你高手，我如果想要一行一输出个数呢，例如第一行5 5 5 6 输出2 ，第二行5 8 9 7 输出4 ，第三行85空空输出2，就在选中的区域的后一列中输出。“空出现的时候只会在数字后面，不会在数字中间的” 谢谢您了
再答：给你一个自定义函数吧： Function DISTINCT(ByVal rng As Variant) Dim a Set dic = CreateObject("scripting.dictionary") For Each a In rng.Value If a "" And Not dic.exists(a) Then dic.Add a, "" Next DISTINCT = dic.Count End Function 如果是求A1:D1单元格中不重复的数据个数，公式就写成： =DISTINCT(A1:D1)

有4个数,每3个相加得出的数是20、22、24、27,请问这4个数是什么? 一箩筐内有桔子、梨、苹果若干个,梨的个数是桔子个数的4/5,苹果个数是桔子个数的2/3,梨的个数的3/4比苹果少2个,问将55分成4个数,如果第一个数加上1,第二个数减去一,第三个数乘以2,第四个数除以3,所得的数相同, 有一个数4个4个数剩1,5个5个数剩2个,6个6个数剩3个这个数是多少有两个数,第一个是第二个数的3倍多1,第二个数是第一个数的2倍小7,求这两个数. 有四个数,第一个数是a的平方加b,第二个数比第一个数的2倍少3,第三个数是第一个数与第二个数的差,第四个数是第一个数加上有一道智力题:4个数分别是(5.5.5.1)这4个数只能用一次分别用加减乘除计算得出的数为24 从1,2.,3,4,5,6这6个数中,随机抽取2个不同的数,则这2个数的和为偶数的概率是有黑白棋子一堆,黑子个数是白子个数的2倍,现在从这堆棋子中每次取出黑子4个、白子3个. 小明数鸡蛋,产的鸡蛋不超过50个.2个2个数剩1个,5个5个数剩4个,3个3个数正好数完.鸡蛋有多少个? 有4个不同的正整数，它们中任意2个数的和都是2的倍数，任意3个数的和都是3的倍数．要使这4个数的和尽可能小，这4个数应该有互不相同的5个自然数,从小到大依次为：A,B,C,D,E.5个数的平均数是28,较大的四个数的平均数是30,较小的4个