fieldset{padding:10px;}
vba中怎么去除数组中重复的数据？比如数组={“1″,”2″,”3″,”4″,”3”,”2″），有没有一种方法最终得到数组(“1″,”2″,”3″,”4”)。就是把重复的部分去掉，只保留一份！！求高手支持——最佳解决方案——————————————————–
PrivateSubCommand1_Click()DimMyOne,MyTwoDimiAsInteger,jAsIntegerMyOne=Array("1","2","3","4","2","3")Fori=0To5MyTwo=MyOne(i)Forj=i+1To5If(MyTwo=MyOne(j))ThenDimnewr(4)Fork=0To5If(k<>j)Thennewr(k)=MyOne(k)EndIfNextEndIfNextNextEndSub
我折腾了半天，把自己折腾糊涂了。总之是这个思路。——其他解决方案——————————————————–遍历比较，后面和前面重复就去掉——其他解决方案——————————————————–Subtest()DimarrayTest(7)AsStringarrayTest(0)=”1″arrayTest(1)=”2″arrayTest(2)=”3″arrayTest(3)=”4″arrayTest(4)=”3″arrayTest(5)=”2″arrayTest(6)=”8″DimflagAsIntegerDimtempStrAsStringDimarrayTest1()ReDimarrayTest1(1)DimiAsIntegerDimjAsIntegerFori=0ToUBound(arrayTest)-1flag=0Ifi=0ThenReDimPreservearrayTest1(UBound(arrayTest1))arrayTest1(UBound(arrayTest1)-1)=arrayTest(i)ElseForj=0ToUBound(arrayTest1)-1IfarrayTest1(j)=arrayTest(i)Thenflag=flag+1怕走崎岖路，莫想登高峰。
