关于数组合并的问题，请教各位高手！

A5585202

诚恳请教各位大侠：

有两个一维数组，如下：

arr = Array(1, 2, 3, 4)
brr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)

希望通过代码生成一维数组：Crr，Crr如下，请问代码如何写。其实主要目的就是将两个数组的相同项从brr中移除

crr = Array(5, 6, 7, 8, 9)


谢谢

A5585202

自己顶一下！

jiangxiaoyun

Sub vf()
    arr = Array(1, 2, 3, 4)
    brr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
    s = Join(arr, "-")
    Dim crr()
    For i = 1 To UBound(brr)
        If InStr(s, brr(i)) = 0 Then
            k = k + 1
            ReDim Preserve crr(1 To k)
            crr(k) = brr(i)
        End If
    Next
    Stop
End Sub

A5585202

jiangxiaoyun 发表于 2018-8-21 14:25
Sub vf()
    arr = Array(1, 2, 3, 4)
    brr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)

非常感谢，测试成功。这个问题我想了2天了，一直困在想用2个循环的方法来解决。

iwangyi

sub CC()
Set d=Createobject("scriPting.diCtionary")
set d1 =CreateObjeCt("SCriPting.diCtiOnary"）
Arr=ArrAy(1,2,3,4）
Brr=ArrAy(1,2,3,4,5,6,7,8,9）
FOr i=0 tO ubOund(arr)
d(arr(i))=""
next
For J=0 to ubOund(brr)
if nOt d.exists(brr(j)) Then
d1.Add brr(j)，""
crr=d1.Keys
end if
next
end Sub


"

jiangxiaoyun

A5585202 发表于 2018-8-21 14:36
非常感谢，测试成功。这个问题我想了2天了，一直困在想用2个循环的方法来解决。

用两个循环也没坏啊，用instr函数就得注意44和4这样的差别。

我是来讨说法的

这很明显用字典合适

A5585202

iwangyi 发表于 2018-8-21 14:56
sub CC()
Set d=Createobject("scriPting.diCtionary")
set d1 =CreateObjeCt("SCriPting.diCtiOnary"）
...

谢谢，经过测试ok,字典还是很强大的！

everbest2015

Sub t()
    Dim arr, brr, i&, dic As Object, k
    Set dic = CreateObject("scripting.dictionary")
        arr = Array(1, 2, 3, 4)
        brr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
    For i = 0 To UBound(brr)
        dic(brr(i)) = ""
    Next
    For Each k In arr
        If dic.exists(k) Then
            dic.Remove (k)
        End If
    Next
    crr = dic.keys
End Sub

duquancai

1. Sub main()
   
2.     arr = Array(1, 2, 3, 4)
   
3.     brr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
   
4.     s = "[" & Join(brr, ",") & "]": c = "[" & Join(arr, ",") & "]"
   
5.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
6.     js.Language = "JavaScript"
   
7.     j = "a=" & s & ";b=" & c & ";t=[];p=[];for(i=0;i<b.length;i++){t[b[i]]=true;};for(i=0;i<a.length;i++){if(!t[a[i]]){p.push(a[i]);}};p"
   
8.     crr = Split(js.eval(j), ",")
   
9.     Stop
   
10. End Sub

复制代码