[已解决]提取一个数组中的数据,重复的算一个,求最佳方法:

chulia_wong

sub im ()dim arr,brr()
arr=array(0,12,10,13,126,0,10,12,10,13)


      我想求出这个数组中出现的数字,重复的算一个!
      模拟结果:brr=0,12,10,13,126
      求问有什么写法,?
目前我用的方法是
for i = 0 to ubound(arr)
    for u = i+1 to ubound(arr)
       if arr(i)=arr(u) then
        brr(i)=arr(i)      
       endif
  next u
   next i
                       这种方法根本不好使,会出错,请问关于这个要求代码要怎么写好啊>真的很急,感谢大家给出意见!!
end sub

最佳答案

月排行榜 / 总排行榜

qh8600

2015-10-24 10:44

chulia_wong 发表于 2015-10-24 10:42
目前还不会字典,求写法

1. Sub im()
   
2.     Dim arr, d
   
3.     arr = Array(0, 12, 10, 13, 126, 0, 10, 12, 10, 13)
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     For i = 0 To UBound(arr)
   
6.         d(arr(i)) = ""
   
7.     Next i
   
8.     Range("a1").Resize(d.Count) = Application.Transpose(d.keys)
   
9. End Sub
   

复制代码

这样

跳转到最佳答案楼层

qh8600

用字典

chulia_wong

qh8600 发表于 2015-10-24 10:38
用字典

目前还不会字典,求写法

qh8600

chulia_wong 发表于 2015-10-24 10:42
目前还不会字典,求写法

1. Sub im()
   
2.     Dim arr, d
   
3.     arr = Array(0, 12, 10, 13, 126, 0, 10, 12, 10, 13)
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     For i = 0 To UBound(arr)
   
6.         d(arr(i)) = ""
   
7.     Next i
   
8.     Range("a1").Resize(d.Count) = Application.Transpose(d.keys)
   
9. End Sub
   

复制代码

这样

橘子红

arr = Array(0, 12, 10, 13, 126, 0, 10, 12, 10, 13)
set d = createobject("scripting.dictionary")
for x = 0 To ubound(arr)
    d(arr(x)) = 1
Next
brr = d.keys

chulia_wong

橘子红 发表于 2015-10-24 10:45
arr = Array(0, 12, 10, 13, 126, 0, 10, 12, 10, 13)
set d = createobject("scripting.dictionary")
fo ...

d(arr(x)) = 1
请问这一句是什么意思啊,为什么可以等于空,也可以等于1,结果都对?谢谢!

chulia_wong

橘子红 发表于 2015-10-24 10:45
arr = Array(0, 12, 10, 13, 126, 0, 10, 12, 10, 13)
set d = createobject("scripting.dictionary")
fo ...

d(arr(x)) = 1
请问这一句是什么意思啊,为什么可以等于空,也可以等于1,结果都对?谢谢!

chulia_wong

qh8600 发表于 2015-10-24 10:44
这样

再麻烦一下下,请问我想把最后筛选出来 的值用","号隔开的形式表达出来,该怎么利用字典里的什么属性
Dim i As Byte
    arr = Array(0, 12, 10, 13, 126, 0, 10, 12, 10, 13)
    Set dic = CreateObject("scripting.dictionary")
    For i = 0 To UBound(arr)
        dic(arr(i)) = ""
    Next i
    最后结果以:brr = 0,12,10,13,126 (值中间用逗号隔开)这种字符串表达出来,而不是:brr = (0,12,10,13,126)这种数组表达出来!

qh8600

chulia_wong 发表于 2015-10-24 11:11
再麻烦一下下,请问我想把最后筛选出来 的值用","号隔开的形式表达出来,该怎么利用字典里的什么属性
Dim  ...

brr = Join(d.keys, ",")

chulia_wong

qh8600 发表于 2015-10-24 11:18
brr = Join(d.keys, ",")

太感谢了!